Форматирование текста в текстовом поле (надписи)

[cent]

Есть в документе оч.много текстовых полей (надписей). Нужно в каждом из них изменить шрифт и размер текста.
Направьте в нужное русло пожалуйста.
На скорую руку пытался такое состряпать, но не работает, матерится на неверные функции.

Sub Макрос2()
    For Each Shapes In ActiveDocument
        ActiveDocument.Shapes.TextFrame.TextRange.Font.Name = "Arial"
        ActiveDocument.Shapes.TextFrame.TextRange.Font.Size = 16
    Next
End Sub

[shanemac51]

по крайней мере(без проверки)

Sub Макрос2()
dim sh as shape
    For Each Sh In ActiveDocument.shapes
        sh.TextFrame.TextRange.Font.Name = "Arial"
        sh.TextFrame.TextRange.Font.Size = 16
    Next sh
End Sub

[cent]

Сообщение от shanemac51

по крайней мере(без проверки)

Sub Макрос2()
dim sh as shape
    For Each Sh In ActiveDocument.shapes
        sh.TextFrame.TextRange.Font.Name = "Arial"
        sh.TextFrame.TextRange.Font.Size = 16
    Next sh
End Sub

Спасибо! Это то, что нужно.

[cent]

Поторопился.
Обычные текстовые поля форматирует, а вот необычные не хочет.
Мои необычные находятся в ГОСТовских форматах.
И там организованы как вложенные текстовые поля.
Как быть в таком случае? Как в них форматировать текст?


http://prntscr.com/elwnr2

Точнее, как я понял, в документе есть и другие фигуры (не только текстовые поля), и вот к ним неприменимы методы работы с вложенным текстом, т.к. он его не могут содержать.
Т.е. нужно отфильтровать из всех фигур только "текстовые поля".

[shanemac51]

попробуйте

Sub w170319_23()
Dim sh As Shape
    For Each sh In ActiveDocument.Shapes
    If sh.TextFrame.HasText Then
        sh.TextFrame.TextRange.Font.Name = "Arial"
        sh.TextFrame.TextRange.Font.Size = 16
        End If
    Next sh
End Sub