整理宏的应用宏和工具栏无法保存时的解决方法.docx
《整理宏的应用宏和工具栏无法保存时的解决方法.docx》由会员分享，可在线阅读，更多相关《整理宏的应用宏和工具栏无法保存时的解决方法.docx（19页珍藏版）》请在冰豆网上搜索。
整理宏的应用宏和工具栏无法保存时的解决方法
环境，是指影响人类生存和发展的各种天然的和经过人工改造的自然因素的总体。
价值=支付意愿=市场价格×消费量+消费者剩余
疾病成本法和人力资本法是用于估算环境变化造成的健康损失成本的主要方法，或者说是通过评价反映在人体健康上的环境价值的方法。
3.建设项目环境影响评价文件的审查要求
『正确答案』A
[答疑编号502334050102]
C.可能造成较大环境影响的建设项目，应当编制环境影响报告书
安全评价是落实“安全第一，预防为主，综合治理”方针的重要技术保障，是安全生产监督管理的重要手段。
（3）评价单元划分应考虑安全预评价的特点，以自然条件、基本工艺条件、危险、有害因素分布及状况便于实施评价为原则进行。
（五）安全预评价方法我录制的宏操作
本文件已经保存了工具栏和下面的宏操作
宏操作制作成工具栏按钮的方法、无法保存宏的解决方法；无法保存工具栏的解决方法
（评价本文即可挣回文件的分，大家互惠、互利嘛，多谢支持）
宏清单
表2文
但行距
段前半行
手动换行符替换为回车符
去空行
去回车符
去行首空格
添加“上次看到这里”书签
段首2个全角空格
首行缩进2字符
我的标题格式
页边距2厘米
页边距1.5厘米
建立“自定义工具栏”的方法：
工具→自定义→工具栏→新建
→命令→宏→拖动宏到新建的工具栏→
把本地公共模板的宏导入单独的文件进行保存：
宏→宏→管理器→宏→从normal模板导入文档
把本地公共模板的工具栏导入单独的文件进行保存：
宏→宏→管理器→工具栏→导入文档
如果无法保存宏，可以
1.工具→VB编辑器→当前文档的“模块”→右键→导出bas文件→xx.bas
2.工具→VB编辑器→normal的“模块”→右键→导入bas文件→xx.bas→保存
在VB编辑器中保存很重要
如果无法保存工具栏，可以
1.修改注册表
将注册表里的[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\Word\Addins\PDFMaker.OfficeAddin]删除
2.使用Word全部保存功能
要在 Word 中手动保存宏、首选项和自定义设置，请按照下列步骤操作：
1. 按住 Shift 键。
2. 在“文件”菜单上，单击“全部保存”。
我是用第二个方法解决的，祝有同样困扰的网友好运。
Sub页边距（）
'
'页边距Macro
'宏在2012-2-7由chq录制
'
WithActiveDocument.Styles（wdStyleNormal）.Font
If.NameFarEast=.NameAsciiThen
.NameAscii=""
EndIf
.NameFarEast=""
EndWith
WithActiveDocument.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=wdLayoutModeLineGrid
EndWith
EndSub
Sub页边距15（）
'
'页边距15Macro
'宏在2012-2-7由chq录制
'
WithActiveDocument.Styles（wdStyleNormal）.Font
If.NameFarEast=.NameAsciiThen
.NameAscii=""
EndIf
.NameFarEast=""
EndWith
WithActiveDocument.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=wdLayoutModeLineGrid
EndWith
EndSub
Sub换行符（）
'
'换行符Macro
'宏在2012-2-7由chq录制
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
WithSelection.Find
.Text="^l"
.Replacement.Text="^p"
.Forward=True
.Wrap=wdFindContinue
.Format=False
.MatchCase=False
.MatchWholeWord=False
.MatchByte=True
.MatchWildcards=False
.MatchSoundsLike=False
.MatchAllWordForms=False
EndWith
Selection.Find.ExecuteReplace:
=wdReplaceAll
EndSub
Sub去空行（）
'
'去空行Macro
'宏在2012-2-7由chq录制
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
WithSelection.Find
.Text="^p^p"
.Replacement.Text="^p"
.Forward=True
.Wrap=wdFindAsk
.Format=False
.MatchCase=False
.MatchWholeWord=False
.MatchByte=True
.MatchWildcards=False
.MatchSoundsLike=False
.MatchAllWordForms=False
EndWith
Selection.Find.ExecuteReplace:
=wdReplaceAll
EndSub
Sub去行首空格（）
'
'去行首空格Macro
'宏在2012-2-7由chq录制
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
WithSelection.Find
.Text="^p^p"
.Replacement.Text="^p"
.Forward=True
.Wrap=wdFindAsk
.Format=False
.MatchCase=False
.MatchWholeWord=False
.MatchByte=True
.MatchWildcards=False
.MatchSoundsLike=False
.MatchAllWordForms=False
EndWith
Selection.Find.ExecuteReplace:
=wdReplaceAll
WithSelection.Find
.Text="^p ^p"
.Replacement.Text="^p"
.Forward=True
.Wrap=wdFindAsk
.Format=False
.MatchCase=False
.MatchWholeWord=False
.MatchByte=True
.MatchWildcards=False
.MatchSoundsLike=False
.MatchAllWordForms=False
EndWith
Selection.Find.ExecuteReplace:
=wdReplaceAll
WithSelection.Find
.Text="^p^p"
.Replacement.Text="^p"
.Forward=True
.Wrap=wdFindAsk
.Format=False
.MatchCase=False
.MatchWholeWord=False
.MatchByte=True
.MatchWildcards=False
.MatchSoundsLike=False
.MatchAllWordForms=False
EndWith
Selection.Find.ExecuteReplace:
=wdReplaceAll
WithSelection.Find
.Text="^p"
.Replacement.Text="^p"
.Forward=True
.Wrap=wdFindAsk
.Format=False
.MatchCase=False
.MatchWholeWord=False
.MatchByte=True
.MatchWildcards=False
.MatchSoundsLike=False
.MatchAllWordForms=False
EndWith
Selection.Find.ExecuteReplace:
=wdReplaceAll
WithSelection.Find
.Text="^p "
.Replacement.Text="^p"
.Forward=True
.Wrap=wdFindAsk
.Format=False
.MatchCase=False
.MatchWholeWord=False
.MatchByte=True
.MatchWildcards=False
.MatchSoundsLike=False
.MatchAllWordForms=False
EndWith
Selection.Find.ExecuteReplace:
=wdReplaceAll
EndSub
Sub表2文（）
'
'表2文Macro
'宏在2012-2-7由chq录制
'
Selection.Rows.ConvertToTextSeparator:
=wdSeparateByParagraphs,_
NestedTables:
=True
EndSub
Sub上次看到这里（）
'
'上次看到这里Macro
'宏在2012-2-7由chq录制
'
WithActiveDocument.Bookmarks
.AddRange:
=Selection.Range,Name:
="上次看到这里"
.DefaultSorting=wdSortByName
.ShowHidden=False
EndWith
EndSub
Sub单行距（）
'
'单行距Macro
'宏在2012-2-7由chq录制
'
WithSelection.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=wdBaselineAlignAuto
EndWith
EndSub
Sub段前半（）
'
'段前半Macro
'宏在2012-2-7由chq录制
'
WithSelection.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=wdBaselineAlignAuto
EndWith
EndSub
Sub首缩进（）
'
'首缩进Macro
'宏在2012-2-7由chq录制
'
WithSelection.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=wdBaselineAlignAuto
EndWith
EndSub
Sub首2空格（）
'
'首2空格Macro
'宏在2012-2-7由chq录制
'
WithSelection.ParagraphFormat
.LeftIndent=CentimetersToPoints（0）
.RightIndent=CentimetersToPoints（0）
.SpaceBefore=2.5
.SpaceBeforeAuto=False
.SpaceAfter=0
.SpaceAfterAuto=False
.LineSpacingRule=wdLineSpaceSingle
.Alignment=wdAlignParagraphLeft
.WidowControl=True
.KeepWithNext=Fa
升级会员 