整理宏的应用宏和工具栏无法保存时的解决方法.docx

1、整理宏的应用宏和工具栏无法保存时的解决方法环境，是指影响人类生存和发展的各种天然的和经过人工改造的自然因素的总体。价值=支付意愿=市场价格消费量+消费者剩余疾病成本法和人力资本法是用于估算环境变化造成的健康损失成本的主要方法，或者说是通过评价反映在人体健康上的环境价值的方法。3.建设项目环境影响评价文件的审查要求正确答案A答疑编号502334050102C.可能造成较大环境影响的建设项目，应当编制环境影响报告书安全评价是落实“安全第一，预防为主，综合治理”方针的重要技术保障，是安全生产监督管理的重要手段。（3）评价单元划分应考虑安全预评价的特点，以自然条件、基本工艺条件、危险、有害因素分布及状

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

3、理器工具栏导入文档如果无法保存宏，可以1. 工具VB编辑器当前文档的“模块”右键导出bas文件xx.bas2. 工具VB编辑器normal的“模块”右键导入bas文件xx.bas 保存在VB编辑器中保存很重要如果无法保存工具栏，可以1. 修改注册表将注册表里的HKEY_LOCAL_MACHINESOFTWAREMicrosoftOfficeWordAddinsPDFMaker.OfficeAddin删除2. 使用Word全部保存功能要在Word中手动保存宏、首选项和自定义设置，请按照下列步骤操作：1.按住Shift键。2.在“文件”菜单上，单击“全部保存”。我是用第二个方法解决的，祝有同样困扰

4、的网友好运。Sub 页边距() 页边距 Macro 宏在 2012-2-7 由 chq 录制 With ActiveDocument.Styles(wdStyleNormal).Font If .NameFarEast = .NameAscii Then .NameAscii = End If .NameFarEast = End With With ActiveDocument.PageSetup .LineNumbering.Active = False .Orientation = wdOrientPortrait .TopMargin = CentimetersToPoints(2)

5、.BottomMargin = CentimetersToPoints(2) .LeftMargin = CentimetersToPoints(2) .RightMargin = CentimetersToPoints(2) .Gutter = CentimetersToPoints(0) .HeaderDistance = CentimetersToPoints(1.5) .FooterDistance = CentimetersToPoints(1.75) .PageWidth = CentimetersToPoints(21) .PageHeight = CentimetersToPo

6、ints(29.7) .FirstPageTray = wdPrinterDefaultBin .OtherPagesTray = wdPrinterDefaultBin .SectionStart = wdSectionNewPage .OddAndEvenPagesHeaderFooter = False .DifferentFirstPageHeaderFooter = False .VerticalAlignment = wdAlignVerticalTop .SuppressEndnotes = False .MirrorMargins = False .TwoPagesOnOne

7、= False .BookFoldPrinting = False .BookFoldRevPrinting = False .BookFoldPrintingSheets = 1 .GutterPos = wdGutterPosLeft .LayoutMode = wdLayoutModeLineGrid End WithEnd SubSub 页边距15() 页边距15 Macro 宏在 2012-2-7 由 chq 录制 With ActiveDocument.Styles(wdStyleNormal).Font If .NameFarEast = .NameAscii Then .Nam

8、eAscii = End If .NameFarEast = End With With ActiveDocument.PageSetup .LineNumbering.Active = False .Orientation = wdOrientPortrait .TopMargin = CentimetersToPoints(1.5) .BottomMargin = CentimetersToPoints(1.5) .LeftMargin = CentimetersToPoints(1.5) .RightMargin = CentimetersToPoints(1.5) .Gutter =

9、CentimetersToPoints(0) .HeaderDistance = CentimetersToPoints(1.5) .FooterDistance = CentimetersToPoints(1.75) .PageWidth = CentimetersToPoints(21) .PageHeight = CentimetersToPoints(29.7) .FirstPageTray = wdPrinterDefaultBin .OtherPagesTray = wdPrinterDefaultBin .SectionStart = wdSectionNewPage .OddA

10、ndEvenPagesHeaderFooter = False .DifferentFirstPageHeaderFooter = False .VerticalAlignment = wdAlignVerticalTop .SuppressEndnotes = False .MirrorMargins = False .TwoPagesOnOne = False .BookFoldPrinting = False .BookFoldRevPrinting = False .BookFoldPrintingSheets = 1 .GutterPos = wdGutterPosLeft .Lay

11、outMode = wdLayoutModeLineGrid End WithEnd SubSub 换行符() 换行符 Macro 宏在 2012-2-7 由 chq 录制 Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = l .Replacement.Text = p .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWo

12、rd = False .MatchByte = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAllEnd SubSub 去空行() 去空行 Macro 宏在 2012-2-7 由 chq 录制 Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find

13、.Text = pp .Replacement.Text = p .Forward = True .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAllEnd SubSub 去行首空格() 去行首空格 Ma

14、cro 宏在 2012-2-7 由 chq 录制 Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = p p .Replacement.Text = p .Forward = True .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .MatchWildcards = False .MatchSounds

15、Like = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = pp .Replacement.Text = p .Forward = True .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .MatchWildcards = False .MatchSoundsLike =

16、 False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = p p .Replacement.Text = p .Forward = True .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .MatchWildcards = False .MatchSoundsLike = Fals

17、e .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = p .Replacement.Text = p .Forward = True .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .MatchWildcards = False .MatchSoundsLike = False .Matc

18、hAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = p .Replacement.Text = p .Forward = True .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWor

19、dForms = False End With Selection.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:=Sele

20、ction.Range, Name:=上次看到这里 .DefaultSorting = wdSortByName .ShowHidden = False End WithEnd SubSub 单行距() 单行距 Macro 宏在 2012-2-7 由 chq 录制 With Selection.ParagraphFormat .LeftIndent = CentimetersToPoints(0) .RightIndent = CentimetersToPoints(0) .SpaceBefore = 0 .SpaceBeforeAuto = False .SpaceAfter = 0 .Sp

21、aceAfterAuto = False .LineSpacingRule = wdLineSpaceSingle .Alignment = wdAlignParagraphLeft .WidowControl = True .KeepWithNext = False .KeepTogether = False .PageBreakBefore = False .NoLineNumber = False .Hyphenation = True .FirstLineIndent = CentimetersToPoints(0) .OutlineLevel = wdOutlineLevelBody

22、Text .CharacterUnitLeftIndent = 0 .CharacterUnitRightIndent = 0 .CharacterUnitFirstLineIndent = 0 .LineUnitBefore = 0 .LineUnitAfter = 0 .AutoAdjustRightIndent = True .DisableLineHeightGrid = False .FarEastLineBreakControl = True .WordWrap = True .HangingPunctuation = True .HalfWidthPunctuationOnTop

23、OfLine = False .AddSpaceBetweenFarEastAndAlpha = True .AddSpaceBetweenFarEastAndDigit = True .BaseLineAlignment = wdBaselineAlignAuto End WithEnd SubSub 段前半() 段前半 Macro 宏在 2012-2-7 由 chq 录制 With Selection.ParagraphFormat .LeftIndent = CentimetersToPoints(0) .RightIndent = CentimetersToPoints(0) .Spa

24、ceBefore = 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

25、= CentimetersToPoints(0) .OutlineLevel = wdOutlineLevelBodyText .CharacterUnitLeftIndent = 0 .CharacterUnitRightIndent = 0 .CharacterUnitFirstLineIndent = 0 .LineUnitBefore = 0.5 .LineUnitAfter = 0 .AutoAdjustRightIndent = True .DisableLineHeightGrid = False .FarEastLineBreakControl = True .WordWrap

26、 = True .HangingPunctuation = True .HalfWidthPunctuationOnTopOfLine = False .AddSpaceBetweenFarEastAndAlpha = True .AddSpaceBetweenFarEastAndDigit = True .BaseLineAlignment = wdBaselineAlignAuto End WithEnd SubSub 首缩进() 首缩进 Macro 宏在 2012-2-7 由 chq 录制 With Selection.ParagraphFormat .LeftIndent = Cent

27、imetersToPoints(0) .RightIndent = CentimetersToPoints(0) .SpaceBefore = 2.5 .SpaceBeforeAuto = False .SpaceAfter = 0 .SpaceAfterAuto = False .LineSpacingRule = wdLineSpaceSingle .Alignment = wdAlignParagraphLeft .WidowControl = True .KeepWithNext = False .KeepTogether = False .PageBreakBefore = Fals

28、e .NoLineNumber = False .Hyphenation = True .FirstLineIndent = CentimetersToPoints(0.35) .OutlineLevel = wdOutlineLevelBodyText .CharacterUnitLeftIndent = 0 .CharacterUnitRightIndent = 0 .CharacterUnitFirstLineIndent = 2 .LineUnitBefore = 0.5 .LineUnitAfter = 0 .AutoAdjustRightIndent = True .Disable

29、LineHeightGrid = False .FarEastLineBreakControl = True .WordWrap = True .HangingPunctuation = True .HalfWidthPunctuationOnTopOfLine = False .AddSpaceBetweenFarEastAndAlpha = True .AddSpaceBetweenFarEastAndDigit = True .BaseLineAlignment = wdBaselineAlignAuto End WithEnd SubSub 首2空格() 首2空格 Macro 宏在 2

30、012-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 = Fa