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
说明:使用该方法的好处是灵活,不用指定固定的目录来搜寻目标文档,直接运行代码,会自动弹出选择目录或哪些文档的对话框,非常方便。只需修改要加入的内容即可。
温馨提示:答案为网友推荐,仅供参考