| Вопрос: Пороблема с объектом Worda | Добавлено: 31.05.05 12:50 |
Автор вопроса:  vlas
|
|
Описываю проблему:
Есть форма с кнопкой и код: Private Sub Command1_Click() prn End Sub Sub prn() Dim WD As Object Set WD = CreateObject("Word.Application") WD.Documents.Add With WD.ActiveDocument.PageSetup .LineNumbering.Active = False .Orientation = wdOrientPortrait .TopMargin = CentimetersToPoints(2) .BottomMargin = CentimetersToPoints(2) .LeftMargin = CentimetersToPoints(2) .RightMargin = CentimetersToPoints(2) End With WD.Selection.Font.Size = 14 WD.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter WD.Selection.Font.Bold = wdToggle WD.Selection.TypeText Text:="Привет" WD.Visible = True Set WD = Nothing End Sub При первом выполнении все Ок, но после того как закрываем word и нажимаем кнопку еще раз выпадает такая ошибка: Удаленный сервер не существует или не доступен... Помогите плиз... |
| Ответы | Всего ответов: 0 |
Страница: