為實(shí)現(xiàn)統(tǒng)一匯報(bào)格式和統(tǒng)一存檔，學(xué)院要對(duì)某專(zhuān)業(yè)的幾十份Word論文電子文檔統(tǒng)一修改正文的字號(hào)、行距。如何實(shí)現(xiàn)？
按照傳統(tǒng)的方法，我們只能一一打開(kāi)Word文檔，按規(guī)定的格式對(duì)標(biāo)題和段落進(jìn)行格式化處理。這樣做顯然效率太低。如果使用VBA錄制宏，給Word加入多文件處理相關(guān)的代碼，便可實(shí)現(xiàn)對(duì)同一目錄中的Word文件進(jìn)行自動(dòng)整理。本文以Word 2010為例。
一、錄制格式替換的宏
1. 打開(kāi)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)輸入打開(kāi)密碼：")
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)擊“確定”，若沒(méi)有打開(kāi)密碼，就直接點(diǎn)擊“確定”。
（注：使用時(shí)，不能打開(kāi)要整理的文件）。
