如何用WORD宏语言编程实现获取指定关键字所在页数的功能

flyerlhj

如何用WORD宏语言编程实现获取指定关键字所在页数的功能。 比如，有一个很大的几百页的WORD文档，我想得到关于某指定关键字在此文档中的哪些 页数中出现过的数据。 如关键字“我爱你”在第2、4、56、100页曾出现过，能不能用宏语言实现这个功能，将2 4 56 100等数据写到某处或某文档中。

守柔

可以使用SELECTION.FIND方法.

Sub GetPage()

Dim FindText As String

FindText = InputBox("请在此输入需要搜索的关键字")

Me.Range(0, 0).Select

Do While Selection.Find.Execute(FindText:=FindText, Forward:=True, Wrap:=wdFindStop) = True

MsgBox Selection.Information(wdActiveEndPageNumber)

Loop

End Sub