不能使用"选择.键入文本"方法，从Excel VBA写入Word文档

Question

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

我已经阅读了一些excel vba不知道我在Word文档中的选择对象的地方，因此我尝试了建议的解决方案，该解决方案是尝试在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没有.Selection属性。您可以在外面做。但是，您的风格不是最好的练习，因此请参阅上面的我的风格，以便您确切地确定哪个是什么。：）

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