Multiline in textbox(Word)

[Strij51]

Hallo,

Ik heb met VBA een textbox met daarin 3 regels in een document geplaatst.
Nu wil ik dat de bovenste regel een andere lettergrootte en kleur krijgt toegewezen dan de onderste
maar vraag me af of dat op deze manier lukt (zie bijgevoegde code) Wie kan mij hiermee helpen

 

[snb]

Sub M_snb()
    With ActiveDocument.Shapes.AddTextbox(1, 35, 43, 515, 155)
        With .Line
            .Weight = 16
            .ForeColor = RGB(0, 67, 128)
            .Visible = -1
        End With
       With .TextFrame.TextRange
           With .Font
              .Size = 10
              .Name = "Rockwell"
           End With
          .Bold = True
          .ParagraphFormat.Alignment = 2
          .Text = "Aaaaaaa" & Chr(10) & "Bbbbbbbb" & Chr(10) & "Cccccccccc"
          
           With .Paragraphs(1).Range.Font
                .Size = 34
                .ColorIndex = 13
            End With
        End With
    End With
End Sub

 

[Strij51]

Bedankt voor de snelle reactie.
Dat is hem.
Perfect!