Word2003 通用模板宏《2017春节版-SP1》！！！

jiminyanyan

weiyingde 发表于 2017-4-12 21:27
413191246se ,我集众人代码，合成了一个格式整理的程序，可惜不能把这篇文档按要求整理出来——即不能消除 ...

http://club.excelhome.net/forum. ... ead&tid=1323258
参考这个帖子，有时候，手工操作也一两分钟搞定，不要一句代码．．．．

jiminyanyan

jiminyanyan 发表于 2017-4-12 22:50
http://club.excelhome.net/forum.php?mod=viewthread&tid=1323258
参考这个帖子，有时候，手工操作也一 ...

或者可以考虑把这个查找替换写成ＶＢＡ．．．．．

jiminyanyan

Sub 宏1()
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "([!。：！？……）])^13"
        .Replacement.Text = "\1"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

weiyingde

jiminyanyan 发表于 2017-4-13 10:58
Sub 宏1()
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting

具体情况是这样的，见代码中的注释：
Sub 处理断行()
With ActiveDocument.Content
    With .Find
         '.Execute "([!\[\(【）]@[!一二三四五六七八九十甲乙丙丁]@[!\]】\)）]@[、\.． 　]@*[!，：。？！”》]{1,})^13", , , 1, , , , , , "\1", 2 '处理断行:排除带有标号的小标题
         '比如，下面的标题后面都没有标点，都不能视为断行，所以要排除一些情况。
         '（1）、Word VBA 讲座
         '[甲]、中国的边疆
         '【丙】.中考专题—标点符号的用法
         '一、中国“四大名著”复习
    End With
    With .Find
          .Replacement.Font.NameFarEast = "方正康体简体"
          .Replacement.Font.ColorIndex = wdDarkBlue
          .Replacement.Font.Size = 15
          .Execute "([\[【(（]@[一二三四五六七八九十甲乙丙丁]{1,})([\]】)）]@[、, 　]@*^13)", , , , , , , , , "^&", 2 '处理标题
          .Execute "([一二三四五六七八九十]@[、,]*^13)", , , 1, , , , , , "^&", 2
    End With
End With
End Sub

请帮我看看取作用的两行代码。

jiminyanyan

weiyingde 发表于 2017-4-13 19:43
具体情况是这样的，见代码中的注释：
Sub 处理断行()
With ActiveDocument.Content

可否做个需要处理断行的附件上来......

weiyingde

jiminyanyan 发表于 2017-4-13 20:28
可否做个需要处理断行的附件上来......

自己优化了一下，解决了一些问题，还有两个毛病：
作为小标题该断却连，该连却断
我附上附件，你帮我测试调解一下，我基本花了一天的时间。

weiyingde

weiyingde 发表于 2017-4-13 22:15
自己优化了一下，解决了一些问题，还有两个毛病：
作为小标题该断却连，该连却断
我附上附件，你帮我测 ...

在附件中，单独处理这两个问题时候，没有出现类似的情况，但是融入主程序中，就出毛病了。程序替换较多，不知在那个替换上有纰漏。请帮我看看。

weiyingde

jiminyanyan 发表于 2017-4-13 20:28
可否做个需要处理断行的附件上来......

优化了一个问题，又来了一个问题：
原代码：.Execute "([!\[\(【（第]@)([!A-Z一二三四五六七八九十甲乙丙丁]{1,})([!\]\)】）]@)([、，．\.]@)(*)([!。：！？……）\)])^13", , , 1, , , , , , "\1\2\3\4\5\6", 2 '处理断行,排除带有标号的小标题。
将宏色代码删除，运行代码后，不会出现
将“（1）、Word VBA讲座”折行为：
“（1）、Word
VBA讲座
但同时问题又来了，如果小标题是这样：（A）、Word VBA讲座，又不会视为小标题了

jiminyanyan

weiyingde 发表于 2017-4-14 11:32
优化了一个问题，又来了一个问题：
原代码：.Execute "([!\[\(【（第]@)([!A-Z一二三四五六七八九十甲乙 ...

有些问题，代码做的不是很完美，也只能手工较对调整，算是半自动吧．．．．

weiyingde

jiminyanyan 发表于 2017-4-14 12:48
有些问题，代码做的不是很完美，也只能手工较对调整，算是半自动吧．．．．

是的，很难调试，继续在调试，很不稳定，不知是什么原因——肯定是不完美的。若有时间，请你帮帮忙，将代码查查，看哪儿表达不规范。谢谢你