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

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

10.04.2010, 10:01. Просмотров 1083. Ответов 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
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.04.2010, 10:01
Ответы с готовыми решениями:

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

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

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

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

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...

1
Irina_Malashenok
0 / 0 / 0
Регистрация: 07.12.2009
Сообщений: 14
07.07.2010, 18:58 2
Нужно DocWord.Application.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.07.2010, 18:58

SQL Server does not exist or access denied
Релиб, подскажите плз - что за ошибка такая: Error The...

GameCP-Remote-Server
Здравствуйте уважаемые пользователи этого замечательного форума. Ищу который...

Check Remote Server (Online)
Добрый вечер. Небольшая проблемка, несовсем понемаю как решить, посоветуйте...


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

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

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