word文檔批處理 用vba

Sub AddStr()

Dim myDialog As FileDialog, oFile As Variant, oDoc As Document

Set myDialog = Application.FileDialog(msoFileDialogFilePicker)

With myDialog

.Filters.Clear

.Filters.Add "所有 WORD 文件", "*.doc", 1

.AllowMultiSelect = True

If .Show <> -1 Then Exit Sub

For Each oFile In .SelectedItems

Set oDoc = Documents.Open(FileName:=oFile, Visible:=False, PasswordDocument:=OldPW)

With oDoc

.Content.InsertBefore "這是加入的文本" & vbCr

.Close True '關閉文檔

End With

Next oFile

End With

End Sub

說明：使用該方法的好處是靈活，不用指定固定的目錄來搜尋目標文檔，直接運行代碼，會自動彈出選擇目錄或哪些文檔的對話框，非常方便。只需修改要加入的內容即可。