如何使用WordVBA快速进行页面设置？

24578901

有一个标准页面设置格式的Word，想用VBA把新建的文档中的页面，也设置为也标准格式的word一样的页面格式，请问如何可以实现？

普通的办法是把标准页面设置格式的Word的属性一个一读取出来，然后对新建的文档逐一复制，但是因为页面设置的属性太多了，如
Orientation
TopMargin
BottomMargin
LeftMargin
Gutter
PageHeight
......

对于某个段落来说，可以通过Copyformat可以实现格式刷的功能，但是对于整个页面能不能也有这样较为快速的方法呢？谢谢！！

413191246se

楼主，初步掌握 Word 其实只有三个要点：页面设置/字体格式/段落格式。
***录制《页面设置》宏方法：启动Word，点击：工具菜单/宏/录制新宏/键入 DefaultPageSetup开始录制，点击：文件菜单/页面设置/确定退出/停止录制。——将此宏拖放到工具栏做成一个宏按钮，重新命名为A4即可，以后在任何文档中点此A4按钮，即为标准默认A4纸张的页面设置（2.54/3.17）。
***录制《字体格式》宏方法：工具菜单/宏/录制新宏/键入 DefaultFontFormat开始录制，点击：编辑菜单/全选/格式菜单/字体/确定退出/停止录制。——想做成按钮就拖放到工具栏上吧！
***录制《段落格式》宏方法：工具菜单/宏/录制新宏/键入 DefaultParagraphFormat开始录制，点击：编辑菜单/全选/格式菜单/段落/确定退出/停止录制。——同上。
**********如果会用通用模板，建议楼主试用我的最新Word2003 通用模板（夏季版）。

24578901

413191246se 发表于 2015-6-5 16:12
楼主，初步掌握 Word 其实只有三个要点：页面设置/字体格式/段落格式。
***录制《页面设置》宏方法：启动W ...

刚录制了，我看了里边的代码，也是把标准格式的word页面的各个属性提取出来，然后进行设置的

413191246se

其实默认的页面设置，是指不分节的纵向文档来说的，要是有分节，有横向纸张，须对每节单独处理。（另外，我怀疑楼主，是否把《页面设置》和《字体格式》和《段落格式》搞混了？它们是三个不同的方面。前些年我搞通用模板时，就认识到了这个问题，初步掌握文档就是这三点：页面设置/字体/段落。）

413191246se

楼主，我刚发布了最新成果——Word2003 通用模板（夏季版）2015-6-5 正宗，如果你经常用 Word2003 的话，可以试用之，它能初步自动排版，有不少方便之处。

24578901

413191246se 发表于 2015-6-5 20:56
楼主，我刚发布了最新成果——Word2003 通用模板（夏季版）2015-6-5 正宗，如果你经常用 Word2003 的话，可 ...

你的东西我已经下载了，刚开始还以为是哪本书呢，没想到是你个人的呕心沥血的杰作。
我要的就是“页面格式”，例如页边距、页眉什么的。段落格式的话我是用copyformat这个方法，可是实现格式刷的功能，也就是段落与字体可以同时设置。
你说文档有分页符的话，我之前也没有考虑到，可以好好想想
我目前是用office 2013

413191246se

2013 好高级！2013 也支持 VBA 吧，如果你有兴趣，可以自己录制宏，进而编辑 VBA 宏，实现自动化排版。