Word 为每一页设置不同页边距（VBA 宏）

在Word中，默认情况下所有页面的页边距是相同的，但你可以通过插入"分节符"来为不同页面设置不同的页边距。以下是详细步骤：

✅ 步骤：为每一页设置不同的页边距

第一步：插入分节符（每页一节）

将光标放在第一页的末尾。
点击顶部菜单栏的 "布局" → "分隔符" → "分节符（下一页）"。
对每一页末尾重复这个操作，直到每一页都成为独立的一节。

提示：你可以打开"显示/隐藏编辑标记"（¶）来查看分节符是否插入成功。

第二步：设置各页的页边距

双击进入第二页（或你想设置不同边距的页面）。
点击 "布局" → "页边距" → "自定义页边距"。
在弹出的窗口中设置你想要的边距数值。
关键：在"应用于"下拉菜单中选择 "本节"，然后点击"确定"。

第三步：重复设置其他页

对每一节（即每一页）重复第二步，设置不同的页边距。

🔍 小技巧

如果有很多页，建议使用"导航窗格"或"大纲视图"快速定位每一节。
若后续添加或删除内容，分节符位置可能变动，需重新检查。

✅ 总结

Word 无法直接为"每一页"设不同边距，但可以通过**"每页插入一个分节符"**实现。虽然繁琐，但这是唯一可靠的方法。

如你有很多页 ，可以用VBA宏来自动为每一页插入分节符并设置边距

打开 Word → Alt + F11 → 菜单"插入"→"模块"
把下面代码整块粘进去 → 关闭 VBA 编辑器
回到 Word → Alt + F8 → 选 SetDifferentMarginsPerPage → 点"运行"
按提示输入每一节的边距（可以一路回车用同一套数值，也可以随时改）

运行完保存文件即可

'==================== 宏：为每一页设置不同页边距 ====================
Sub SetDifferentMarginsPerPage()
Dim sec As Section, pg As Range
Dim cm2pt As Double: cm2pt = 28.34646 '1 cm = 28.34646 pt
Dim top#, bottom#, left#, right#
Dim msg As String, ans As VbMsgBoxResult
Dim i As Long, secCount As Long

复制代码

 '---- 1. 先把"分页符"升级成"分节符（下一页）" ----
 '    这样每一页就真正独立成一节
 Selection.HomeKey wdStory
 Do
     Selection.Find.ClearFormatting
     With Selection.Find
         .Text = "^m"                '分页符
         .Forward = True
         .Wrap = wdFindStop
         .Format = False
     End With
     If Not Selection.Find.Execute Then Exit Do
     Selection.InsertBreak Type:=wdSectionBreakNextPage
 Loop

 '---- 2. 逐节询问边距 ----
 secCount = ActiveDocument.Sections.Count
 For i = 1 To secCount
     Set sec = ActiveDocument.Sections(i)

     '默认用当前节已有数值（单位已换算成 cm）
     With sec.PageSetup
         top = Round(.TopMargin / cm2pt, 2)
         bottom = Round(.BottomMargin / cm2pt, 2)
         left = Round(.LeftMargin / cm2pt, 2)
         right = Round(.RightMargin / cm2pt, 2)
     End With

     '弹窗输入
     msg = "第 " & i & " 节（共 " & secCount & " 节）边距设置：" & vbCrLf & _
           "请输入上、下、左、右间距（厘米，用空格分隔）："

     Dim ret As String
     ret = InputBox(msg, "页边距设置", top & " " & bottom & " " & left & " " & right)
     If ret = "" Then Exit Sub   '用户取消

     On Error Resume Next
     Dim arr: arr = Split(ret)
     If UBound(arr) < 3 Then
         MsgBox "输入格式错误！请用空格分隔 4 个数字。", vbExclamation
         i = i - 1: GoTo ContinueLoop
     End If
     top = CDbl(arr(0)): bottom = CDbl(arr(1))
     left = CDbl(arr(2)): right = CDbl(arr(3))
     On Error GoTo 0

     '真正写入本节
     With sec.PageSetup
         .TopMargin = top * cm2pt
         .BottomMargin = bottom * cm2pt
         .LeftMargin = left * cm2pt
         .RightMargin = right * cm2pt
     End With

ContinueLoop:
Next i

复制代码

 MsgBox "全部页边距已按节设置完成！", vbInformation

End Sub

'======================================================================

搞定！以后无论多少页，跑一遍宏就能各自拥有独立的页边距了。