将特定术语从Microsoft Word提取到Excel

问题描述 投票:-4回答:1

问题:我已在VBA中编写了搜索Word文档以查找特定术语并将其提取到Excel中的功能。我遇到的问题是,我想在Word文档的前50页之后开始搜索的启动功能,只有5个选项。我输入的其他术语,我希望在文档开头的搜索和提取开始。

例如,如果单词是铅笔,我希望在50页后搜索铅笔。所有其他术语(即笔)将在文档开头处开始搜索。

任何帮助赞赏

excel vba ms-word
1个回答
0
投票

由于你没有发布你的代码,我无法准确地说出你在这里做了什么,但我很确定你可以采用下面的通用示例,并将其合并到你当前的逻辑中。

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

推荐问答