Word2003 通用模板（元旦版）2014-1-1

七金五星

楼主真伟大，不知楼主什么时候有时间，我想想楼主请教几个问题！

413191246se

五星 你好！时间倒是常有，但未必我能回答了你的问题。因为我仅在录制宏的基础上修改一下，有的是抄袭网络上别人的代码，水平很低。至今为止，我仍然是一个VBA小菜鸟。——不知你的问题是什么？

tender888

谢谢楼主分享

limshanb

413191246se 发表于 2014-4-18 10:29
再顶一下，虽然编程水平很低，但对于简单排版还是比较有帮助的，模板里面也有一些初步的VBA代码可以供新手来 ...

我已经试验了你的模板，用清清爽爽或浓墨重彩功能，可以把第一个标题设置为标题，后面的标题不能自动识别。
我对标题的自动识别设定了两个条件，这两个条件要同时满足。
1、独立的段落，且字符数限制在一定的数目中，例如不超过17个汉字；
2、句尾没有任何标点符号。
同时满足以上两个条件，就识别为标题，然后让word设定为标题1样式。
若用VBA代码实现这个功能，应该是这样的思路：对于文档中的每个段落进行浏览，如果同时满足以上两个条件，就设定该段落为标题1样式（当然也可以设定为标题2样式）。
我用查找替换功能能够实现这个目的，但是录制成宏后，word就不能复原替换的操作步骤，用单步执行代码观察，word不能对字体颜色的设定与识别有效操作，所以我才到这里来寻求帮助。
你的模板可以处理简单文档，文章只设一个标题可以，但是对于这种只设一个标题的文档，也没有必要用功能来处理，单独的简单文档用word自带功能设定一下也费不了多大功夫。我要应对的是大量的，数百页、上千页的大型文档，还有当你负责编纂总成文档时，要把分散的、长短不一的、格式样式不一致的文档拿来通通格式化到一致的格式，因为有些人的标题不用标题样式，用的是正文样式，当你要查看他的文章结构时，也不能用大纲视图，很是不方便，所以我需要这样一个功能：把没有设置标题样式的文档，统统设置成用标题样式，这样才好审核、处理。这就是我提出这个需求的原因，我是工作需要才有这样的需求，过去我在这里向各位高手大侠寻求帮助，得益匪浅，我处理大型文档的效率比一般人高很多倍，例如5到10倍甚至更高，我看到我们办公室的所谓快手的女文书，需要两三天才能完成的排版工作，我用各位大侠提供的代码结合自己总结出来的各种方法，我只用1~2小时，甚至有的个别的情况在一瞬间就完成，我擅长巧妙地组合运用但VBA水平太烂。
本论坛给我提供了一个非常有用的代码，能够把非段落换行的混乱的文字一下子变成非常漂亮的排版，我说的瞬间完成排版就是用的这个代码。这个代码是高手Sylun先生提供的，我一直感恩。

413191246se

limshanb 你好！——的确，sylun和守柔版主一样，都是高手！——针对你提出的问题，每个段落字长小于17这个容易，但段落结尾确保它不是汉字，这个我不太清楚，只好用列举法罗列一些例子，放在中括号[]中，并且前面加英文叹号!表示否定，“不是”的意思，请试试如下代码（不成熟，这个问题得高手来解决），按我的要求去做一下吧！
将下面的代码复制到我的模板中《清清爽爽》宏的最后，End Sub之前：
'insert new macro 当某段落长度小于17个字符且不以句号等标点符号结尾时，设置为标题一
    Dim i As Paragraph
    For Each i In ActiveDocument.Paragraphs
        If Len(i.Range) <= 18 And i.Range Like "*[!。，、；：？！）｝】….,;:?!)}]" & vbCr Then
            i.Range.Style = ActiveDocument.Styles(wdStyleHeading1)
            i.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
        End If
    Next
然后，把《清清爽爽》这个宏中的”称呼“一行语句上面的那个语句：Title1Auto前面加个撇号'，即把这个语句注释掉，不用它，或删除也可。保存关闭VBE环境，试试吧！
* 另外，在上面罗列的各种标点符号中，没有英文和汉语的双引号和单引号，如果需要排除这种情况，自己主动键入吧！——反正，这个宏不是科学的，只能是勉强对付着用。
* 水平有限，敬请原谅，谢谢！——如仍有问题，请继续在此帖提出，我能解决的一定帮忙。

chris1998

多谢分享好东东啊！

huangyz_xy

我用的是word2010，如何才能用上啊，试了很久了都不行！

wcm_xp

版主：学习。谢谢