Работа с Word-ом и ошибка The remote server machine not exist or is unavailable - VBA - Ответ 2650475

Public Sub Out_Word()
 
Dim WordApp As Word.Application
Dim DocWord As Word.Document
Dim TableWord As Word.Table
 
Set WordApp = New Word.Application
WordApp.Visible = True
Set DocWord = WordApp.Documents.Add
DocWord.Activate
 
'Задаем ориентацию страницы(Альбомная)
DocWord.Application.Selection.PageSetup.Orientation = wdOrientLandscape
'Задаем верхнюю и нижнюю границу стрницы
DocWord.Application.Selection.PageSetup.TopMargin = 20
DocWord.Application.Selection.PageSetup.BottomMargin = 20
'Задаем левое и правое поле стрницы
DocWord.Application.Selection.PageSetup.LeftMargin = 40
DocWord.Application.Selection.PageSetup.RightMargin = 20
 
Set TableWord = DocWord.Tables.Add(DocWord.Application.Selection.Range, 20, 6)
 
'Задаем стиль таблицы используя метод AutoFormat
With TableWord
.AutoFormat Format:=WdTableFormat.wdTableFormatGrid1
.Range.Font.Size = 10
End With
 
Set ObjCell = TableWord.Cell(1, 1)
ObjCell.Range.Font.Size = 16
ObjCell.Range.Font.Bold = True
ObjCell.Range.InsertAfter 'Наименование детали'
ObjCell.Shading.Texture = wdTexture22Pt5Percent
Set ObjCell = TableWord.Cell(1, 2)
ObjCell.Range.InsertAfter (objDet.Nm)
Set ObjCell = TableWord.Cell(1, 3)
ObjCell.Range.Font.Size = 16
ObjCell.Range.Font.Bold = True
ObjCell.Range.InsertAfter 'Материал'
ObjCell.Shading.Texture = wdTexture22Pt5Percent
Set ObjCell = TableWord.Cell(1, 4)
ObjCell.Range.InsertAfter (objDet.Mater.Nm)
Set ObjCell = TableWord.Cell(1, 5)
ObjCell.Range.Font.Size = 14
ObjCell.Range.Font.Bold = True
ObjCell.Range.InsertAfter 'Штучно-калькуяционное время'
ObjCell.Shading.Texture = wdTexture22Pt5Percent
Set ObjCell = TableWord.Cell(1, 6)
ObjCell.Range.InsertAfter (Format(objDet.TimeChtuch + objDet.TimePodgotovZakl / objDet.PartSize, '##0.00'))
 
'Выравнивание
TableWord.Select
Selection.SelectCell
 
' здесь возникает ошибка>>> Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
Selection.Cells.VerticalAlignment = wdCellAlignVerticalCenter
 
'Перенос курсора
Selection.MoveDown Unit:=wdLine, Count:=4
Selection.TypeParagraph
 
Set TableWord = Nothing
Set DocWord = Nothing
Set WordApp = Nothing
 
End Sub