批量修改word页眉页脚

场景

多个word都需要加页眉，可以批量操作。

建议先备份文档，避免操作异常引起文档内容损坏或丢失。

操作步骤

在word中就可以进行批量改页眉页脚。

打开Microsoft Word。

按下Alt+F11组合键，这将打开Microsoft Visual Basic for Applications（VBA）编辑器。

在VBA编辑器中，点击“插入”菜单，然后选择“模块”。

将如下代码贴在窗口中。

Sub ChangeHeaders()Dim strFolder As String, strFile As StringDim doc As Document' 获取文件夹路径strFolder = "C:\your\folder\path\"strFile = Dir(strFolder & "*.docx")' 遍历文件夹中的所有.docx文件Do While strFile <> ""Set doc = Documents.Open(strFolder & strFile)' 更改页眉With doc.Sections(1).Headers(wdHeaderFooterPrimary).Range.Text = "新的页眉内容"For Each para In .Range.Paragraphspara.Alignment = wdAlignParagraphLeft ' 设置对齐方式，wdAlignParagraphLeft表示左对齐。可以替换为 wdAlignParagraphRight（右对齐）或wdAlignParagraphCenter（居中对齐）Next para.Range.Font.Name = "宋体" ' 设置字体名称.Range.Font.Size = 12 ' 设置字体大小End With' 保存并关闭文档doc.Close SaveChanges:=wdSaveChangesstrFile = DirLoopEnd Sub

根据你的需求修改代码，例如更改文件夹路径和页眉内容。对齐方式、字体、字体大小。

按下F5键或点击“运行”菜单中的“运行子/用户窗体”选项来运行代码。

运行后，没有生效，可能原因如下：（1）本地文件夹的路径没填对，我自己第一次运行的时候，少了最后面的“\”（2）word中需要启动宏，操作如下

“文件->开始->选项->信任中心->信任中心设置”

8. 运行效果如下，左对齐显示