Question

问题：我已经在VBA中编码了搜索Word文档中特定术语并将其提取到Excel中的功能。我遇到的问题是，我想在Word文档的前50页中仅对5个选择项进行搜索的开始功能。输入的其他术语，我希望搜索和提取从文档的开头开始。

例如，如果单词是“ pencil”，我希望在50页之后搜索“ pencil”一词。所有其他术语（即笔）都将从文档的开头开始搜索。

任何帮助表示赞赏

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

从Microsoft Word提取特定术语到Excel

1 个答案: