Как изменить размер шрифта всего текста?

Question

Я пытаюсь изменить размер шрифта текста внутри документа MS Word, открытого с помощью Excel VBA.

Sub Validator()
    Dim doc As Word.document
    lngAccountCounter = 3
    Dim wordapp As Word.Application

    Set wordapp = New Word.Application
    wordapp.documents.Open ThisWorkbook.Path & "\Account.doc"
    wordapp.Visible = True
    wordapp.Activate

    With wordapp.Selection
        .Font.Size = 7
    End With
End Sub

Answer 1

Вы можете изменить это

With wordapp.Selection
    .Font.Size = 7
End With

Для

ActiveDocument.Select
Selection.WholeStory
Selection.Font.Size = 7