word vba 批量设置格式页码等

xmirage · 发表于 2010-11-10 00:02

为了批量修改网上课程讲义，用vba实现如下目标，部分代码借鉴论坛上朋友们的成果,一并感谢：
1、删除原先页眉页脚
2、批量增加页脚页码，三种形式（可选择，需修改代码）：1.2.3或1/3,2/3,3/3（页数/总页数）或第X页共Y页；
3、批量增加页眉为文档标题
4、修改页边距
5、表格居中
6、原先红字部分强调内容，改为黑色字并加下划线。
见附件。

[ 本帖最后由 xmirage 于 2010-11-10 21:16 编辑 ]

ysdms · 发表于 2010-11-10 01:40

分个节，再插入页码或一些域就可解决的，，为什么点点鼠标的操作要写这么多代码呢，不解？

xmirage · 发表于 2010-11-10 08:05

一是因为文档很多，想用vba实现批量。
二是为了学习vba。

szqhb · 发表于 2010-11-10 10:07

我已经找到了方法，稍后有空再做一个

但是总不可能在页眉、页脚中同时设置页码和多种页码的格式吧？

[ 本帖最后由 szqhb 于 2010-11-10 14:55 编辑 ]

szqhb · 发表于 2010-11-10 16:57

按附件内的按钮即可
代码请看附件，里面有注释

批量删除页眉页脚并重设页脚.rar (11.42 KB, 下载次数: 678)

xmirage · 发表于 2010-11-10 19:08

谢谢帮助，学习。

sqhsqhli · 发表于 2010-11-14 14:34

要啥自行车啊

tangqingfu · 发表于 2010-11-15 00:25

谢谢楼主和szhqb兄的分享，收藏学习！

[ 本帖最后由 tangqingfu 于 2010-11-15 00:28 编辑 ]

12doom · 发表于 2011-5-10 11:07

谢谢先收下，学习了

登斯楼 · 发表于 2011-11-18 12:45

试试看，谢谢。

		自动登录	找回密码
密码			免费注册

[已解决] word vba 批量设置格式页码等

又是东拼西凑的代码，可以达到楼主的要求

[已解决] word vba 批量设置格式 页码等

又是东拼西凑的代码，可以达到楼主的要求

[已解决] word vba 批量设置格式页码等