word页眉页脚距边界批量更改？

发布网友 发布时间：2022-02-20 02:39

我来回答

共2个回答

热心网友 时间：2022-02-20 07:00

word页眉页脚距边界的设置方法：

电脑：

产品名称：华硕 U4700I

产品型号：ASUS

系统版本：Windows 10

软件版本：wps office 11.1.0

首先打开word文档点击左上方的文件旁边的小箭头

然后点击文件，

选择页面设置

在弹出的页面设置对话框中选择版式

然后就可以设置页眉和页脚的距边界

总结

1.打开word文档

2.点击左上方的小箭头

3.选择[页面设置]

4.选择[版式]

5.设置[页眉页脚距边界]

热心网友 时间：2022-02-20 04:08

用宏就可以了，参考如下代码：Sub Example()
Dim myDialog As FileDialog, oFile As Variant, oDoc As Document
Set myDialog = Application.FileDialog(msoFileDialogFilePicker)
With myDialog
.Filters.Clear
.Filters.Add "所有 WORD 文件", "*.doc", 1
.AllowMultiSelect = True
If .Show <> -1 Then Exit Sub
For Each oFile In .SelectedItems
Set oDoc = Documents.Open(FileName:=oFile, Visible:=False)
With oDoc.PageSetup
.TopMargin = CentimetersToPoints(2.54)
.BottomMargin = CentimetersToPoints(2.54)
.LeftMargin = CentimetersToPoints(3.17)
.RightMargin = CentimetersToPoints(3.17)
End With
oDoc.Close True
Next oFile
End With
End Sub注：上面的2.54、2.54、3.17、3.17分别为上下左右的页边距值（厘米），根据自己的实际需要修改即可。