VBA работа с Wordом

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

                    Листинг программы
                
 
                        
                          
                    
Dim WDoc As Object
 
Set WDoc = CreateObject('Word.Document') 
WDoc.Application.Visible = True 
 
ActiveDocument.PageSetup.Orientation = wdOrientLandscape
ActiveDocument.PageSetup.TopMargin = 20
ActiveDocument.PageSetup.BottomMargin = 20
ActiveDocument.PageSetup.LeftMargin = 40
ActiveDocument.PageSetup.RightMargin = 20
With ActiveDocument
       .AutoHyphenation = True
       .HyphenateCaps = True
       .HyphenationZone = CentimetersToPoints(0.63) 
       .ConsecutiveHyphensLimit = 0
End With
 
    ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=1, NumColumns:=6
With Selection.Tables(1)
    .AutoFormat Format:=WdTableFormat.wdTableFormatGrid1
    .Range.Font.Size = 10
End With
 
Set WDoc = Nothing

Приведенный выше кусок процедуры открывает Word и выводит таблицу Но если закрыть Word после того как процедура отработает а затем повторно запустить ее выйдет ошибка: The remote server machine not exist or is unavailable. почему?

Решение задачи: «VBA работа с Wordом»

textual
                            Листинг программы 
                        
LockWindowUpdate GetDesktopWindow
....
LockWindowUpdate 0&