① 如何利用VBA代碼或者腳本代碼批量修改word文檔的正文標題
操作步驟。
第一，首先將需要批量替換的多個Word文檔放在同一文件夾下面。
第二，新建一空白Word文檔，右擊空白工具欄，單擊「控制項工具箱」，就可以看到屏幕上調出的控制項工具箱。
第三，在控制項工具箱上單擊「命令按鈕」，文檔中就放置了一個按鈕了。
第四，雙擊該按鈕，進入VB代碼編寫模式，將以下代碼復制進去。
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim myPas As String, myPath As String, i As Integer, myDoc As Document
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "選擇目標文件夾"
If .Show = -1 Then
myPath = .SelectedItems(1)
Else
Exit Sub
End If
End With
myPas = InputBox("請輸入打開密碼：")
With Application.FileSearch
.LookIn = myPath
.FileType = msoFileTypeWordDocuments
If .Execute > 0 Then
For i = 1 To .FoundFiles.Count
Set myDoc = Documents.Open(FileName:=.FoundFiles(i), Passworddocument:=myPas)
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "大家好"
.Replacement.Text = "你好"
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
myDoc.Save
myDoc.Close
Set myDoc = Nothing
Next
End If
End With
Application.ScreenUpdating = True
End Sub
第五，保存上面代碼，退出VB編輯模式，返回Word文檔界面。
第六，單擊選中該按鈕，再單擊控制項工具箱的第一個按鈕「退出設計模式」。
第七，進行測試：點擊按鈕，選擇要放置多個WORD文檔所在的文件夾，確定後即可完成！注意如果WORD文檔沒有加密的話，密碼項就不填，直接確認。就會發現該文件夾下面的所有WORD文檔中「大家好」已被替換為「你好」了。