Sub AddTextToWordDoc()
' 打开 Word 应用程序
Dim wordApp As New Word.Application
' 打开 Word 文档
Dim wordDoc As Word.Document
Set wordDoc = wordApp.Documents.Open("C:\gg.docx")
MsgBox ""
Exit Sub
' 向文档添加文本
wordDoc.Content.Text = "Hello, world!"
' 保存文档
wordDoc.Save
' 关闭文档和 Word 应用程序
wordDoc.Close
wordApp.Quit
End Sub
"C:\gg.docx" 文件存在 word类引用有勾选 ActiveX 部件不能创建对象 大佬们帮忙看看什么问题