使用VBA技术批量格式化Word文档-最新文档

1、使用VBAa术批量格式化Word文档1问题的提出Word文字处理软件是微软公司推出的 Office系列办公应用 软件中被使用频率较高的一款.由于其具备众多的优点与实用 性,所以备受广阔用户的欢送,广泛应用于各个领域.在日常工 作、学习生活中经常会遇到这样的情况：公司要求员工制定工作 方案、提交工作总结；老师要求学生制定学习方案、提交征文比 赛文稿等等.在“节能减排的当今社会,很多单位都在实行无纸化办公,所以要求大家提交的工作方案与总结等一般都是Word文档类型的电子文件.由于每个人的计算机操作水平不尽相同, 因而提交上来的 Word文档的格式也各式各样,尽管有时组织者 规定了严格的格式要求,甚

2、至于给出了文档的模板, 但由于操作 水平上的差异,最终电子文档格式还是不可能完全统一.这就给组织者带来了不小的麻烦：返回去重改吧,一是时间不一定允许, 二是最终也不一定能符合格式要求；组织者一份份地逐一去修改 吧,这又不太现实.如何在最短的时间内快速统一这些Word文档的格式,是一个亟待解决的问题. 而VBA技术那么能很好地解决 这一问题.2 VBA技术VBAlb 新一代标准宏语言 Visual Basic for Applications 简称VBA.其目白是强化 Office软件的应用,完成应用软 件的自动化和程序化.VBA与VB的语法结构完全相同,简单的 说VBA就是内置于Office软

3、件中的VB语言,是VB的一个子集.VBA提供了大量的对象来实现对 Office的访问和限制操作.VBA以面向对象的编程方式实现对它们的访问和限制.Word中用到的对象有 Document文档对象、Range范围对象、Pagesetup页 面设置对象、Font字体对象、Paragraph段落对象、Table表格 对象、Shape图片对象等,通过对这些对象的定义或引用、设置 对象的属性、方法和事件,就可以完成 Word文档的格式化操作. 例如,通过Pagesetup对象可以获得 Word文档的左右边距、上 下边距、页眉和页脚等数据；通过 Font对象的属性可以获得文 档中中文字体的格式名称、字体颜

4、色、是否为粗体、斜体、是否 有下划线等内容；通过Paragraph对象可以获得文档的段落及段 落的左右缩进、段前、段后缩进、首行缩进、段落的行间距等内 容.下面介绍在Word2003环境下,如何批量实现文档格式化处 理.对所有文档的格式要求如下：1页面格式：纸张大小：宽度：20.8cm,高度：29 cm ;页边距：上：2.8cm,下：3.2cm,左：3.4cm,右：3.1cm.2段落格式：对齐方式：两端对齐；段落缩进：左缩进1 cm,右缩进1.5 cm ;首行缩进2字符；行间距：1.5 倍行距.3字符格式：字体：华文行楷；字号：24;字体颜色：深蓝色3实现过程3.1创立宏1新建一篇 Word文

5、档,文件名为：格式化.doc；2单击“工具菜单,在弹出的菜单项中选择“宏命令, 在其下一级菜单中选择“录制新宏命令, 在翻开的“录制宏 的对话窗口中输入宏名：“批量格式化文档,单击“确定按 钮.3由于我们要编写代码完成操作,所以此时无需录制宏, 只需直接单击“宏工具栏上的“停止按钮就可以了.3.2 将宏指定给工具栏为了方便操作,可以把刚刚创立的宏指定给工具栏, 这样进 行批量文档格式化操作时, 无需运行“宏命令了,只需单击工 具栏上的按钮就要以完成操作了,方法如下：1单击“工具菜单,在弹出的菜单项中选择“自定义 命令,在翻开的对话窗口中选择“工具栏选项卡,单击“新 建按钮,在翻开的对话框窗口中

6、“工具栏名称下输入：“格式化,再单击“确定按钮,这样一来,Word文档窗口上就会出现名称为“格式化的工具栏.2单击“命令选项卡,在“类别下拉列表中选择 “宏命令,将右侧列表框中的“批量格式化文档宏命令拖动 至刚刚自定义的“格式化工具栏上.3右键单击工具栏上的“批量格式化文档,在弹出的快捷菜单中的“命名处输入：“批量格式化文档.4)将“格式化工具栏拖动至 Word文档窗口中格式工具 栏后,使其嵌入至格式工具栏中.3.3 编写代码Dim mydialog As FileDialog, vrtselecteditem As Variant, doc As DocumentSet mydialog =

7、Application.FileDialog(msoFileDialogFilePicker)With mydialog.Filters.Clear.Filters.Add 所有 Word文件, *.doc, 1.AllowMultiSelect = TrueIf .Show = -1 ThenApplication.ScreenUpdating = FalseFor Each vrtselecteditem In .SelectedItemsSet doc = Documents.Open(FileName:=vrtselecteditem, Visible:=False)With docW

8、ith .PageSetupMargin = CentimetersToPoints(2.8).BottomMargin = CentimetersToPoints(3.2).LeftMargin = CentimetersToPoints(3.4) .RightMargin = CentimetersToPoints(3.1) .PageWidth = CentimetersToPoints(20.8) .PageHeight = CentimetersToPoints(29) End withWith .Content.ParagraphFormat .Alignment = wdAlig

9、nParagraphJustify .LeftIndent = CentimetersToPoints(1) .RightIndent = CentimetersToPoints(1.5) .CharacterUnitFirstLineIndent = 2 .LineSpacingRule = wdLineSpace1pt5 End WithWith .ContentWith .Font.Name =华文行楷.Size = 24.Color = wdColorDarkBlueEnd WithEnd WithNextApplication.ScreenUpdating = TrueEnd IfEnd WithMsgBox 格式化文档操作完毕！, vbInf