使用VBA技術(shù)批量格式化Word文檔-最新文檔

1、使用VBAa術(shù)批量格式化Word文檔1問(wèn)題的提出Word文字處理軟件是微軟公司推出的 Office系列辦公應(yīng)用 軟件中被使用頻率較高的一款.由于其具備眾多的優(yōu)點(diǎn)與實(shí)用 性,所以備受廣闊用戶的歡送,廣泛應(yīng)用于各個(gè)領(lǐng)域.在日常工 作、學(xué)習(xí)生活中經(jīng)常會(huì)遇到這樣的情況：公司要求員工制定工作 方案、提交工作總結(jié)；老師要求學(xué)生制定學(xué)習(xí)方案、提交征文比 賽文稿等等.在“節(jié)能減排的當(dāng)今社會(huì),很多單位都在實(shí)行無(wú)紙化辦公,所以要求大家提交的工作方案與總結(jié)等一般都是Word文檔類型的電子文件.由于每個(gè)人的計(jì)算機(jī)操作水平不盡相同, 因而提交上來(lái)的 Word文檔的格式也各式各樣,盡管有時(shí)組織者 規(guī)定了嚴(yán)格的格式要求,甚

2、至于給出了文檔的模板, 但由于操作 水平上的差異,最終電子文檔格式還是不可能完全統(tǒng)一.這就給組織者帶來(lái)了不小的麻煩：返回去重改吧,一是時(shí)間不一定允許, 二是最終也不一定能符合格式要求；組織者一份份地逐一去修改 吧,這又不太現(xiàn)實(shí).如何在最短的時(shí)間內(nèi)快速統(tǒng)一這些Word文檔的格式,是一個(gè)亟待解決的問(wèn)題. 而VBA技術(shù)那么能很好地解決 這一問(wèn)題.2 VBA技術(shù)VBAlb 新一代標(biāo)準(zhǔn)宏語(yǔ)言 Visual Basic for Applications 簡(jiǎn)稱VBA.其目白是強(qiáng)化 Office軟件的應(yīng)用,完成應(yīng)用軟 件的自動(dòng)化和程序化.VBA與VB的語(yǔ)法結(jié)構(gòu)完全相同,簡(jiǎn)單的 說(shuō)VBA就是內(nèi)置于Office軟

3、件中的VB語(yǔ)言,是VB的一個(gè)子集.VBA提供了大量的對(duì)象來(lái)實(shí)現(xiàn)對(duì) Office的訪問(wèn)和限制操作.VBA以面向?qū)ο蟮木幊谭绞綄?shí)現(xiàn)對(duì)它們的訪問(wèn)和限制.Word中用到的對(duì)象有 Document文檔對(duì)象、Range范圍對(duì)象、Pagesetup頁(yè) 面設(shè)置對(duì)象、Font字體對(duì)象、Paragraph段落對(duì)象、Table表格 對(duì)象、Shape圖片對(duì)象等,通過(guò)對(duì)這些對(duì)象的定義或引用、設(shè)置 對(duì)象的屬性、方法和事件,就可以完成 Word文檔的格式化操作. 例如,通過(guò)Pagesetup對(duì)象可以獲得 Word文檔的左右邊距、上 下邊距、頁(yè)眉和頁(yè)腳等數(shù)據(jù)；通過(guò) Font對(duì)象的屬性可以獲得文 檔中中文字體的格式名稱、字體顏

4、色、是否為粗體、斜體、是否 有下劃線等內(nèi)容；通過(guò)Paragraph對(duì)象可以獲得文檔的段落及段 落的左右縮進(jìn)、段前、段后縮進(jìn)、首行縮進(jìn)、段落的行間距等內(nèi) 容.下面介紹在Word2003環(huán)境下,如何批量實(shí)現(xiàn)文檔格式化處 理.對(duì)所有文檔的格式要求如下：1頁(yè)面格式：紙張大?。簩挾龋?0.8cm,高度：29 cm ;頁(yè)邊距：上：2.8cm,下：3.2cm,左：3.4cm,右：3.1cm.2段落格式：對(duì)齊方式：兩端對(duì)齊；段落縮進(jìn)：左縮進(jìn)1 cm,右縮進(jìn)1.5 cm ;首行縮進(jìn)2字符；行間距：1.5 倍行距.3字符格式：字體：華文行楷；字號(hào)：24;字體顏色：深藍(lán)色3實(shí)現(xiàn)過(guò)程3.1創(chuàng)立宏1新建一篇 Word文

5、檔,文件名為：格式化.doc；2單擊“工具菜單,在彈出的菜單項(xiàng)中選擇“宏命令, 在其下一級(jí)菜單中選擇“錄制新宏命令, 在翻開的“錄制宏 的對(duì)話窗口中輸入宏名：“批量格式化文檔,單擊“確定按 鈕.3由于我們要編寫代碼完成操作,所以此時(shí)無(wú)需錄制宏, 只需直接單擊“宏工具欄上的“停止按鈕就可以了.3.2 將宏指定給工具欄為了方便操作,可以把剛剛創(chuàng)立的宏指定給工具欄, 這樣進(jìn) 行批量文檔格式化操作時(shí), 無(wú)需運(yùn)行“宏命令了,只需單擊工 具欄上的按鈕就要以完成操作了,方法如下：1單擊“工具菜單,在彈出的菜單項(xiàng)中選擇“自定義 命令,在翻開的對(duì)話窗口中選擇“工具欄選項(xiàng)卡,單擊“新 建按鈕,在翻開的對(duì)話框窗口中

6、“工具欄名稱下輸入：“格式化,再單擊“確定按鈕,這樣一來(lái),Word文檔窗口上就會(huì)出現(xiàn)名稱為“格式化的工具欄.2單擊“命令選項(xiàng)卡,在“類別下拉列表中選擇 “宏命令,將右側(cè)列表框中的“批量格式化文檔宏命令拖動(dòng) 至剛剛自定義的“格式化工具欄上.3右鍵單擊工具欄上的“批量格式化文檔,在彈出的快捷菜單中的“命名處輸入：“批量格式化文檔.4)將“格式化工具欄拖動(dòng)至 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