為實(shí)現(xiàn)統(tǒng)一匯報(bào)格式和統(tǒng)一存檔饲鄙，學(xué)院要對(duì)某專業(yè)的幾十份Word論文電子文檔統(tǒng)一修改正文的字號(hào)、行距强饮。如何實(shí)現(xiàn)由桌？
按照傳統(tǒng)的方法，我們只能一一打開Word文檔，按規(guī)定的格式對(duì)標(biāo)題和段落進(jìn)行格式化處理行您。這樣做顯然效率太低铭乾。如果使用VBA錄制宏，給Word加入多文件處理相關(guān)的代碼邑雅，便可實(shí)現(xiàn)對(duì)同一目錄中的Word文件進(jìn)行自動(dòng)整理片橡。本文以Word 2010為例。
一淮野、錄制格式替換的宏
1. 打開Word程序捧书，按Ctrl+H，調(diào)出“查找和替換”對(duì)話框骤星，點(diǎn)擊“更多”经瓷，勾選“使用通配符”；
2. 在“查找內(nèi)容”中輸入*（意思為任何內(nèi)容）洞难，點(diǎn)擊“格式”舆吮，選“樣式”，在“查找樣式”中選“正文”（圖1）队贱；
3. 在“替換為”中輸入^&（意思為查找到的內(nèi)容）色冀，點(diǎn)擊“格式”，選“字體”柱嫌，在此設(shè)置新的字號(hào)锋恬，如5號(hào)字（圖2）；
4. 點(diǎn)擊“格式”编丘，選“段落”与学，設(shè)置好新的行距，例如1.5倍行距（圖3）嘉抓；
5. 不要關(guān)閉對(duì)話框索守，點(diǎn)擊Word主窗口中的“視圖”選項(xiàng)卡，點(diǎn)“宏”按鈕下的三角形按鈕抑片，選“錄制宏”卵佛，點(diǎn)擊“確定”（圖4）；
6. 點(diǎn)擊“查找和替換”對(duì)話框中的“全部替換”敞斋，點(diǎn)擊“確定”截汪；
7. 點(diǎn)“宏”按鈕下的三角形按鈕，選“停止錄制”渺尘。
二挫鸽、加入多文件處理
1. 點(diǎn)“宏”按鈕，選擇剛錄制的宏（如宏1）鸥跟，點(diǎn)擊“編輯”丢郊；
2. 在第一行“Sub 宏1()”后盔沫，加入代碼如下：
Application.ScreenUpdating = False
Dim myPas As String, myPath As String, i As Integer, myDoc As Document
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "選擇目標(biāo)文件夾"
If .Show = -1 Then
myPath = .SelectedItems(1)
Else
Exit Sub
End If
End With
myPas = InputBox("請(qǐng)輸入打開密碼：")
Set fso = CreateObject("Scripting.FileSystemObject")
Set oFolder = fso.GetFolder(myPath)
Dim oSubFolder, oFile
For Each oFile In oFolder.Files
Set myDoc = Documents.Open(FileName:=oFile.Path, Passworddocument:=myPas)
3. 在最后一行End Sub前加入代碼如下：
myDoc.Save
myDoc.Close
Set myDoc = Nothing
Next
Application.ScreenUpdating = True
三、運(yùn)行程序
按F5鍵枫匾，運(yùn)行程序架诞，選擇Word文件所在文件夾，點(diǎn)擊“確定”干茉，若沒有打開密碼谴忧，就直接點(diǎn)擊“確定”。
（注：使用時(shí)角虫，不能打開要整理的文件）沾谓。
