今天下午,毕业快2年的学生回来,交谈中,谈到了研究生如何快速设置word文档格式的问题,除了熟练借助word工具栏外,还可多重复的设置编写vba,来实现一键完成。
下面以设置特定页面为例,具体解释一下。vba是word中进行编程的工具,一般以宏编程为主实现形式。对于word,要打开一个宏,可按照如图步骤查看。
我们可以利用vba编写一段代码,至于其中用到的面向对象编程,这里不过多展开,感兴趣的参看拙作《MATLAB语言编程》第七章,虽是MATLAB语言,但对面向对象做了通俗解释。
附后是我给出的关于设置页面的vba源码。将这些源码保存好后,就将它们添加到word工具栏,制作成和word本身工具栏中一样的工具,例如本人电脑上的各种小工具专门就如下图。
这里不展开讲解具体的步骤了,百度即可。下面是创建A4幅面的vba代码,在2010-2016版的word中均可运行。建议横屏阅读代码,摘转请包括作者信息。
SubStandardPaperSize()
'程序功能:设定标准化的A4页边距等,格式化文档用纸
'程序作者:马寨璞
'修订日期:2016.07.20
DimPaperMarginAsDouble
PaperMargin= 2.2 '单位:厘米
'若不是A4页面,则设定为A4页面
IfActiveDocument.PageSetup.PaperSizewdPaperA4Then
ActiveDocument.PageSetup.PaperSize=wdPaperA4
EndIf
'设置顶,底,左,右页边距
WithActiveDocument.PageSetup
.TopMargin=InchesToPoints(PaperMargin)
.LeftMargin=InchesToPoints(PaperMargin)
.RightMargin=InchesToPoints(PaperMargin)
.BottomMargin=InchesToPoints(PaperMargin)
.LayoutMode=wdLayoutModeDefault
'页眉与页脚
HearderMargin= 1.5
FooterMargin= 1.5
.HeaderDistance=CentimetersToPoints(HearderMargin)
.FooterDistance=CentimetersToPoints(FooterMargin)
EndWith
EndSub
听了一晚的葬花吟...品味经典.....
领取专属 10元无门槛券
私享最新 技术干货