vba - 从 Excel VBA 写入 Word 文档时无法使用 'Selection.TypeText' 方法

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 的属性.你可以在外面做。但是，您的风格不是最佳实践，因此请引用我上面的风格，以便您可以准确识别出哪个是什么。 :)

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