word 中怎么用宏改上百份一样的页面设置表格页边距上下23MM,左23MM，右20mm

表格页边距上下23MM,左23MM，右20mm

假设这上百份文件在一个文件夹中，后缀名都是.doc（.docx的话，把下面代码中的改了），建一新Word，也存到该文件夹。仅打开该新Word，按Alt+F11进入宏界面，点菜单的插入，模块，粘贴如下代码：
Sub test()
Application.ScreenUpdating = False
Dim MyDir As String
MyDir = ThisDocument.Path & "\"
ChDrive Left(MyDir, 1)
ChDir MyDir
Match = Dir$(".doc")
Do
If Not LCase(Match) = LCase(ThisWorkbook.Name) Then
Documents.Open Match
With ActiveDocument.PageSetup
    .TopMargin = CentimetersToPoints(2.3)
    .BottomMargin = CentimetersToPoints(2.3)
    .LeftMargin = CentimetersToPoints(2.3)
    .RightMargin = CentimetersToPoints(2)
End With
Documents(Match).Close 1
Match = Dir$
End If
Loop Until Len(Match) = 0
Application.ScreenUpdating = True
End Sub
在此界面按F5运行此宏，完成。
注：代码未验证，建议你先创建一文件夹，复制两份进去，再把这个文件也复制进去，试试。