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

《宏应用、宏和工具栏无法保存时解决方法》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

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

2、管理器à宏à从normal模板导入文档把本地公共模板的工具栏导入单独的文件进行保存：　　宏à宏à管理器à工具栏à导入文档如果无法保存宏，可以1.工具àVB编辑器à当前文档的“模块”à右键à导出bas文件àxx.bas2.工具àVB编辑器ànormal的“模块”à右键à导入bas文件àxx.basà保存在VB编辑器中保存很重要如果无法保存工具栏，可以1.修改注册表将注册表里的[HKEY_LOCAL_MACHINESOFTWAREMicrosoftOfficeWordAddinsPDFMaker.OfficeAddin]删除2.使用Word

3、全部保存功能要在 Word 中手动保存宏、首选项和自定义设置，请按照下列步骤操作：1. 按住 Shift 键。 2. 在“文件”菜单上，单击“全部保存”。我是用第二个方法解决的，祝有同样困扰的网友好运。Sub页边距()''页边距Macro'宏在2012-2-7由chq录制'WithActiveDocument.Styles(wdStyleNormal).FontIf.NameFarEast=.NameAsciiThen.NameAscii=""EndIf.NameFarEast=""EndWithWithActiveDocument.PageSet

4、up.LineNumbering.Active=False.Orientation=wdOrientPortrait.TopMargin=CentimetersToPoints(2).BottomMargin=CentimetersToPoints(2).LeftMargin=CentimetersToPoints(2).RightMargin=CentimetersToPoints(2).Gutter=CentimetersToPoints(0).HeaderDistance=CentimetersToPoints(1.5).FooterDist

5、ance=CentimetersToPoints(1.75).PageWidth=CentimetersToPoints(21).PageHeight=CentimetersToPoints(29.7).FirstPageTray=wdPrinterDefaultBin.OtherPagesTray=wdPrinterDefaultBin.SectionStart=wdSectionNewPage.OddAndEvenPagesHeaderFooter=False.DifferentFirstPageHeaderFooter=False.Verti

6、calAlignment=wdAlignVerticalTop.SuppressEndnotes=False.MirrorMargins=False.TwoPagesOnOne=False.BookFoldPrinting=False.BookFoldRevPrinting=False.BookFoldPrintingSheets=1.GutterPos=wdGutterPosLeft.LayoutMode=wdLayoutModeLineGridEndWithEndSubSub页边距15()''页边距15Macro'宏在2012-2-7由chq录

7、制'WithActiveDocument.Styles(wdStyleNormal).FontIf.NameFarEast=.NameAsciiThen.NameAscii=""EndIf.NameFarEast=""EndWithWithActiveDocument.PageSetup.LineNumbering.Active=False.Orientation=wdOrientPortrait.TopMargin=CentimetersToPoints(1.5).BottomMargin=CentimetersToPoints(1.5).Lef

8、tMargin=CentimetersToPoints(1.5).RightMargin=CentimetersToPoi