word合并文档，如何按文件名递增顺序合并？

413191246se

楼主，要想版面一样，似乎比较难，因为需要用到文档分“节”，这个“节”比较难搞（我只是简单地复制原文件合并到一起）。

sblisb

413191246se 发表于 2019-5-1 00:55
楼主，要想版面一样，似乎比较难，因为需要用到文档分“节”，这个“节”比较难搞（我只是简单地复制原文件 ...

谢谢
节的设置在哪看呀？我想是不是纸张张页边距的问题？
我原来是用一个原有的文档，删了内容，然后复制过来格式就一样了，要不改一下运行时不要新建文档，只要生成在本文档（运行宏时打开的文档）就行了？
或者宏能不能设置页边距？设为上1.5cm,下2.5cm,左1.9cm,右1.9cm，无装订线就行了。

1. 找到一个，如何加到你的代码中去？
   
2. 下面的WAPP是事先定义的word文档工程变量。
   
3. 　　以下代码为通过VBA代码来实现页面的页边距、纸张纵向、装定线、页眉页静等。
   
4. 　　复制代码
   
5. 　　代码如下:
   
6. 　　WApp.ActiveDocument.PageSetup.LineNumbering.Active =0;//行编号
   
7. 　　WApp.ActiveDocument.PageSetup.Orientation =Microsoft.Office.Interop.Word.WdOrientation.wdOrientPortrait;//页面方向
   
8. 　　WApp.ActiveDocument.PageSetup.TopMargin =WApp.CentimetersToPoints(float.Parse("2.54"));//上页边距
   
9. 　　WApp.ActiveDocument.PageSetup.BottomMargin = WApp.CentimetersToPoints(float.Parse("2.54"));//下页边距
   
10. 　　WApp.ActiveDocument.PageSetup.LeftMargin = WApp.CentimetersToPoints(float.Parse("3.17"));//左页边距
    
11. 　　WApp.ActiveDocument.PageSetup.RightMargin = WApp.CentimetersToPoints(float.Parse("3.17"));//右页边距
    
12. 　　WApp.ActiveDocument.PageSetup.Gutter = WApp.CentimetersToPoints(float.Parse("0"));//装订线位置

复制代码

413191246se

请将下面代码小段加到该宏末尾（即加在宏结束符 End Sub 上面一行）试试。

1. '页面设置
   
2.     With ActiveDocument.PageSetup
   
3.         .TopMargin = CentimetersToPoints(1.5)
   
4.         .BottomMargin = CentimetersToPoints(2.5)
   
5.         .LeftMargin = CentimetersToPoints(1.9)
   
6.         .RightMargin = CentimetersToPoints(1.9)
   
7.         .Gutter = CentimetersToPoints(0)
   
8.         .HeaderDistance = CentimetersToPoints(1.5)
   
9.         .FooterDistance = CentimetersToPoints(1.75)
   
10.         .PageWidth = CentimetersToPoints(21)
    
11.         .PageHeight = CentimetersToPoints(29.7)
    
12.     End With

复制代码

侠之大者为Excel

413191246se 发表于 2019-5-2 01:28
请将下面代码小段加到该宏末尾（即加在宏结束符 End Sub 上面一行）试试。

答主的回复版面好清新独特 咋弄的哈