1. Найти и заменить. Представьте, что у вас есть длинный документ, в котором есть определенное слово, которое необходимо заменить повсюду. Вместо того, чтобы вручную искать и заменять каждый экземпляр, VBA может сделать это за вас. Посмотрите этот фрагмент кода:

Sub FindAndReplace()
    With ActiveDocument.Content.Find
        .Text = "old word"
        .Replacement.Text = "new word"
        .Execute Replace:=wdReplaceAll
    End With
End Sub

1. Вставить текст. Хотите вставить текст в определенное место документа? VBA вас поддержит. Взгляните на этот пример:

Sub InsertText()
    Selection.TypeText "Hello, World!"
End Sub

1. Форматирование текста. Форматирование может быть утомительным, но VBA справится с этим быстро. Вот фрагмент кода для изменения цвета шрифта выделенного текста:

Sub FormatText()
    Selection.Font.Color = RGB(255, 0, 0) ' Red color
End Sub

1. Создание таблиц. Таблицы необходимы для организации данных. VBA позволяет создавать таблицы программно:

Sub CreateTable()
    Dim tbl As Table
    Set tbl = ActiveDocument.Tables.Add(Selection.Range, NumRows:=3, NumColumns:=3)
End Sub

1. Создание пользовательских документов: VBA позволяет создавать индивидуальные документы на основе определенных условий. Вот пример создания документа с текущей датой в качестве имени файла:

Sub CreateCustomDocument()
    Dim fileName As String
    fileName = "Document_" & Format(Date, "yyyy_mm_dd") & ".docx"
    Documents.Add.SaveAs2 fileName
End Sub

Это всего лишь несколько примеров, которые помогут вам начать знакомство с VBA в Word. Возможности безграничны, и, немного попрактиковавшись, вы сможете автоматизировать сложные задачи и оптимизировать документооборот.

Помните, VBA — ваше секретное оружие для повышения производительности в Word. Так что вперед, экспериментируйте и раскройте весь потенциал автоматизации Word!