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

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

我已经读过Excel VBA不知道我指的是Word文档中的Selection对象，所以我尝试了build议的解决scheme，即尝试在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 

你和你的代码非常接近。 您遇到的错误是DestDoc没有DestDoc属性。 你可以在外面做。 不过，你的风格不是最好的做法，所以请参考我上面的风格，以便确定究竟是哪一个。 🙂

让知道这是否有帮助。