Question

我正在尝试从Excel VBA写入Word文档，当我尝试在.TypeText对象上使用Selection方法时，出现错误：“对象不支持此属性或方法“。

我已经读过Excel VBA不知道我在Word文档中引用Selection对象的地方，所以我尝试了建议的解决方案，试图在With中进行 - End With阻止。

基本上我试过这个：

Set WrdApp = New Word.Application
Set DestDoc = WrdApp.Documents.Add
With DestDoc
   .Activate
   .Select
   .Selection.TypeText Text:="Test"
End With

但它始终在.Selection.TypeText行报告相同的错误。

任何帮助都将不胜感激。

Answer 1

试试这个：

Sub WriteToWord()

Dim WrdApp As New Word.Application
Dim WrdDoc As Document
Dim WrdSel As Selection

WrdApp.Visible = True
Set WrdDoc = WrdApp.Documents.Add
Set WrdSel = WrdApp.Selection

WrdSel.TypeText "Test"

End Sub

你的代码非常接近。您遇到的错误是.Selection没有DestDoc属性。你可以在外面完成它。但是，你的风格并不是最佳实践，所以请参考我上面的风格，这样你就能确切地确定哪种风格。：）

让我们知道这是否有帮助。

从Excel VBA写入Word文档时无法使用“Selection.TypeText”方法

1 个答案: