利用vba设置快速word格式

今天下午,毕业快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

听了一晚的葬花吟...品味经典.....