原创力文档- 1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
- 2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
如何使用这些宏？
打开Word，按?Alt+F11?进入VBA编辑器。
在左侧导航栏右键点击?Normal?→?插入?→?模块，粘贴代码。
返回Word，通过?开发工具?→?宏?运行，或绑定到快捷键/按钮。
1.?批量替换文本
SubBatchReplaceText()
DimfindTextAsString
DimreplaceTextAsString
findText=InputBox(输入要查找的文本：)
IffindText=ThenExitSub
replaceText=InputBox(输入替换为的文本：)
WithSelection.Find
.Text=findText
.Replacement.Text=replaceText
.Forward=True
.Wrap=wdFindContinue
.MatchCase=False
.MatchWholeWord=False
.ExecuteReplace:=wdReplaceAll
EndWith
EndSub
2.?快速插入当前日期和时间
SubInsertDateTime()
Selection.TypeTextText:=Format(Now(),yyyy-MM-ddHH:mm:ss)
EndSub
3.?批量设置字体格式
SubSetFontFormat()
WithSelection.Font
.Name=宋体字体
.Size=12字号
.Bold=True加粗
.Color=wdColorRed颜色
EndWith
EndSub
4.?删除所有空行
SubDeleteEmptyLines()
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
WithSelection.Find
.Text=^p^p查找连续段落标记（空行）
.Replacement.Text=^p替换为单个段落标记
.ExecuteReplace:=wdReplaceAll
EndWith
EndSub
5.?快速生成目录
SubInsertTOC()
在光标位置插入目录（基于标题样式）
ActiveDocument.TablesOfContents.Add_
Range:=Selection.Range,_
UseHeadingStyles:=True,_
UpperHeadingLevel:=1,_
LowerHeadingLevel:=3
EndSub
6.?保存所有打开的文档
SubSaveAllDocuments()
DimdocAsDocument
ForEachdocInApplication.Documents
IfNotdoc.SavedThendoc.Save
Nextdoc
MsgBox所有文档已保存！
EndSub
7.?批量导出文档为PDF
SubExportToPDF()
DimsavePathAsString
savePath=InputBox(输入PDF保存路径（如：C:\Files\）)
IfsavePath=ThenExitSub
ActiveDocument.ExportAsFixedFormat_
OutputFileName:=savePath\ActiveDocument.Name.pdf,_
ExportFormat:=wdExportFormatPDF
MsgBox导出PDF完成！
EndSub
文档评论（0）