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

我录制的宏操作
本文件已经保存了工具栏和下面的宏操作
宏操作制作成工具栏按钮的方法、无法保存宏的解决方法；无法保存工具栏的解决方法
（评价本文即可挣回文件的分，大家互惠、互利嘛，多谢支持）
宏清单
表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=Centim