利用VBA快速实现Word文档格式统一.docVIP

利用VBA快速实现Word文档格式的统一 　　摘 要: VBA是由微软公司开发的新一代标准宏语言,简单易学、功能强大,对于经常跟Office打交道的用户来说,学习VBA有助于提高工作效率。本文详细论述了利用VBA对许多Word文档进行统一格式设置的实现方案。因Word中涉及的知识点较多,不可能一一加以列举,本文作者向读者阐述了程序编制的一般方法,通过该方法,可以解决绝大多数Word文档统一设置格式的问题。 　　关键词: Word 格式设置 批量 VBA技术 　　 　　通常我们说到办公软件时,大家都会想到微软公司开发的一套办公软件Office。Office因为功能强大、操作简单等特点已经进入到各行各业,并逐渐成为日常办公、生活中必须的应用软件。但是Office属于通用型应用软件,因而在某些特殊数据处理方面很难快速实现解决方法。为了更好地满足这类工作的需要,越来越多的人迫切需要对Office进行二次开发和功能定制。作为Office的开发者和服务商,微软公司为了解决这个问题,在结合VB和Office的优点后,推出了VBA的开发环境――VBE。用户可以通过这个环境直接对应用程序环境的相关功能与模块,进行特殊的功能开发与定制。 　　VBA(Visual Basic for Application)是从VB(Visual Basic)衍生出来的,基于Office环境的开发工具。它不能像VB一样能生成可执行程序。实际上VBA是“寄生”于VB应用程序的版本。可以认为VBA是非常流行的应用程序开发语言Visual Basic的子集。VBA的主要特点如下: 　　第一,VBA可以使已有的应用程序(Excel等)自动化,可以扩展已有程序,可以创建自定义的解决方案。 　　第二,VBA必须“寄生”于已有的应用程序,其开发的程序必须依赖于它的“父”应用程序,例如Word、Excel。 　　第三,VBA一个关键特征是你所学的知识在微软的一些产品中可以相互转化。 　　相对于一些编程语言如C语言、C++语言、Delphi等需要种种烦琐的类型说明、定义VBA编程简便,其所提供的各种控件和交互式的编程方式可以很轻易地编出合格的程序,完成自己的任务。 　　在工作中经常会遇到这种情况,单位要求大家写一些个人的总结、报告或者别的类型的一些文档,而一般交上来的文档都是利用Word完成的,但是这些Word完成的文档中的格式却是五花八门什么样都有。这可能就会给阅读者或者打印造成一些问题,那么怎样才能将大家交上来的Word文档都很快地设置成格式相同的文档呢?一个一个文档去修改格式显然很繁琐。下面我就来说明一下如何使用VBA来实现对大量Word文档设置统一的格式。 　　以下我们主要以Word 2003为例来说明(Word 2007方法类似)。 　　一、打开Word程序,在工具菜单中选择“宏”→“宏”在弹出的对话框中先给宏起一个名称,如:统一格式,然后单击“创建”按钮,即可以进入对当前宏进行编写。 　　二、编写代码实现。 　　根据需要实现的目的,我将代码分成三部分来实现,第一步需要在运行代码时要弹出文件夹选取对话框,用于选择需要统一格式的Word文档。 　　开始时需要定义一个文件夹选取对话框 　　Dim My Dialog As FileDialog,vrtSelectedItem As Variant,Doc As Document 　　Set My Dialog=Application.File Dialog(msoFileDialogFile Picker) 　　然后对这个文件夹对话框进行一些优化的设置这样可以更加方面选择,如让选择对话框中只显示Word文档不显示别的文件,允许一下选择多个Word文档等。 　　With MyDialog 　　.Filters.Clear ′除所有文件筛选器中的项目 　　.Filters.Add 所有 WORD 文件,*.doc,1 ′增加筛选器的项目为所有WORD文件 　　.AllowMultiSelect=True′允许多项选择 　　当在对话框选择确定之后要设置一个循环语句,让每一个被选择的文档都进行按照要求的格式设置。 　　If.Show=-1 Then 　　Application.ScreenUpdating=False 　　For Each vrtSelectedItem In.SelectedItems 　　Set Doc=Documents.Open(FileName:=vrtSelectedItem,Visible:=False) 　　这样第一步的任务选择Word文档的任务就完成了。下面就要根据要求对上面选择的Word第二步给文档进行统一的格式设置。一般的文档的格式设置包括