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

翼★虎

413191246se，您辛苦了，昨天也网络搜索了代码含义，默认的“文档结构图”显示：
    ActiveWindow.DocumentMap = True
可以顺利排版，结束后可显示排版时间及排版文字数量。非常感谢。（偶尔有标题被误删除现象,连续返回发现{= 1 \* CHINESENUM3 \* MERGEFORMAT }），此问题在2003中测试也发现同样问题。

另外能否定义一级标题，二级标题 段落长度及者末尾字符判断？  比如标题（长度小于字符？）（标题一般段位不含标点符号？）

413191246se

翼★虎 朋友，可能你现在不用 Word 2003，不知道文档整体排版情况，我觉得现在这个版本经过无数次修正，已经变得相当完美了，你说的情况在我这儿没有问题。下面我附上一般 Word2003 小文档进行公文排版的图片：

翼★虎

413191246se，老师你好，很不好意思：对你的作品提出疑问。
为了测试一级标题被误删除，我换了几台电脑做了测试：win7 64位 office2007  / win10 64位 office2003（精简版）  / win10 64位office2010 在http://www.gov.cn/上随机找的公文测试，测试结果都是一样。可能是系统不一样、版本不一样导致的问题吧。  可以看出最后统计出来的数字明显少了。。。

413191246se

字数少了，也许有空格的问题，段落首尾空格都是要删除的。另外，除空格外，在 Word2003 中，我单位和我家里，都是相同的 2003 版本，但细微版本号不一样，但也没有问题，标题自动设置都是正确的，正常的汉字、数字和字母一个也不会少的。你可以试试在 2010 或 2016 中能否录制宏，自己试着修改。

翼★虎

413191246se  ，老师不好意思一次次重复着一个问题。老师，你方便的话加下我Q:361384838,方便沟通学习

我重新安装下office2003（win7 64位 重装系统）  重新试了试，结果跟我的截图一致。

413191246se

翼★虎 你好！——我的代码是在 Word2003 下，排版了无数的文档，是千锤百炼的，公文标题四个层次，我是严格执行的样式/格式，是毫无问题的；我在单位也用 Win7 32位专业版 + Word2003，在家用 Winxp SP3 + Word2003，排版均正常。建议你多排版几篇文章看看。另外，QQ去年卸载了，不想用了。

413191246se

你和我交流，我很高兴，咱们共同切磋、探讨，才会进步。有问题请继续提出来。

翼★虎

413191246se  ，老师不好意思,昨晚测试了下，昨晚逐条测试了下发现Title2345AutoNum 执行过程中出错，屏蔽后可以排版，不会出现标题丢失现象。

另外就是本机排版 报错： If Not .Paragraphs(3).Range.Information(12) And Len(.Paragraphs(3).Range) = 1 Then

413191246se

* Title2345AutoNum宏：将样式为标题2、3、4、5的段落（表格除外）统一自动编号，即使键入 一、XX；一、XX；一、XX，此宏照样可以将其自动编号为：一、XX；二、XX；三、XX。但如此在你的电脑中此宏出错，可以屏蔽之，不用它，只不过标题2345各个样式要目视校对了（否则不用校对，自动编号）。
* 本机排版宏：如果正常公文排版，样式看着不对，可以用此模式排版。它是将文档中表格全部复制到一个临时文件中，再进行只有文字的公文排版；然后，再把表格复制回原来的位置。一般情况下还是尽量要用公文排版（热键F8，只须按一下 F8 即可进行公文排版）。
* 如果喜欢这个初级自动排版程序，可以经常使用。但因为水平有限，仅仅是初级排版，对付小文档还行；高级功能我还不会（比如：题注、脚注、尾注、修订、审阅等）。
* 在我单位电脑 Win7+Office2003、家里电脑 WinXP+Office2003上，排版均是流畅自如，毫无问题。
* 请提供一下这两个宏出错所用的示例文档（附件）。

413191246se

排版前后字数不同，有可能是空格、半角、全角引起的，正常的汉字、数字、字母不会有误删的，请放心。如果不放心，可以找一篇比较长的文档，进行公文排版，排版后，另存为一个新文件名，然后和原文档进行双窗口比对，我想正常文字不会缺失。