Word 为每一页设置不同页边距（VBA 宏）
在Word中，默认情况下所有页面的页边距是相同的，但你可以通过插入“分节符”来为不同页面设置不同的页边距。以下是详细步骤：
✅ 步骤：为每一页设置不同的页边距
第一步：插入分节符（每页一节）
将光标放在第一页的末尾。
点击顶部菜单栏的 “布局” → “分隔符” → “分节符（下一页）”。
对每一页末尾重复这个操作，直到每一页都成为独立的一节。
提示：你可以打开“显示/隐藏编辑标记”（¶）来查看分节符是否插入成功。
第二步：设置各页的页边距
双击进入第二页（或你想设置不同边距的页面）。
点击 “布局” → “页边距” → “自定义页边距”。
在弹出的窗口中设置你想要的边距数值。
关键：在“应用于”下拉菜单中选择 “本节”，然后点击“确定”。
第三步：重复设置其他页
对每一节（即每一页）重复第二步，设置不同的页边距。
🔍 小技巧
如果有很多页，建议使用“导航窗格”或“大纲视图”快速定位每一节。
若后续添加或删除内容，分节符位置可能变动，需重新检查。
✅ 总结
Word 无法直接为“每一页”设不同边距，但可以通过**“每页插入一个分节符”**实现。虽然繁琐，但这是唯一可靠的方法。
如你有很多页，可以用VBA宏来自动为每一页插入分节符并设置边距
打开 Word →
Alt + F11→ 菜单“插入”→“模块”把下面代码整块粘进去 → 关闭 VBA 编辑器
回到 Word →
Alt + F8→ 选SetDifferentMarginsPerPage→ 点“运行”按提示输入每一节的边距（可以一路回车用同一套数值，也可以随时改）
运行完保存文件即可
'==================== 宏：为每一页设置不同页边距 ====================
Sub SetDifferentMarginsPerPage()Dim sec As Section, pg As RangeDim cm2pt As Double: cm2pt = 28.34646 '1 cm = 28.34646 ptDim top#, bottom#, left#, right#Dim msg As String, ans As VbMsgBoxResultDim i As Long, secCount As Long'---- 1. 先把“分页符”升级成“分节符（下一页）” ----' 这样每一页就真正独立成一节Selection.HomeKey wdStoryDoSelection.Find.ClearFormattingWith Selection.Find.Text = "^m" '分页符.Forward = True.Wrap = wdFindStop.Format = FalseEnd WithIf Not Selection.Find.Execute Then Exit DoSelection.InsertBreak Type:=wdSectionBreakNextPageLoop'---- 2. 逐节询问边距 ----secCount = ActiveDocument.Sections.CountFor i = 1 To secCountSet sec = ActiveDocument.Sections(i)'默认用当前节已有数值（单位已换算成 cm）With sec.PageSetuptop = 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 Stringret = InputBox(msg, "页边距设置", top & " " & bottom & " " & left & " " & right)If ret = "" Then Exit Sub '用户取消On Error Resume NextDim arr: arr = Split(ret)If UBound(arr) < 3 ThenMsgBox "输入格式错误！请用空格分隔 4 个数字。", vbExclamationi = i - 1: GoTo ContinueLoopEnd Iftop = 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 * cm2ptEnd WithContinueLoop:Next iMsgBox "全部页边距已按节设置完成！", vbInformation
End Sub'======================================================================搞定！以后无论多少页，跑一遍宏就能各自拥有独立的页边距了。