使用vb操作 出现 对象变量或with块变量未设置 光标停在“Selection.TypeText Text:="你好"”一行

Posted 2023-03-16

代码
Private Sub Form_Load()
Dim wdapp As Word.Application
Dim wddoc As Word.Document
Set wdapp = CreateObject("Word.Application")
Set wddDoc = wdapp.Documents.Open(":\新建 Microsoft Word 文档.doc ")
With wdapp
.Visible = True
.Activate
End With
Selection.TypeText Text:="你好"
End Sub

参考技术A 你的(":\新建 Microsoft Word 文档.doc ")这个文件是否存在，你的这个写法前提是磁盘已经有那个文件存在追问

有

追答

文件存在哪个位置你得写清楚了比如
("C:\新建 Microsoft Word 文档.doc ")
或者是(app.path & ":\新建 Microsoft Word 文档.doc ")

Private Sub Form_Load()
Dim wdapp As Word.Application
Dim wddoc As Word.Document
Set wdapp = CreateObject("Word.Application")
Set wddoc = wdapp.Documents.Open("C:\aa.doc ")
With wdapp
.Visible = True
.Activate
.Selection.TypeText Text:="你好"
End With
End Sub

本回答被提问者采纳 参考技术B 将
Selection.TypeText Text:="你好"

改为
wddDoc.Selection.TypeText Text:="你好"追问

谢谢，还是不行啊

追答

Set wddDoc = wdapp.Documents.Open(":\新建 Microsoft Word 文档.doc ")
With wdapp
.Visible = True
.Activate
End With
wddDoc.Selection.TypeText Text:="你好"

你没按我说的改。

追问

你看