Моя поцедура выводит некоторые результаты в ворд по нажатию кнопки, при повторном нажатии кнопки она также нормально отрабатывает, но если я закрою все открытые ею приложения ВОРД и опять вызову ее нажатием кнопки то возникнет ошибка: The remote server machine not exist or is unavailable. Не могу понять почему?
Помогите разобраться.
Строчку где возникает ошибка я отметил.
| Visual Basic |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
| 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 |
|
(
