Word文档中打印所有某个人姓名的页,求宏编程VBA

2004-10-14 05:01:39 302 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Excel数据批量导入Word模板：邮件合并、VBA与Python方案全解析本文系统解析Excel数据批量导入Word模板的三种主流技术方案：邮件合并（零代码、Office原生）、VBA宏（深度定制、Office内自动化）和Python脚本（跨平台、生态集成）。涵盖核心原理、适用场景、实操步骤及典型问题（如域代码显示异常、VBA 424错误、python-docx格式错乱、图片插入、日期数字格式转换等），强调模板设计规范、数据清洗、性能优化与错误处理，为办公自动化提供完整技术选型与落地指南。阅读详情

问题: 我想打印在word文档中所有包含了某个人姓名的页
我粗略编了一个宏:
Sub Macro1()
'
' Macro1 Macro
' 宏在 2004-10-14 由 bill 录制
Dim i As Integer

Selection.Find.ClearFormatting
With Selection.Find
.Text = "婷婷" '要查找的姓名
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With

Do While Selection.Find.Execute
ActiveDocument.PrintOut Range:=wdPrintCurrentPage '若找到姓名,则打印当前页
Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Count:=1, Name:="" '下翻一页
Loop

End Sub

存在的问题:
我不知道怎么用VBA调用来判断是不是到了文档的末尾,若到了末尾,则应该停止查找,上面的程序会在最后一页陷入死循环,谁来帮我修正一下,感激涕零.........................呵呵呵

...全文