WORD文档中的宏代码操作（多个文档自动处理，统一格式）

2024-07-07 15:25| 来源: 网络整理| 查看: 265

多个word文档自动处理格式问题

把要处理的文档放到同一个文件夹，并复制文件路径。（这次处理同格式的文件）批量操作word文档的代码如下：

Sub 批量操作WORD() Dim path As String Dim FileName As String Dim worddoc As Document Dim MyDir As String MyDir = "C:\Users\XiaoYao\Desktop\维护月报" '文件夹路径根据需要自己修改，需要处理的文件都放该文件夹内 FileName = Dir(MyDir & "\*.doc*", vbNormal) Do Until FileName = "" If FileName ThisDocument.Name Then Set worddoc = Documents.Open(MyDir & "\" & FileName) worddoc.Activate Call 宏1 '调用宏,换成你自己宏的名字 worddoc.Close True FileName = Dir() End If Loop Set worddoc = Nothing End Sub

上方调用其他函数“宏1”，来调整每个文档中要处理的格式问题。

Sub 宏1() Selection.Style = ActiveDocument.Styles("标题 1") Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter Selection.Font.Bold = wdToggle Selection.Font.Name = "宋体" Selection.Font.Size = 12 Selection.Style = ActiveDocument.Styles("正文文本缩进") For i = 1 To ActiveDocument.Tables.Count 'For循环，从第一个表到最后一个表循环；Tables.Count文档内的表格数量 ActiveDocument.Tables(i).Select '从第一个表格开始逐个选中 Selection.Font.Name = "宋体" '设置选中表格的字体 Selection.Font.Size = 12 '是指选中表格的字号 Next End Sub

也可以多次运行，每次改其中一个格式代码。点击运行“ 批量操作WORD” 后，会把每个要自动修改格式的word打开来修改。

【本文地址】

公司简介

联系我们