求批量调整页边距脚本

dfdq

一个文档，里面有的是横版，有的是竖版，想批量调整横版或者竖版的页边距设置，怎么做比较简单，是不是需要vba啊

413191246se

*** 用VBA固然可以，但我试验一下，发现可以手动，方法如下：
WORD中，按第7个按钮“打印预览”到预览界面，再把“放大镜”点击一下处于可编辑状态，然后，点击“多页”按钮（像“田字格”的那个按钮）向右下方拖动一下，最好将显示比例设置为25%；
然后，用鼠标选定横向纸张上的一些字符，再按住 CTRL 键不松手，再选定别的横向纸张上的一些字符……；
然后，点击：文件菜单——页面设置——自行设置页边距——应用于：所选节——确定，这时再观察，各个横向纸张已经按你设置的页边距设置好了，纵向纸张的亦同样道理。
*** 以上方法仅针对可见的有少数页数的文档，如果文档页数太多，此法就不适宜了，恐有遗漏嫌疑……，此时可以用 VBA 处理（初步算法是：循环遍历各个“节”，如果本节是纵向纸张，则页边距多少多少；如果是横向纸张，则页边距多少多少）。

277

哎。。。。。不懂哇。。。。。同样的问题

遥控器78

我也遇到这问题了，一个文件里好多节，有横版和竖版，页边距都不相同，想批量设置横版和竖版的页边距，有大神写个代码吗？谢谢了！

413191246se

1. Sub PaperSetup()
   
2.     Dim s As Section
   
3.     For Each s In ActiveDocument.Sections
   
4.         With s.PageSetup
   
5.             If .Orientation = wdOrientPortrait Then
   
6.                 .TopMargin = CentimetersToPoints(2.54)
   
7.                 .BottomMargin = CentimetersToPoints(2.54)
   
8.                 .LeftMargin = CentimetersToPoints(3.17)
   
9.                 .RightMargin = CentimetersToPoints(3.17)
   
10.                 .PageWidth = CentimetersToPoints(21)
    
11.                 .PageHeight = CentimetersToPoints(29.7)
    
12.             Else
    
13.                 .TopMargin = CentimetersToPoints(2.5)
    
14.                 .BottomMargin = CentimetersToPoints(2.5)
    
15.                 .LeftMargin = CentimetersToPoints(2.54)
    
16.                 .RightMargin = CentimetersToPoints(2.54)
    
17.                 .PageWidth = CentimetersToPoints(29.7)
    
18.                 .PageHeight = CentimetersToPoints(21)
    
19.             End If
    
20.             .HeaderDistance = CentimetersToPoints(1.5)
    
21.             .FooterDistance = CentimetersToPoints(1.75)
    
22.         End With
    
23.     Next
    
24. End Sub
    

复制代码

遥控器78

413191246se 发表于 2020-8-10 19:01

解决我的大问题了，经常遇到这种情况，太感谢了！

QBCPA

及时雨呀，解决的大问题。