| Вопрос: The remote server machine does not exist or is una | Добавлено: 26.08.05 15:05 |
Автор вопроса:  Mihalыch | ICQ: 373-509-101 |
|
Программа перебрасывает в Word данные, в первый раз все нормально, но при повторной попытке возникает ошибка.
The remote server machine does not exist or is unavailable Делаю так Option Explicit Private WithEvents appWord As Word.Application Private Sub cmdOk_Click() If appWord Is Nothing = False Then Set appWord = Nothing Set appWord = GetObject("", "Word.Application") appWord.Documents.Add appWord.ActiveWindow.Caption = lstTest.Text appWord.ActiveWindow.Activate appWord.Visible = True With appWord.ActiveWindow.Selection .Font.Name = "Times New Roman" 'ругается на следующие четыре строки .PageSetup.LeftMargin = CentimetersToPoints(1.5) .PageSetup.RightMargin = CentimetersToPoints(1.5) .PageSetup.TopMargin = CentimetersToPoints(1) .PageSetup.BottomMargin = CentimetersToPoints(1.6) |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:  Роман Вопросов: 1 Ответов: 31 |
Web-сайт: Профиль | | #1 | Добавлено: 14.10.05 19:28 |
|
Дело по-моему вот в чем.
Во-первых надо проверить есть ли на машине Word, если его нет то при форматировании будет ошибка. И во-вторых надо после первого раза документ и Word закрывать Set appWord = nothing |
||
Страница: 1 |