Установка значения поля в документе

[FromTanC]

Мне необходимо в вордовый документ передать текстовое поле.
Как мне обратится по имени к этому полю?

[uhm]

Передать откуда? Поле где? И что с ним должен делать вордовый документ?

[GSerg]

Плохой вопрос.
Хороший вопрос содержал бы более подробное описание того, что надо сделать, а не как...

[RayShade]

Коллекция Fields.

А вообще, я бы замечания выносил за нежелание пользоваться Object Browser ом и головой

[FromTanC]

Мне надо из формы вставить строку в конретное место Вордового документа.
Я предполагаю, что в самом документе в этом месте надо вставить поле, а из VB как-то установить значение этого поля.

[alibek]

В данном случае можно использовать CustomDocumentProperties.

[GSerg]

Нет, в данном случая можно использовать закладку, но да, и поле тоже можно... Только у закладок имена есть, а у полей нет.

[FromTanC]

Такой код работает (книга открывается)

Код: Выделить всё


Dim wb As excel.Workbook
Set wb = excel.Workbooks.Open(App.Path & "\Raport\Template\" & "template")


а такой:

Код: Выделить всё


Dim wd As Word.Document
Set wd = Word.Documents.Open(App.Path & "\Raport\Template\" & "Word")


Не работает.
Ошибка: ActiveX компонент не может создать объект.

Почему?

[GSerg]

А что, объект word уже успешно создан к моменту исполнения этого кода?

[FromTanC]

Нет, не создан.
Но Объект EXCEL тоже не создан, но тем не менее работает

[FromTanC]

Разобрался, вот так работает:

Код: Выделить всё


Dim appW As Word.Application
Set appW = GetObject(, "Word.application")
If Err = 429 Then
    Set appW = New Word.Application
    Err = 0
End If


Но не понятно почему тогда в случае использования EXCEL не ругается.

[GSerg]

FromTanC
Не надо изобретать. Если что-то работает, когда не должно, это не повод делать так всегда. Dim appW As New Word.Application. RTFM. Создание объектов относится к азам, которые нужно знать.

[FromTanC]

ВЫ не могли бы пояснить:

Код: Выделить всё


Dim appWord As Word.Application
Set appWord = GetObject(, "Word.application")
If Err = 429 Then
    Set appWord = New Word.Application
    Err = 0
End If
......
......
Set appWord = Nothing


После этого процесс WinWORD.EXE остается в списке процессов. Мне6 нжно после работы с документом закрыть его и убить процесс

[GSerg]

FromTanC
Если ты (наконец-то) потрудишься сходить в поиск по форуму, ты много там найдешь. Конкретно этот вопрос обсуждался (в который раз) очень недавно.

[alibek]

Перед Set appWord = Nothing делай appWord.Quit. Ну или хотя бы appWord.Visible = True.