宏的应用、宏和工具栏无法保存时的解决方法

1、我录制的宏操作本文件已经保存了工具栏和下面的宏操作宏操作制作成工具栏按钮的方法、无法保存宏的解决方法；无法保存工具栏的解决方法（评价本文即可挣回文件的分，大家互惠、互利嘛，多谢支持）表2文但行距段前半行手动换行符替换为回车符去空行去回车符宏清单添加“上次看到这里”书签段首2个全角空格首行缩进2字符我的标题格式页边距2厘米而初距1.5匣架去行首空格建立“自定义工具栏”的方法：工具自定义工具栏新建命令宏拖动宏到新建的工具栏把本地公共模板的宏导人单独的文件进行保存：宏宏管理器宏从normal模板导入文档把本地公共模板的工具栏导入单独的文件进行保存：宏宏管理器工具栏导入文档如果无法保存宏，可以1工具V

2、B编辑器当前文档的“模块”右键导出bas文件xx.basNieros-oftTcrd直羽餐jj-IhidlchCinouIT丹引用，i石话代阿a田直glODkhutvt羽人QD导几文4®.薛出空坤膜隔IMkan(KJ.2H真一/B编辑器normal的“模钳右键导入bas文件xx.bas保存>'!ni如果无法保存工具栏，可以1修改注册表将注册表里的HKEY_LOCAL_MACHINESOFTWAREMicrosoftOfficeWordAddins'PDFMaker.OfficeAddinJ|2,使用Word全部保存功能要在Word中手动保存宏、首选项和自定义设置

3、，请按照下列步骤操作：1 .按住Sh曲键。2 .在“文件”菜单上，单击“全部保存”。我是用第二个方法解决的，祝有同样困扰的网友好运。Sub页边距（）I'页边距Macro'宏在:2012-2-7由chq录制WithActiveDocument.Styles(wdStyleNormal).FontIf.NameFarEast=.NameAsciiThen.NameAscii=""EndIf.NameFarEastEndWithWithActiveDocument.PageSetup.LineNumbering.Active=False.Orientation=w

4、dOrientPortrait.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).P

5、ageHeight=CentimetersToPoints(29.7).FirstPageTray=wdPrinterDefaultBin.OtherPagesTray=wdPrinterDefaultBin.SectionStart=wdSectionNewPage.OddAndEvenPagesHeaderFooter=False.DifferentFirstPageHeaderFooter=False.VerticalAlignment=wdAlignVerticalTop.SuppressEndnotes=False.MirrorMargins=False.TwoPagesOnOne=

6、False.BookFoldPrinting=False.BookFoldRevPrinting=False.BookFoldPrintingSheets=1.GutterPos=wdGutterPosLeft.LayoutMode=wdLayoutModeLineGridEndWithEndSubSub页边距15()I'页边距15Macro，宏在201227由chq录制IWithActiveDocument.Styles(wdStyleNormal).FontIf.NameFarEast=.NameAsciiThen.NameAscii=""EndIf.NameF

7、arEast=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=Centimeter

8、sToPoints(1.5).FooterDistance=CentimetersToPoints(1.75).PageWidth=CentimetersToPoints(21).PageHeight=CentimetersToPoints(29.7).FirstPageTray=wdPrinterDefaultBin.OtherPagesTray=wdPrinterDefaultBin.SectionStart=wdSectionNewPage.OddAndEvenPagesHeaderFooter=False.DifferentFirstPageHeaderFooter=False.Ver

9、ticalAlignment=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.ClearFor

10、mattingSelection.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.Execute

11、Replace:=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.Matchwildcar

12、ds=False.MatchSoundsLike=False.MatchAIIWordForms=FalseEndWithSelection.Find.ExecuteReplace:=wdReplaceAIIEndSubSub去行首空格()去行首空格Macro宏在20122-7由chq录制Selection.Find.ClearFormattingSelection.Find.Replacement.ClearFormattingWithSelection.Find.Text=,，ApAp”.Replacement.Text="Ap”.Forward=True.Wrap=wdFind

13、Ask.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=F

14、alse.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.Ma

15、tchByte=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.MatchWildcard

16、s=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.MatchSoundsL

17、ike=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:=Sele

18、ction.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.LineSpacin

19、gRule=wdLineSpaceSingle.Alignment=wdAlignParagraphLeft.WidowControl=True.KeepWithNext=False.KeepTogether=False.PageBreakBefore=False.NoLineNumber=False.Hyphenation=True.FirstLinelndent=CentimetersToPoints(O).OutlineLevel=wdOutlineLevelBodyText.CharacterUnitLeftlndent=0.CharacterUnitRightlndent=0.Cha

20、racterllnitFirstLinelndent=0.LinellnitBefore=0.LineUnitAfter=0.AutoAdjustRightlndent=True.DisableLineHeightGrid=False.FarEastLineBreakControl=True.Wordwrap=True.HangingPunctuation=True.HalfWidthPunctuationOnTopOfLine=False.AddSpaceBetweenFarEastAndAlpha=True.AddSpaceBetweenFarEastAndDigit=True.BaseL

21、ineAlignment=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=wdA

22、lignParagraphLeft.WidowControl=True.KeepWithNext=False.KeepTogether=False.PageBreakBefore=False.NoLineNumber=False.Hyphenation=True.FirstLinelndent=CentimetersToPoints(O).OutlineLevel=wdOutlineLevelBodyText.CharacterUnitLeftlndent=0.CharacterUnitRightlndent=0.CharacterllnitFirstLinelndent=0.Linellni

23、tBefore=0.5.LineUnitAfter=0.AutoAdjustRightlndent=True.DisableLineHeightGrid=False.FarEastLineBreakControl=True.Wordwrap=True.HangingPunctuation=True.HalfWidthPunctuationOnTopOfLine=False.AddSpaceBetweenFarEastAndAlpha=True.AddSpaceBetweenFarEastAndDigit=True.BaseLineAlignment=wdBaselineAlignAutoEnd

24、WithEndSubSub首缩进()首缩进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.Keep

25、WithNext=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.AutoAdjus

26、tRightlndent=True.DisableLineHeightGrid=False.FarEastLineBreakControl=True.Wordwrap=True.HangingPunctuation=True.HalfWidthPunctuationOnTopOfLine=False.AddSpaceBetweenFarEastAndAlpha=True.AddSpaceBetweenFarEastAndDigit=True.BaseLineAlignment=wdBaselineAlignAutoEndWithEndSubSub首2空格()I1首2空格Macro，宏在2012

27、27由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

28、.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.Ad