Извлечение определенных терминов из Microsoft Word в Excel

Question

Вопрос. Я кодировал в VBA возможность поиска в документе Word определенных терминов и извлечения их в Excel.Проблема, с которой я столкнулся, состоит в том, что я хотел бы начать функцию поиска после первых 50 страниц документа Word только для 5 выбранных терминов.Другие термины, которые я ввожу, я хотел бы, чтобы поиск и извлечение начались с начала документа.

Например, если слово было карандашом, я бы хотел найти слово карандаш после 50 страниц.Все остальные термины (например, ручка) начнут поиск в начале документа.

Любая помощь приветствуется

Answer 1

Поскольку вы не опубликовали свой код, я не могу точно сказать, что вы здесь делаете, но я почти уверен, что вы можете взять общий пример ниже и включить его в свою текущую логику.

Sub GetKeyWordPages()
    Dim iPages() As Integer
    Dim p As Integer
    Dim rng As Range

    Set rng = ActiveDocument.Range
    With rng.Find
        .Text = "SearchTerm"
        .MatchCase = False
        .MatchWholeWord = True
        Do While .Execute
            ReDim Preserve iPages(p)
            iPages(p) = rng.Information(wdActiveEndPageNumber)
            p = p + 1
        Loop
    End With
    If p > 0 Then
        For p = 0 To UBound(iPages)
            Debug.Print iPages(p)
        Next p
    End If
End Sub