页面设置的纵向和横向边距批量设置，可以吗

天空飘过啥

坛里的网友，大家好，新人第一次发贴，谢谢关照。

一个文档里有很几百页，中间有纵向和横向穿插着。
能否批量所有纵向的边距上下都是3厘米，左右2厘米
            所有横向的边距上下都是2厘米，左右是3厘米

谢谢！



纵向横向页面设置.rar (5.58 KB, 下载次数: 20)

2018-3-25 18:48 上传

点击文件名下载附件

duquancai

1. Sub test()
   
2.     Dim aSec As Section, aDoc As Document
   
3.     Set aDoc = ActiveDocument
   
4.     For Each aSec In aDoc.Sections
   
5.         With aSec.PageSetup
   
6.             If .Orientation = 0 Then
   
7.                 .TopMargin = CentimetersToPoints(3)
   
8.                 .BottomMargin = CentimetersToPoints(3)
   
9.                 .LeftMargin = CentimetersToPoints(2)
   
10.                 .RightMargin = CentimetersToPoints(2)
    
11.             Else
    
12.                 .TopMargin = CentimetersToPoints(2)
    
13.                 .BottomMargin = CentimetersToPoints(2)
    
14.                 .LeftMargin = CentimetersToPoints(3)
    
15.                 .RightMargin = CentimetersToPoints(3)
    
16.             End If
    
17.         End With
    
18.     Next
    
19. End Sub

复制代码

天空飘过啥

duquancai 发表于 2018-3-25 20:00

谢谢，解决了！