vba确定word指定文字在第几页？

rene8

各位老师好！请教一个VBA编程问题。
要求：以city.xlsx工作簿sheet1工作表A2:A5单元格里的四个文本数据，分别对test.docx文档进行全文匹配查找并显示页码，要求运行VBA后自动生成output.txt这个文档(分号后面的数字是被检索词在word文档里的页码，表示“西藏”在第2页出现1次，“新疆”在第2页出现1次，“经济”在第1页出现8次，在第2页出现13次，在第3页出现2次，“俄罗斯”未被检索到，不显示）

实际应用中A列数据较多，大概有十几万行。请问如何用VBA实现，谢谢！

zmj9151

试试这个、'当前光标所在页码
p = Selection.Information(wdActiveEndPageNumber)

opel-wong

这个才真是个体力活，建议在论坛上搜索一下，找到相同的案例，试着复制、修改，就是自己的程序代码了。

蓝桥玄霜

建议上传Excel表格附件来说明问题。
没有表格附件的求助帖很少能获得满意的回复。