Word2003VBA 通用模板宏（2019元旦版）更新：2018-12-29

413191246se

* 最新更新：2018-12-29
* 标题4段落有冒号时，也保留标点符号（一般是句号）；如果没有，则添加。
* 切换页码宏按钮：重新找回来，比如1页或2页文档不想要页码，点此按钮即可切换有无。
* 根据 ming0018 老师的代码，得出一个结论：Do While .Execute 在循环语句中尽量保留一个 .Execute，而不要在 .Execute 后面再加上 “aa",,,1,,,1 这样的表达式，查找速度会提高不少，本次更新也全部更新重写了一下，把 .Text="aa" 放在循环外部。
* 排版后，落款日期有可能不是右空四个汉字，请各位留意一下，点击标尺，右缩进拖动一下，或直接选中落款日期，将其段落格式中右缩进设置为 4.5 字符即可。
* 排版后，保存时建议按“另存为”按钮，保存后是页宽视角保存，其它方法保存请先点击页宽按钮再保存。
* 由于本人用不到目录，所以 Title2345AutoNum 宏最后一行，删除了全文的域，需要域的朋友请注意。

413191246se

顶！——公文排版后，文档全文是 1.5 倍行距，如果想省纸，可以点击“减少行距”/“增加行距”按钮，这样，正文部分就选中了，再点击“格式“菜单——段落——设置为 1.25 倍比较好；如果想一劳永逸，可以按 Alt + F8 组合键打开宏名列表，选中任意一个宏，再点击右边“编辑”按钮，进入到 VBE 环境中，再按 Ctrl + Home 组合键将光标置于文首，点击工具栏上“查找”按钮，点击“替换”按钮，在“查找框”中键入 1.5，“替换为”框中键入 1.25，再点击“全部替换”，OK！退出 Word，再重新打开就可以了（不过要是模板崩溃了，需要重新操作）。

wanghx8866

+
老师2013怎么按装

413191246se

楼上朋友：我这些宏代码都是在 Word2003 下运行的，一般可能在 2007 中也能正常运行，但 2013 不好说。另外，这些代码不用安装，在 Word2003 下只须导入即可，下载的压缩包中有 Readme 说明。如果 2013 不能使用，楼上朋友又对 VBA 感兴趣，可以试着录制宏或搜索网络查找相关帮助信息。谢谢关注！

413191246se

顶——这是最新版本，比较满意，请各位朋友重新下载。

翼★虎

413191246se，您辛苦了，在2019年元旦之际，给你拜个年。

下载并安装在office2010中，测试了发现公文或者普通，排版完成后会提示：运行错误“5891”该属性无法用于那个对象，调试发现： ActiveWindow.DocumentMapPercentWidth = 20 标示黄色。

另外，公文中标题：一、二、之类的标示，会被删除段落标题名称，排版一/二到正文中。。。
麻烦帮忙看看是不是因为版本问题造成的？

谢谢

山东乐易行

谢谢分享！

山东乐易行

win10能用吗？

413191246se

楼上朋友：这个不清楚，我这些宏代码是运行在 2003 下的。如果对宏感兴趣，可以在网络上搜索相关知识。

413191246se

翼★虎 朋友，你好！
* ActiveWindow.DocumentMapPercentWidth = 20 这行代码是将“文档结构图”设置为20%比例显示，如果有错误，试试默认的“文档结构图”显示：
    ActiveWindow.DocumentMap = True
如果还不行，可以屏蔽这行代码（方法是在该行代码最前面打一个小撇儿'），或删除这行代码。
* 关于标题问题，我所有代码在 Word2003 下运行良好，几乎都是千锤百炼的了，所以，在 2010 中有问题，应该是版本的问题。
* 如果对宏感兴趣，可以尝试录制宏，相关知识可以搜索网络。谢谢关注！