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

2019年8月4日 741次阅读

我正在尝试从Excel VBA写入Word文档,当我尝试在Selection对象上使用.TypeText方法时,我收到一个错误：“对象不支持此属性或方法.”

我已经读过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行上报告相同的错误.

任何帮助,将不胜感激.

最佳答案 试试这个：

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

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

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

点赞