vba - excel로 word 문서를 편집하면 런타임 오류가 발생한다 438 : 개체가이 속성 또는 메서드를 지원하지 않습니다

무거운 인터넷 검색에도 불구하고, 이것이 무엇인지 알아낼 수 없습니다. 그래도 참조 또는 무언가가 누락 되었습니까? 오류가있는 곳을 볼 수 있다면 영원히 감사하겠습니다!

참고 문헌 :

• 응용 프로그램 용 Visual Basic
• Microsoft Excel 16.0 개체 라이브러리
• OLE 자동화
• Microsoft Office 16.0 개체 라이브러리
• RefEdit 컨트롤
• 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