我录制的宏操作本文件已经保存了工具栏和下面的宏操作宏操作制作成工具栏按钮的方法、无法保存宏的解决方法；无法保存工具栏的解决方法（评价本文即可挣回文件的分，大家互惠、互利嘛，多谢支持）表2文但行距段前半行手动换行符替换为回车符去空行去回车符宏清单添加“上次看到这里”书签段首2个全角空格首行缩进2字符我的标题格式页边距2厘米而初距1.5匣架去行首空格建立“自定义工具栏”的方法：工具自定义工具栏新建命令宏拖动宏到新建的工具栏把本地公共模板的宏导人单独的文件进行保存：宏宏管理器宏从normal模板导入文档把本地公共模板的工具栏导入单独的文件进行保存：宏宏管理器工具栏导入文档如果无法保存宏，可以1•工具VB编辑器当前文档的“模块”右键导出bas文件xx.basNieros-oftTcrd直羽餐jj-IhidlchCinouIT丹引用，i石话代阿a田直glODkhutvt羽人QD导几文＜4.薛出空坤⑥膜隔IMkan(KJ.2・H真一\/B编辑器normal的“模钳右键导入bas文件xx.bas保存>!ni如果无法保存工具栏，可以1•修改注册表将注册表里的[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\Word\AddinsPDFMaker.OfficeAddin]^J|^2,使用Word全部保存功能要在Word中手动保存宏、首选项和自定义设置，请按照下列步骤操作：1 .按住Sh曲键。
2 .在“文件”菜单上，单击“全部保存”我是用第二个方法解决的，祝有同样困扰的网友好运Sub页边距（）I页边距Macro宏在:2012-2-7由chq录制WithActiveDocument.Styles(wdStyleNormal).FontIf.NameFarEast=.NameAsciiThen.NameAscii=""EndIf.NameFarEastEndWithWithActiveDocument.PageSetup.LineNumbering.Active=False.Orientation=wdOrientPortrait.TopMargin=CentimetersToPoints(2).BottomMargin=CentimetersToPoints(2)_LeftMargin=CentimetersToPoints(2).RightMargin=CentimetersToPoints(2).Gutter=CentimetersToPoints(O).HeaderDistanee=CentimetersToPoints(1.5).FooterDistanee=CentimetersToPoints(1.75).PageWidth=CentimetersToPoints(21).PageHeight=CentimetersToPoints(29.7).FirstPageTray=wdPrinterDefaultBin.OtherPagesTray=wdPrinterDefaultBin.SectionStart=wdSectionNewPage.OddAndEvenPagesHeaderFooter=False.DifferentFirstPageHeaderFooter=False.VerticalAlignment=wdAlignVerticalTop.SuppressEndnotes=False.MirrorMargins=False.TwoPagesOnOne=False.BookFoldPrinting=False.BookFoldRevPrinting=False.BookFoldPrintingSheets=1.GutterPos=wdGutterPosLeft.LayoutMode=wdLayoutModeLineGridEndWithEndSubSub页边距15()I页边距15Macro，宏在201227由chq录制IWithActiveDocument.Styles(wdStyleNormal).FontIf.NameFarEast=.NameAsciiThen.NameAscii=""EndIf.NameFarEast=EndWithWithActiveDocument.PageSetup.LineNumbering.Active=False.Orientation=wdOrientPortrait.TopMargin=CentimetersToPoints(1.5).BottomMargin=CentimetersToPoints(1.5).LeftMargin=CentimetersToPoints(1.5).RightMargin=CentimetersToPoints(1.5).Gutter=CentimetersToPoints(O).HeaderDistance=CentimetersToPoints(1.5).FooterDistance=CentimetersToPoints(1.75).PageWidth=CentimetersToPoints(21).PageHeight=CentimetersToPoints(29.7).FirstPageTray=wdPrinterDefaultBin.OtherPagesTray=wdPrinterDefaultBin.SectionStart=wdSectionNewPage.OddAndEvenPagesHeaderFooter=False.DifferentFirstPageHeaderFooter=False.VerticalAlignment=wdAlignVerticalTop.SuppressEndnotes=False.MirrorMargins=False.TwoPagesOnOne=False.BookFoldPrinting=False.BookFoldRevPrinting=False.BookFoldPrintingSheets=1.GutterPos=wdGutterPosLeft.LayoutMode=wdLayoutModeLineGridEndWithEndSubSub换行符()I1换行符Macro,宏在2012-2-7由chq录制ISelection.Find.ClearFormattingSelection.Find.Replacement.ClearFormattingWithSelection.Find.Text=T.Replacement.Text="Ap".Forward=True.Wrap=wdFindContinue.Format=False.MatchCase=False.MatchWholeWord=False.MatchByte=True.MatchWildcards=False.MatchSoundsLike=False.MatchAIIWordForms=FalseEndWithSelection.Find.ExecuteReplace:=wdReplaceAllEndSubSub去空行()去空行Macro,宏在2012-2-7由chq录制Selection.Find.ClearFormattingSelection.Find.Replacement.ClearFormattingWithSelection.Find.Text=,,ApAp".Replacement.Text=HApH.Forward=True.Wrap=wdFindAsk.Format=False.MatchCase=False.MatchWholeWord=False.MatchByte=True.Matchwildcards=False.MatchSoundsLike=False.MatchAIIWordForms=FalseEndWithSelection.Find.ExecuteReplace:=wdReplaceAIIEndSubSub去行首空格()去行首空格Macro宏在2012・2-7由chq录制Selection.Find.ClearFormattingSelection.Find.Replacement.ClearFormattingWithSelection.Find.Text=,，ApAp”.Replacement.Text="Ap”.Forward=True.Wrap=wdFindAsk.Format=False.MatchCase=False.MatchWholeWord=False.MatchByte=True.MatchWildcards=False.MatchSoundsLike=False.MatchAIIWordForms=FalseEndWithSelection.Find.ExecuteReplace:=wdReplaceAIIWithSelection.Find.Text=*ApAp".Replacement.Text=HApH.Forward=True.Wrap=wdFindAsk.Format=False.MatchCase=False.MatchWholeWord=False.MatchByte=True.MatchWildcards=False.MatchSoundsLike=False.MatchAIIWordForms=FalseEndWithSelection.Find.ExecuteReplace:=wdReplaceAIIWithSelection.Find.Text=*ApAp".Replacement.Text=nApH.Forward=True.Wrap=wdFindAsk.Format=False.MatchCase=False.MatchWholeWord=False.MatchByte=True.MatchWildcards=False.MatchSoundsLike=False.MatchAIIWordForms=FalseEndWithSelection.Find.ExecuteReplace:=wdReplaceAllWithSelection.Find.Text="Ap.Replacement.Text="Ap".Forward=True.Wrap=wdFindAsk.Format=False.MatchCase=False.MatchWholeWord=False.MatchByte=True.MatchWildcards=False.MatchSoundsLike=False.MatchAIIWordForms=FalseEndWithSelection.Find.ExecuteReplace:=wdReplaceAllWithSelection.Find.Text="Ap".Replacement.Text="Ap".Forward=True.Wrap=wdFindAsk.Format=False.MatchCase=False.MatchWholeWord=False.MatchByte=True.MatchWildcards=False.MatchSoundsLike=False.MatchAIIWordForms=FalseEndWithSelection.Find.ExecuteReplace:=wdReplaceAIIEndSubSub表2文（）I，表2文Macro,宏在2012-2-7由chq录制Selection.Rows.ConvertToTextSeparatoi^:=wdSeparateByParagraphs,_NestedTables:=TrueEndSubSub上次看到这里（）I上次看到这里Macro,宏在2012-2-7由chq录制IWithActiveDocument.Bookmarks.AddRange:=Selection.Range,Name:=n上次看到这里”.Defaultsorting=wdSortByName.ShowHidden=FalseEndWithEndSubSub单行距（）I单行距Macro，宏在201227由chq录制WithSelection.ParagraphFormat.Leftindent=CentimetersToPoints（O）.Rightindent=CentimetersToPoints(O).SpaceBefore=0.SpaceBeforeAuto=False.SpaceAfter=0.SpaceAfterAuto=False.LineSpacingRule=wdLineSpaceSingle.Alignment=wdAlignParagraphLeft.WidowControl=True.KeepWithNext=False.KeepTogether=False.PageBreakBefore=False.NoLineNumber=False.Hyphenation=True.FirstLinelndent=CentimetersToPoints(O).OutlineLevel=wdOutlineLevelBodyText.CharacterUnitLeftlndent=0.CharacterUnitRightlndent=0.CharacterllnitFirstLinelndent=0.LinellnitBefore=0.LineUnitAfter=0.AutoAdjustRightlndent=True.DisableLineHeightGrid=False.FarEastLineBreakControl=True.Wordwrap=True.HangingPunctuation=True.HalfWidthPunctuationOnTopOfLine=False.AddSpaceBetweenFarEastAndAlpha=True.AddSpaceBetweenFarEastAndDigit=True.BaseLineAlignment=wdBaselineAlignAutoEndWithEndSubSub段前半()I段前半Macro，宏在201227由chq录制WithSelection.ParagraphFormat.Leftindent=CentimetersToPoints(O).Rightindent=CentimetersToPoints(O).SpaceBefore=2.5.SpaceBeforeAuto=False.SpaceAfter=0.SpaceAfterAuto=False.LineSpacingRule=wdLineSpaceSingle.Alignment=wdAlignParagraphLeft.WidowControl=True.KeepWithNext=False.KeepTogether=False.PageBreakBefore=False.NoLineNumber=False.Hyphenation=True.FirstLinelndent=CentimetersToPoints(O).OutlineLevel=wdOutlineLevelBodyText.CharacterUnitLeftlndent=0.CharacterUnitRightlndent=0.CharacterllnitFirstLinelndent=0.LinellnitBefore=0.5.LineUnitAfter=0.AutoAdjustRightlndent=True.DisableLineHeightGrid=False.FarEastLineBreakControl=True.Wordwrap=True.HangingPunctuation=True.HalfWidthPunctuationOnTopOfLine=False.AddSpaceBetweenFarEastAndAlpha=True.AddSpaceBetweenFarEastAndDigit=True.BaseLineAlignment=wdBaselineAlignAutoEndWithEndSubSub首缩进()首缩进Macro宏在2012-2-7由chq录制WithSelection.ParagraphFormat.Leftindent=CentimetersToPoints(O).Rightindent=CentimetersToPoints(O).SpaceBefore=2.5.SpaceBeforeAuto=False.SpaceAfter=0.SpaceAfterAuto=False.LineSpacingRule=wdLineSpaceSingle.Alignment=wdAlignParagraphLeft.WidowControl=True.KeepWithNext=False.KeepTogether=False.PageBreakBefore=False.NoLineNumber=False.Hyphenation=True.FirstLinelndent=CentimetersToPoints(0.35).OutlineLevel=wdOutlineLevelBodyText.CharacterUnitLeftlndent=0.CharacterUnitRightlndent=0.CharacterllnitFirstLinelndent=2.LinellnitBefore=0.5.LineUnitAfter=0.AutoAdjustRightlndent=True.DisableLineHeightGrid=False.FarEastLineBreakControl=True.Wordwrap=True.HangingPunctuation=True.HalfWidthPunctuationOnTopOfLine=False.AddSpaceBetweenFarEastAndAlpha=True.AddSpaceBetweenFarEastAndDigit=True.BaseLineAlignment=wdBaselineAlignAutoEndWithEndSubSub首2空格()I1首2空格Macro，宏在201227由chq录制IWithSelection.ParagraphFormat.Leftindent=CentimetersToPoints(O).Rightindent=CentimetersToPoints(O).SpaceBefore=2.5.SpaceBeforeAuto=False.SpaceAfter=0.SpaceAfterAuto=False.LineSpacingRule=wdLineSpaceSingle.Alignment=wdAlignParagraphLeft.WidowControl=True.KeepWithNext=False.KeepTogether=False.PageBreakBefore=False.NoLineNumber=False.Hyphenation=True.FirstLinelndent=CentimetersToPoints(O).OutlineLevel=wdOutlineLevelBodyText.CharacterUnitLeftlndent=0.CharacterUnitRightlndent=0.CharacterUnitFirstLinelndent=0.LinellnitBefore=0.5.LinellnitAfter=0.AutoAdjustRightlndent=True.DisableLineHeightGrid=False.FarEastLineBreakControl=True.Wordwrap=True.HangingPunctuation=True.HalfWidthPunctuationOnTopOfLine=False.AddSpaceBetweenFarEastAndAlpha=True.AddSpaceBetweenFarEastAndDigit=True.BaseLineAlignment=wdBaselineAlignAutoEndWithSelection.Find.ClearFormattingSelection.Find.Replacement.ClearFormattingWithSelection.Find.Text=,，Ap".Replacement.Text="p".Forward=True.Wrap=wdFindAsk.Format=False.MatchCase=False.MatchWholeWord=False.MatchByte=True.Matchwildcards=False.MatchSoundsLike=False.MatchAIIWordForms=FalseEndWithSelection.Find.ExecuteReplace:=wdReplaceAllEndSubSub我的标题()我的标题Macro宏在2012-2-7由chq录制Selection.Font.Name="黑体”Selection.Font.Size=18Selection.ParagraphFormat.Alignment=wdAlignParagraphCenterEndSubSub去回车()’去回车Macro，宏在201227由chq录制ISelection.Find.ClearFormattingSelection.Find.Replacement.ClearFormattingWithSelection.Find.Text="Ap”.Replacement.Text=.Forward=True.Wrap=wdFindAsk.Format=False.MatchCase=False.MatchWholeWord=False.Ma忙hByte=True.MatchWildcards=False.MatchSoundsLike=False.MatchAIIWordForms=FalseEndWithSelection.Find.ExecuteReplace:=wdReplaceAllEndSub。