Word批量调整页边距有三种高效方法：一、用模板法，通过Normal.dotm设默认值并分发.dotx模板；二、用VBA宏遍历文件夹自动修改.docx的PageSetup边距参数；三、用Kutools等第三方工具图形化批量处理。
如果您需要为多个Word文档统一调整页面边距，手动逐个设置将耗费大量时间。以下是实现Word批量调整页面边距的几种高效操作流程：
一、使用Word模板批量应用页边距
通过创建并分发自定义模板，可确保所有基于该模板新建的文档自动采用预设页边距。此方法适用于新文档的标准化部署。
1、打开空白Word文档，点击【布局】→【页边距】→【自定义页边距】。
2、在弹出对话框中设置上、下、左、右数值，点击【设为默认值】→选择【所有文档基于Normal.dotm模板】→确认。
3、另存为Word模板文件（.dotx），将该文件复制到其他电脑的Word启动文件夹中，即可实现多机同步应用。
二、利用VBA宏一次性修改多个已存在文档
VBA宏可遍历指定文件夹内全部.docx文件，自动修改其页面边距参数，无需人工打开每个文档，适用于已有文档的批量修正。
1、新建一个Word文档，按Alt+F11打开VBA编辑器。
2、在左侧工程资源管理器中右键【Normal】→【插入】→【模块】。
3、粘贴以下代码（以设置上下2.54cm、左右3.17cm为例）：
Sub BatchSetMargins()
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
If fd.Show = -1 Then
ChDir fd.SelectedItems(1)
Dim doc As Document
Dim fso As Object: Set fso = CreateObject("Scripting.FileSystemObject")
Dim folder As Object: Set folder = fso.GetFolder(fd.SelectedItems(1))
Dim file As Object
For Each file In folder.Files
If LCase(fso.GetExtensionName(file.Name)) = "docx" Then
Set doc = Documents.Open(file.Path)
With doc.PageSetup
.TopMargin = CentimetersToPoints(2.54)
.BottomMargin = CentimetersToPoints(2.54)
.LeftMargin = CentimetersToPoints(3.17)
.RightMargin = CentimetersToPoints(3.17)
End With
doc.Save
doc.Close
End If
Next
End If
End Sub
4、按F5运行宏，选择目标文件夹，执行后所有.docx文档页边距将被统一更新。
三、借助第三方工具快速批量处理
部分专业文档处理工具支持图形化界面操作，无需编程基础，可对多个Word文件进行页边距等格式参数的集中配置与写入。
1、下载并安装支持Office批量处理的工具（如Kutools for Word或Batch DOCX Converter）。
2、启动工具，选择【批量修改页边距】功能模块。
3、添加待处理的Word文件或整个文件夹，勾选【应用到所有节】选项。
4、输入目标边距数值，点击【开始处理】按钮，工具将自动打开、修改并保存每个文档。
5、处理完成后检查任意一个输出文档，确认PageSetup对象中的TopMargin、LeftMargin等属性值已准确写入。
