office word宏处理文档转换成出版格式

本宏制作者姚登波，qq865263179制作目的：将文档格式转换为出版格式使用方法：打开officeword，选择开发工具，选择按钮，录制宏，宏名字和黄色标注一致，停止后，直接粘贴下面代码。Sub整理资料()''格式设置宏''Selection.Find.ClearFormattingSelection.Find.Font.Underline=wdUnderlineSingleSelection.Find.Replacement.ClearFormattingWithSelection.Find.Text=.Replacement.Text=_.Forward=True.Wrap=wdFindContinue.Format=True.MatchCase=False.MatchWholeWord=False.MatchByte=False.MatchWildcards=False.MatchSoundsLike=False.MatchAllWordForms=FalseEndWithSelection.Find.ExecuteReplace:=wdReplaceAllSelection.WholeStorySelection.ClearFormattingSelection.Font.Name=宋体Selection.Font.Size=12Selection.Font.Name=TimesNewRomanSelection.Range.CharacterWidth=wdWidthFullWidthSelection.HomeKeyUnit:=wdLineSelection.Find.ClearFormattingSelection.Find.Replacement.ClearFormattingWithSelection.Find.Text=^l.Replacement.Text=^p.Forward=True.Wrap=wdFindContinue.Format=False.MatchCase=False.MatchWholeWord=False.MatchByte=False.MatchWildcards=False.MatchSoundsLike=False.MatchAllWordForms=FalseEndWithSelection.Find.ExecuteReplace:=wdReplaceAllWithSelection.Find.Text=１.Replacement.Text=1.Forward=True.Wrap=wdFindContinue.Format=False.MatchCase=False.MatchWholeWord=False.MatchByte=False.MatchWildcards=False.MatchSoundsLike=False.MatchAllWordForms=FalseEndWithSelection.Find.ExecuteReplace:=wdReplaceAllWithSelection.Find.Text=２.Replacement.Text=2.Forward=True.Wrap=wdFindContinue.Format=False.MatchCase=False.MatchWholeWord=False.MatchByte=False.MatchWildcards=False.MatchSoundsLike=False.MatchAllWordForms=FalseEndWithSelection.Find.ExecuteReplace:=wdReplaceAllWithSelection.Find.Text=３.Replacement.Text=3.Forward=True.Wrap=wdFindContinue.Format=False.MatchCase=False.MatchWholeWord=False.MatchByte=False.MatchWildcards=False.MatchSoundsLike=False.MatchAllWordForms=FalseEndWithSelection.Find.ExecuteReplace:=wdReplaceAllWithSelection.Find.Text=４.Replacement.Text=4.Forward=True.Wrap=wdFindContinue.Format=False.MatchCase=False.MatchWholeWord=False.MatchByte=False.MatchWildcards=False.MatchSoundsLike=False.MatchAllWordForms=FalseEndWithSelection.Find.ExecuteReplace:=wdReplaceAllWithSelection.Find.Text=５.Replacement.Text=5.Forward=True.Wrap=wdFindContinue.Format=False.MatchCase=False.MatchWholeWord=False.MatchByte=False.MatchWildcards=False.MatchSoundsLike=False.MatchAllWordForms=FalseEndWithSelection.Find.ExecuteReplace:=wdReplaceAllWithSelection.Find.Text=６.Replacement.Text=6.Forward=True.Wrap=wdFindContinue.Format=False.MatchCase=False.MatchWholeWord=False.MatchByte=False.MatchWildcards=False.MatchSoundsLike=False.MatchAllWordForms=FalseEndWithSelection.Find.ExecuteReplace:=wdReplaceAllWithSelection.Find.Text=７.Replacement.Text=7.Forward=True.Wrap=wdFindContinue.Format=False.MatchCase=False.MatchWholeWord=False.MatchByte=False.MatchWildcards=False.MatchSoundsLike=False.MatchAllWordForms=FalseEndWithSelection.Find.ExecuteReplace:=wdReplaceAllWithSelection.Find.Text=８.Replacement.Text=8.Forward=True.Wrap=wdFindContinue.Format=False.MatchCase=False.MatchWholeWord=False.MatchByte=False.MatchWildcards=False.MatchSoundsLike=False.MatchAllWordForms=FalseEndWithSelection.Find.ExecuteReplace:=wdReplaceAllWithSelection.Find.Text=９.Replacement.Text=9.Forward=True.Wrap=wdFindContinue.Format=False.MatchCase=False.MatchWholeWord=False.MatchByte=False.MatchWildcards=False.MatchSoundsLike=False.MatchAllWordForms=FalseEndWithSelection.Find.ExecuteReplace:=wdReplaceAllWithSelection.Find.Text=０.Replacement.Text=0.Forward=True.Wrap=wdFindContinue.Format=False.MatchCase=False.MatchWholeWord=False.MatchByte=False.MatchWildcards=False.MatchSoundsLike=False.MatchAllWordForms=FalseEndWithSelection.Find.ExecuteReplace:=wdReplaceAllWithSelection.Find.Text=Ａ.Replacement.Text=A.Forward=True.Wrap=wdFindContinue.Format=False.MatchCase=False.MatchWholeWord=False.MatchByte=False.MatchWildcards=False.MatchSoundsLike=False.MatchAllWordForms=FalseEndWithSelection.Find.ExecuteReplace:=wdReplaceAllWithSelection.Find.Text=Ｂ.Replacement.Text=B.Forward=True.Wrap=wdFindContinue.Format=False.MatchCase=False.MatchWholeWord=False.MatchByte=False.MatchWildcards=False.MatchSoundsLike=False.MatchAllWordForms=FalseEndWithSelection.Find.ExecuteReplace:=wdReplaceAllWithSelection.Find.Text=Ｃ.Replacement.Text=C.Forward=True.Wrap=wdFindContinue.Format=False.MatchCase=False.MatchWholeWord=False.MatchByte=False.MatchWildcards=False.MatchSoundsLike=False.MatchAllWordForms=FalseEndWithSelection.Find.ExecuteReplace:=wdReplaceAllWithSelection.Find.Text=Ｄ.Replacement.Text=D.Forward=True.Wrap=wdFindContinue.Format=False.MatchCase=False.MatchWholeWord=False.MatchByte=False.MatchWildcards=False.MatchSoundsLike=False.MatchAllWordForms=FalseEndWithSelection.Find.ExecuteReplace:=wdReplaceAllSelection.WholeStoryWithSelection.ParagraphFormat.LeftIndent=CentimetersToPoints(0).RightIndent=CentimetersToPoints(0).SpaceBefore=0.SpaceBeforeAuto=False.SpaceAfter=0.SpaceAfterAuto=False.LineSpacingRule=wdLineSpace1pt5.Alignment=wdAlignParagraphLeft.FirstLineIndent=CentimetersToPoints(0.35).CharacterUnitLeftIndent=0.CharacterUnitRight