VBA "문서가 열려 있지 않아이 명령을 사용할 수 없습니다."

Question

VBA 언어에 익숙하지 않아이 간단한 작업을 몇 시간 동안 조사했지만 아무런 효과가 없습니다. "이 명령은 문서가 열려 있지 않아 사용할 수 없습니다."라는 오류가 다시 발생하고 바로 쓰기가 가능한 단어 문서가 있습니다. 여기서 무슨 일이 일어나고있는거야? 당신의 도움을 주셔서 감사합니다.

Sub excel_to_word() 
Dim wapp As Word.Application 
Dim wdoc As Word.Document 

Set wapp = CreateObject("word.application") 
wapp.Visible = True 


Set wdoc = wapp.Documents.Add 

wdoc.Content.InsertAfter Range("B5") 

Application.Wait (Now + TimeValue("0:00:01")) 


'CreateObject("Word.Application").ChangeFileOpenDirectory "C:\USERS\JOSEPH\DESKTOP\" 
Dim NEWPATH As String 
NEWPATH = "C:\USERS\JOSEPH\DESKTOP" 


    CreateObject("Word.Application").ActiveDocument.SaveAs2 Filename:="joseph.docx",  FileFormat:=wdFormatXMLDocument, LockComments:=False, Password:="", addtorecentfiles:=False, savenativepictureformat:=False, SaveFormsData:=False, saveasaoceletter:=False, CompatibilityMode:=14 



End Sub 

Answer 1

CreateObject("Word.Application").ActiveDocument.SaveAs2 Filename:="joseph.docx" 'etc 

해야

wdoc.SaveAs2 Filename:="joseph.docx" 'etc 

당신이 말씀의 새로운 인스턴스를 생성하고 (그 두 번째 인스턴스는 그 안에 어떤 문서를 연 상태에서이없는 두 번째 CreateObject 전화). .