Надписи в Ворде - VBA

Формулировка задачи:

здравствуйте, если вставить надписи в Ворде, как их программно сделать без контура, без заливки, и программно вставить текст во многие надписи в документе с нужным размером шрифта, спасибо

Решение задачи: «Надписи в Ворде»

textual
                            Листинг программы 
                        

                            Sub prTextBox()
    Dim x As Shape
    For Each x In ActiveDocument.Shapes
        With x
            If InStr(1, x.Name, "Text Box") <> 0 Then
                .ShapeStyle = msoShapeStylePreset1
                .Line.Visible = False
                .Select
                With Selection
                    .Orientation = wdTextOrientationHorizontal
                    .Font.Size = 12
                    .Font.Name = "Times New Roman"
                    .Font.ColorIndex = wdBlue
                    .HomeKey Unit:=wdLine
                    .TypeText Text:="Привет"
                    .InsertParagraph
                 End With
            End If
        End With
    Next
End Sub
                        