word宏令整理文章相关的一点小玩意.docVIP

word宏命令整理文章相关的一点小玩意 方便整理攒成一团只用各种空格分隔开的文章的快捷整理宏，用MIC word录制而成，本意是专门整理法规类得，也可以用在其他用空格分隔的文章的整理之上，一点小玩意而已，高手勿笑 使用方法，MIC WORD--工具--宏--宏--创建，然后把下面的复制进去 Sub MacrossW() MacrossW Macro 宏在 2011-5-10 由 雨林木风 录制 Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = 总　　则 .Replacement.Text = 总则 .Forward = True .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = 分　　则 .Replacement.Text = 分则 .Forward = True .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = 附　　则 .Replacement.Text = 附则 .Forward = True .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = 罚　　则 .Replacement.Text = 罚则 .Forward = True .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = 条