VBA for MS word在文檔中查找文本

Question

https://stackoverflow.com/a/11624006/1553562

如何將搜索限制為從用戶輸入的有限范圍的文檔???

Answer 1

這將允許您指定從第3頁到第20頁的范圍

Sub Sample()
    Dim rng As Range
    Dim StartPage As Long, EndPage As Long

    StartPage = 3: EndPage = 20

    Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=StartPage

    Set rng = Selection.Range

    Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=EndPage

    rng.End = Selection.Bookmarks("\Page").Range.End

    '~~> Now you have got your range. Do the necessary action here
    With rng

    End With
End Sub