Question

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

代码
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

Answer 1

你的(":\新建 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

Answer 2

将
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:="你好"

你没按我说的改。

追问

你看