文档整理工具终结版代码

《文档整理工具终结版代码》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、文档整理工具终结版代码'2009元宵终极完美版Sub一键表格转文本()'一键表格转文本Selection.Rows.ConvertToTextSeparator:=wdSeparateByParagraphs,_NestedTables:=TrueEndSubSub清除选区格式()'清除选区格式Selection.ClearFormattingEndSubSub一键整理_Word格式()''一键整理通用文档：标准Word格式Call清除选区格式Call一键整理文档_网页格式EndSubSub一键整理文档_网页格式()''一键整理网页：保留网页格式Call智能清除选区软回车Call清除

2、选区段首2字空格Call清除选区2单字节空格Call清除选区TabCall清除选区多余空段Call选区段首缩进2字Call合并选区多余分段EndSubSub智能清除选区软回车()''智能清除选区软回车WithSelection.Find.Text="?^l".Replacement.Text="^&^p".Forward=True.Wrap=wdFindContinue.Format=False.MatchCase=False.MatchWholeWord=False.MatchByte=False.MatchAllWordForms=False.MatchSoundsLike=Fa

3、lse.MatchWildcards=TrueEndWithSelection.Find.ExecuteReplace:=wdReplaceAllWithSelection.Find.Text="^1^l".Replacement.Text="^&^p"EndWithSelection.Find.ExecuteReplace:=wdReplaceAllWithSelection.Find.Text="^l".Replacement.Text=""EndWithSelection.Find.ExecuteReplace:=wdReplaceAllEndSubSub清除选区多余空段()'

4、'清除选区多余空段（233223222）WithSelection.Find.Text="^p^p".Replacement.Text="^p".MatchWildcards=FalseEndWithSelection.Find.ExecuteReplace:=wdReplaceAllWithSelection.Find.Text="^p^p^p".Replacement.Text="^p".MatchWildcards=FalseEndWithSelection.Find.ExecuteReplace:=wdReplaceAllWithSelection.Find.Text="^p

5、^p^p".Replacement.Text="^p".MatchWildcards=FalseEndWithSelection.Find.ExecuteReplace:=wdReplaceAllWithSelection.Find.Text="^p^p".Replacement.Text="^p".MatchWildcards=FalseEndWithSelection.Find.ExecuteReplace:=wdReplaceAllWithSelection.Find.Text="^p^p".Replacement.Text="^p".MatchWildcards=FalseE

6、ndWithSelection.Find.ExecuteReplace:=wdReplaceAllWithSelection.Find.Text="^p^p^p".Replacement.Text="^p".MatchWildcards=FalseEndWithSelection.Find.ExecuteReplace:=wdReplaceAllWithSelection.Find.Text="^p".Replacement.Text="^p".MatchWildcards=FalseEndWithSelection.Find.ExecuteReplace:=wdReplaceAll

7、WithSelection.Find.Text="^p^p".Replacement.Text="^p".MatchWildcards=FalseEndWithSelection.Find.ExecuteReplace:=wdReplaceAllWithSelection.Find.Text="^p^p".Replacement.Text="^p".MatchWildcards=FalseEndWithSelection.Find.ExecuteRepla