Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/8: Рейтинг темы: голосов - 8, средняя оценка - 4.50
0 / 0 / 0
Регистрация: 15.12.2009
Сообщений: 84
1

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

10.04.2010, 10:01. Показов 1672. Ответов 1
Метки нет (Все метки)

Моя поцедура выводит некоторые результаты в ворд по нажатию кнопки, при повторном нажатии кнопки она также нормально отрабатывает, но если я закрою все открытые ею приложения ВОРД и опять вызову ее нажатием кнопки то возникнет ошибка: 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
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.04.2010, 10:01
Ответы с готовыми решениями:

Ошибка 462 The remote server machine does not exist or is unavailable при формировании документа Word из Access (2007)
Добрый день! Не силен в программировании, поэтому не судите строго. Задача следующая: необходимо из...

Ошибка: The remote server returned an error: (429) WebException
Сделал порядка 20ти ботов, отличаются параметрами, но алгоритм почти одинаков. Для каждого из ботов...

Server Application Unavailable
Помогите! Проблема выглядит следующим образом. С ASP.NET страницы по нажатию кнопки вызывается...

Сайт перестал работать! Server Application Unavailable
Help!!! Сайт ни с того ни с сего перестал работать!!!. Даже новые страницы с одним словом 'Вася' не...

1
0 / 0 / 0
Регистрация: 07.12.2009
Сообщений: 14
07.07.2010, 18:58 2
Нужно DocWord.Application.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.07.2010, 18:58

SQL Server 2000 is not installed on this machine
MS SQL Server 2000 на XP SP3 работает ребиата , я установил всиё 4 exe File и у мения пишет...

Работа в двух БД и ошибка "Table doesn't exist"
Не получается работать одновременно в двух БД, например: // Подключаем БД obed $dbO =...

How can connect to DB that exist on Server when ..?
How can connect t DB that exist on Server, when my ASP Pages are existing on other Server. Two...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.