Textbox Schreibstiel zu weisen

[ironhaert]

Hall erst mal,
ich hätte da mal ne Frage zwecks Textbox in VBA.
Vorweg muss ich dazu sagen, dass ich noch blutiger Anfänger in VBA bin.

Ich möchte eine TB einfügen, bei der der Text eine bestimmte Formatierung enthält. Am besten aus erstellten Vorlagen.
Wie kann ich nun einer TB die Formatierung aus einer Formatvorlage mitgeben?
Wie kann ich generell für einen Text die Formatierung für Formatvorlage mitgeben.
Zudem hätte ich gerne gewisse Teile der TB fett, z.B. die homepage nur diser Teil in der TB als fett. Weiß jemand, wie das zu realisieren ist?

Sub Makro5()
    'Textbox hinzufügen
    Dim xLeft As Single
    Dim xTop As Single
    Dim xWidth As Single
    Dim xHeight As Single
    xLeft = 300
    xTop = 200
    xWidth = 150
    xHeight = 150
    With ActiveDocument.Shapes
    Set shpTbFirmenAnschrift = .AddTextbox(msoTextOrientationHorizontal, _
    xLeft, xTop, xWidth, xHeight)
    End With
    
    Dim strFirmenname As String
    Dim strStrasse As String
    Dim strOrt As String
    Dim strTel As String
    Dim strFax As String
    Dim strHomePage As String
    
    strFirmenname = ""
    strStrase = ""
    strOrt = ""
    strTel = ""
    strFax = ""
    strHomePage = ""
    
    Dim msgstring As String
    
    msgstring = strFirmenname & vbCrLf & strStrase & vbCrLf & strOrt & vbCrLf & strTel & vbCrLf & strFax & vbCrLf & strHomePage
    shpTbFirmenAnschrift.TextFrame.TextRange = msgstring
End Sub
Sub FirmenAnschrift_loeschen()
    shpTbFirmenAnschrift.Delete
End Sub

[Severus]

   
Set shpTbFirmenAnschrift = ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, _
    xLeft, xTop, xWidth, xHeight)
shpTbFirmenAnschrift.Select
    With Selection
        .ShapeRange.TextFrame.TextRange.Select
        .TypeText Text:="Charlie Brown Associated"
        .TypeParagraph
        .TypeText Text:="94 Nowhere Road"
        .TypeParagraph
        .TypeText Text:="4711 Emptytown"
        .TypeParagraph
        .TypeText Text:="Phone +49 000 00 00 000"
        .TypeParagraph
        .TypeText Text:="Fax +49 000 00 00 000"
        .TypeParagraph
        .TypeText Text:="home:www.charliebrown.eu"
        .ShapeRange.TextFrame.TextRange.Select
        .Font.Name = "Arial"
        .Font.Size = 10
        .Collapse
        .MoveDown Unit:=wdLine, Count:=5
        .EndKey Unit:=wdLine, Extend:=wdExtend
        .Font.Bold = True
        .ShapeRange.Select
    End With

Das sollte es tun.

Severus