Створення макросу для автоматичного створення позначок у документі Microsoft Word

6 Березня 2024 в 21:35 131

Створення змісту або індексу в документі Word може стати часовтратним завданням, особливо коли потрібно враховувати велику кількість термінів або ключових слів. Однак застосування макросів може значно спростити цей процес і зекономити час.

У цій статті ми розглянемо, як створити макрос у середовищі Microsoft Word, який автоматично створюватиме позначки для заданих слів або термінів, взятих із заздалегідь відомого списку. Це корисно, наприклад, при створенні змісту або індексу для наукової роботи чи тез, де потрібно використовувати обмежений перелік слів.

Sub CreateIndexFromWordList()
    Dim wdDoc As Document
    Dim wdApp As Object
    Dim wdRange As Range
    Dim wordListDoc As Document
    Dim wordListRange As Range
    Dim word As String
    
    ' Відкрити цільовий документ Word
    Set wdApp = CreateObject("Word.Application")
    wdApp.Visible = True
    Set wdDoc = wdApp.Documents.Open("C:\Шлях\До\Вашого\Документу.docx")
    
    ' Відкрити документ, що містить список слів
    Set wordListDoc = wdApp.Documents.Open("C:\Шлях\До\Вашого\СпискуСлів.docx")
    
    ' Визначити діапазон списку слів
    Set wordListRange = wordListDoc.Content
    
    ' Пройтися по кожному слову у списку
    For Each wdRange In wordListRange.Words
        word = wdRange.Text
        
        ' Позначити слово
        wdDoc.Indexes.MarkEntry Range:=wdRange, Entry:=word
    Next wdRange
    
    ' Закрити документи
    wordListDoc.Close
    wdDoc.Save
    wdDoc.Close
    
    ' Закрити додаток Word
    wdApp.Quit
    Set wdApp = Nothing
End Sub