宏的應用、宏和工具欄無法保存時的解決方法

1、我錄制的宏操作本文件已經(jīng)保存了工具欄和下面的宏操作宏操作制作成工具欄按鈕的方法、無法保存宏的解決方法；無法保存工具欄的解決方法（評價本文即可掙回文件的分，大家互惠、互利嘛，多謝支持）表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中手動保存宏、首選項和自定義設(shè)置

3、，請按照下列步驟操作：1 .按住Sh曲鍵。2 .在“文件”菜單上，單擊“全部保存”。我是用第二個方法解決的，祝有同樣困擾的網(wǎng)友好運。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