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

我录制的宏操作本文件已经保存了工具栏和下面的宏操作宏操作制作成工具栏按钮的方法、无法保存宏的解决方法；无法保存工具栏的解决方法（评价本文即可挣回文件的分，大家互惠、互利嘛，多谢支持）宏清单表 2 文但行距段前半行手动换行符替换为回车符去空行去回车符去行首空格添加“上次看到这里”书签段首 2 个全角空格首行缩进 2 字符我的标题格式页边距 2 厘米页边距 1.5 厘米建立“自定义工具栏”的方法：工具自定义 工具栏新建命令 宏 拖动宏到新建的工具栏 把本地公共模板的宏导入单独的文件进行保存：宏宏管理器 宏从 normal 模板导入文档把本地公共模板的工具栏导入单独的文件进行保存：宏宏管理器 工具栏 导入文档如果无法保存宏，可以1. 工具VB 编辑器 当前文档的“模块” 右键导出 bas 文件xx.bas2. 工具VB 编辑器 normal 的“模块”右键 导入 bas 文件xx.bas 保存在 VB 编辑器中保存很重要如果无法保存工具栏，可以1. 修改注册表将注册表里的HKEY_LOCAL_MACHINESOFTWAREMicrosoftOfficeWordAddinsPDFMaker.OfficeAddin删除2. 使用 Word 全部保存功能要在 Word 中手动保存宏、首选项和自定义设置，请按照下列步骤操作：1. 按住 Shift 键。 2. 在“文件”菜单上，单击“全部保存”。我是用第二个方法解决的，祝有同样困扰的网友好运。Sub 页边距() 页边距 Macro 宏在 2012-2-7 由 chq 录制With ActiveDocument.Styles(wdStyleNormal).FontIf .NameFarEast = .NameAscii Then.NameAscii = “End If.NameFarEast = “End WithWith ActiveDocument.PageSetup.LineNumbering.Active = False.Orientation = wdOrientPortrait.TopMargin = CentimetersToPoints(2).BottomMargin = CentimetersToPoints(2).LeftMargin = CentimetersToPoints(2).RightMargin = CentimetersToPoints(2).Gutter = CentimetersToPoints(0).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 = wdLayoutModeLineGridEnd WithEnd SubSub 页边距 15() 页边距 15 Macro 宏在 2012-2-7 由 chq 录制With ActiveDocument.Styles(wdStyleNormal).FontIf .NameFarEast = .NameAscii Then.NameAscii = “End If.NameFarEast = “End WithWith ActiveDocument.PageSetup.LineNumbering.Active = False.Orientation = wdOrientPortrait.TopMargin = CentimetersToPoints(1.5).BottomMargin = CentimetersToPoints(1.5).LeftMargin = CentimetersToPoints(1.5).RightMargin = CentimetersToPoints(1.5).Gutter = CentimetersToPoints(0).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 = wdLayoutModeLineGridEnd WithEnd SubSub 换行符() 换行符 Macro 宏在 2012-2-7 由 chq 录制Selection.Find.ClearFormattingSelection.Find.Replacement.ClearFormattingWith Selection.Find.Text = “l“.Replacement.Text = “p“.Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = True.MatchWildcards = False.MatchSoundsLike = False.MatchAllWordForms = FalseEnd WithSelection.Find.Execute Replace:=wdReplaceAllEnd SubSub 去空行() 去空行 Macro 宏在 2012-2-7 由 chq 录制Selection.Find.ClearFormattingSelection.Find.Replacement.ClearFormattingWith Selection.Find.Text = “pp“.Replacement.Text = “p“.Forward = True.Wrap = wdFindAsk.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = True.MatchWildcards = False.MatchSoundsLike = False.MatchAllWordForms = FalseEnd WithSelection.Find.Execute Replace:=wdReplaceAllEnd SubSub 去行首空格() 去行首空格 Macro 宏在 2012-2-7 由 chq 录制Selection.Find.ClearFormattingSelection.Find.Replacement.ClearFormattingWith Selection.Find.Text = “p p“.Replacement.Text = “p“.Forward = True.Wrap = wdFindAsk.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = True.MatchWildcards = False.MatchSoundsLike = False.MatchAllWordForms = FalseEnd WithSelection.Find.Execute Replace:=wdReplaceAllWith Selection.Find.Text = “p p“.Replacement.Text = “p“.Forward = True.Wrap = wdFindAsk.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = True.MatchWildcards = False.MatchSoundsLike = False.MatchAllWordForms = FalseEnd WithSelection.Find.Execute Replace:=wdReplaceAllWith Selection.Find.Text = “p p“.Replacement.Text = “p“.Forward = True.Wrap = wdFindAsk.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = True.MatchWildcards = False.MatchSoundsLike = False.MatchAllWordForms = FalseEnd WithSelection.Find.Execute Replace:=wdReplaceAllWith Selection.Find.Text = “p “.Replacement.Text = “p“.Forward = True.Wrap = wdFindAsk.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = True.MatchWildcards = False.MatchSoundsLike = False.MatchAllWordForms = FalseEnd WithSelection.Find.Execute Replace:=wdReplaceAllWith Selection.Find.Text = “p “.Replacement.Text = “p“.Forward = True.Wrap = wdFindAsk.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = True.MatchWildcards = False.MatchSoundsLike = False.MatchAllWordForms = FalseEnd WithSelection.Find.Execute Replace:=wdReplaceAllEnd SubSub 表 2 文() 表 2 文 Macro 宏在 2012-2-7 由 chq 录制Selection.Rows.ConvertToText Separator:=wdSeparateByParagraphs, _NestedTables:=TrueEnd SubSub 上次看到这里() 上次看到这里 Macro 宏在 2012-2-7 由 chq 录制With ActiveDocument.Bookmarks.Add Range:=Selection.Range, Name:=“上次看到这里“.DefaultSorting = wdSortByName.ShowHidden = FalseEnd WithEnd SubSub 单行距() 单行距 Macro 宏在 2012-2-7 由 chq 录制With Selection.ParagraphFormat.LeftIndent = CentimetersToPoints(0).RightIndent = CentimetersToPoints(0).SpaceBefore = 0.SpaceBeforeAuto = False.SpaceAfter = 0.SpaceAfterAuto = False.LineSpacingRule = wdLineSpaceSingle.Alignment = wdAlignParagraphLeft.WidowControl = True.KeepWithNext = False.KeepTogether = False.PageBreakBefore = False.NoLineNumber = False.Hyphenation = True.FirstLineIndent = CentimetersToPoints(0).OutlineLevel = wdOutlineLevelBodyText.CharacterUnitLeftIndent = 0.CharacterUnitRightIndent = 0.CharacterUnitFirstLineIndent = 0.LineUnitBefore = 0.LineUnitAfter = 0.AutoAdjustRightIndent = True.DisableLineHeightGrid = False.FarEastLineBreakControl = True.WordWrap = True.HangingPunctuation = True.HalfWidthPunctuationOnTopOfLine = False.AddSpaceBetweenFarEastAndAlpha = True.AddSpaceBetweenFarEastAndDigit = True.BaseLineAlignment = wdBaselineAlignAutoEnd WithEnd SubSub 段前半() 段前半 Macro 宏在 2012-2-7 由 chq 录制With Selection.ParagraphFormat.LeftIndent = CentimetersToPoints(0).RightIndent = CentimetersToPoints(0).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.FirstLineIndent = CentimetersToPoints(0).OutlineLevel = wdOutlineLevelBodyText.CharacterUnitLeftIndent = 0.CharacterUnitRightIndent = 0.CharacterUnitFirstLineIndent = 0.LineUnitBefore = 0.5.LineUnitAfter = 0.AutoAdjustRightIndent = True.DisableLineHeightGrid = False.FarEastLineBreakControl = True.WordWrap = True.HangingPunctuation = True.HalfWidthPunctuationOnTopOfLine = False.AddSpaceBetweenFarEastAndAlpha = True.AddSpaceBetweenFarEastAndDigit = True.BaseLineAlignment = wdBaselineAlignAutoEnd WithEnd SubSub 首缩进() 首缩进 Macro 宏在 2012-2-7 由 chq 录制With Selection.ParagraphFormat.LeftIndent = CentimetersToPoints(0).RightIndent = CentimetersToPoints(0).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.FirstLineIndent = CentimetersToPoints(0.35).OutlineLevel = wdOutlineLevelBodyText.CharacterUnitLeftIndent = 0.CharacterUnitRightIndent = 0.CharacterUnitFirstLineIndent = 2.LineUnitBefore = 0.5.LineUnitAfter = 0.AutoAdjustRightIndent = True.DisableLineHeightGrid = False.FarEastLineBreakControl = True.WordWrap = True.HangingPunctuation = True.HalfWidthPunctuationOnTopOfLine = False.AddSpaceBetweenFarEastAndAlpha = True.AddSpaceBetweenFarEastAndDigit = True.BaseLineAlignment = wdBaselineAlignAutoEnd WithEnd SubSub 首 2 空格() 首 2 空格 Macro 宏在 2012-2-7 由 chq 录制With Selection.ParagraphFormat.LeftIndent = CentimetersToPoints(0).RightIndent = CentimetersToPoints(0).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.FirstLineIndent = CentimetersToPoints(0).OutlineLevel = wdOutlineLevelBodyText.CharacterUnitLeftIndent = 0.CharacterUnitRightIndent = 0.CharacterUnitFirstLineIndent = 0.LineUnitBefore = 0.5.LineUnitAfter = 0.AutoAdjustRightIndent = True.DisableLineHeightGrid = False.FarEastLineBreakControl = True.WordWrap = True.HangingPunctuation = True.HalfWidthPunctuationOnTopOfLine = False.AddSpaceBetweenFarEastAndAlpha = True.AddSpa