excel - VBA:使用 Excel 编辑 Word 文档会出现运行时错误 438:对象不支持此属性或方法

Question

尽管进行了大量的谷歌搜索，但我无法弄清楚这有什么问题。我仍然错过引用或其他什么吗？如果您能看到错误所在，我将永远感激不尽!

引用:

Visual Basic 应用程序

Microsoft Excel 16.0 对象库

OLE 自动化

Microsoft Office 16.0 对象库

引用编辑控件

Microsoft Word 16.0 对象库

变量:

Public appWord As Word.Application
Public sapmWord As Word.Document

Dim asNimi As String 'in this current sub

代码:

On Error Resume Next

Set appWord = GetObject(, "Word.Application")
If Err <> 0 Then
    Set appWord = CreateObject("Word.Application")
End If
On Error GoTo 0
appWord.Visible = True
Set sapmWord = appWord.documents.Open("C:\ThisIsWorking\andDocOpens.docx")
'sapmWord.Activate 'doesn't make a difference

With sapmWord
    Selection.EndKey Unit = wdStory 'this line is first line to give an error. With or without a dot in the beginning of line.
    Selection.TypeText Text:=asNimi 'this line too, if previous is commented
'...and so on!
End With

sapmWord.Close savechanges:=True
Set appWord = Nothing
Set sapmWord = Nothing

Answer 1

sapmWord是word文档。 Word 文档没有 selection方法。 Word 应用程序对象有它，所以可能你的意思是(是的，你需要'.')

With appWord 
    .Selection.EndKey Unit:= wdStory 
    .Selection.TypeText Text:=asNimi 
    '...and so on!
End With