Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Access Новый топик    Ответить
 Нечто странное...  [new]
Ramca
Member

Откуда:
Сообщений: 65
Мне нужно отчет вывести в Ворд.
Создаю обект Word.Application
Вывожу туда отчет (построчно).
Все сохраняю, закрываю...

А когда я запускаю эту процедуру еще раз, то почему-то выдается ошибка:
The remote server mashine does not exist or is unaviable

Или еще один вариант:
Почему-то перестал оформлять список... :-(
Может быть, кто знает, в чем дело?
18 авг 05, 17:20    [1799913]     Ответить | Цитировать Сообщить модератору
 Re: Нечто странное...  [new]
ANTIVIR
Member

Откуда: МосквА
Сообщений: 1219
Код можно увидеть открытия/закрытия ворда?
18 авг 05, 17:26    [1799955]     Ответить | Цитировать Сообщить модератору
 Re: Нечто странное...  [new]
Ramca
Member

Откуда:
Сообщений: 65
Set wapp = CreateObject("Word.Application")
Set wdoc = wapp.Documents.Add
Set wapp = CreateObject("Word.Application")
Set wdoc = wapp.Documents.Add
...
    With wapp.ListGalleries(wdBulletGallery).ListTemplates(7).ListLevels(1)
        .NumberFormat = ChrW(61623)
        .TrailingCharacter = wdTrailingTab
        .NumberStyle = wdListNumberStyleBullet
        .NumberPosition = 17.85827
        .Alignment = wdListLevelAlignLeft
        .TextPosition = 36
        .TabPosition = 36
        .ResetOnHigher = 0
        .StartAt = 1
        With .Font
            .Bold = wdUndefined
            .Italic = wdUndefined
            .Strikethrough = wdUndefined
            .Subscript = wdUndefined
            .Superscript = wdUndefined
            .Shadow = wdUndefined
            .Outline = wdUndefined
            .Emboss = wdUndefined
            .Engrave = wdUndefined
            .AllCaps = wdUndefined
            .Hidden = wdUndefined
            .Underline = wdUndefined
            .Color = wdUndefined
            .Size = wdUndefined
            .Animation = wdUndefined
            .DoubleStrikeThrough = wdUndefined
            .Name = "Symbol"
        End With
        .LinkedStyle = ""
    End With
Вот здесь он не форматирует список...

А вот закрытие:
wdoc.saveas filename
wdoc.Close
Set wdoc = Nothing
wapp.Quit SaveChanges:=wdDoNotSaveChanges
Set wapp = Nothing
18 авг 05, 17:35    [1800000]     Ответить | Цитировать Сообщить модератору
 Re: Нечто странное...  [new]
Alexander G
Member

Откуда: Чукчи мы, однако
Сообщений: 3270
Ошибки про повторном запуске сеанса OLE Automation обычно свидетельствуют о наличии неявной ссылки в коде. При этом объект (Word, Excel) остается в памяти, проигнорировав ваши попытки закрыть его и при повторном запуске на обращении к этой ссылке - клин. Где неявная ссылка - ищите, в приведенном коде ее вроде нет.
19 авг 05, 06:26    [1800753]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Access Ответить