Как открыть документ Word с использованием полного связывания? - VB

Формулировка задачи:

Здравствуйте. Пытаюсь открыть word документ

                    Листинг программы
                
 
                        
                          
                    
Dim objWord As Object
 
Sub asd()
 
Set objWord = CreateObject("Word.Application")
  objWord.Visible = True
  objWord.Documents.Open ("D:/mob/1.docx")
  '?????????? ?????? ????? (? ???????????? ?????)
  objWord.ActiveDocument.SaveAs ("new_document.doc")
  objWord.ActiveDocument.Close
  objWord.Quit
 
  Set objWord = Nothing
End Sub
 
Call asd

Ничего не происходит. Что не так?

Решение задачи: «Как открыть документ Word с использованием полного связывания?»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Dim objWord As Object
 
Sub main()
 
Set objWord = CreateObject("Word.Application")
  objWord.Visible = True
  objWord.Documents.Open ("D:\mob\1.docx")
  '?????????? ?????? ????? (? ???????????? ?????)
  objWord.ActiveDocument.SaveAs "D:\mob\new_document.docx"
  objWord.ActiveDocument.Close
  objWord.Quit
 
  Set objWord = Nothing
End Sub