ВБ6 и поле Ворда

[Ципихович Эндрю]

Здравствуйте, для начала с типом не пойму

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

Set ObjectWord = GetObject(, "Word.Application")
    Set ObjectOpenWord = ObjectWord.ActiveDocument
'тип следующего за выделенным поля
        'ошибка 438 Объект не поддерживает это свойство или метод
        MsgBox$ ObjectWord.Fields(ObjectWord.Selection.Fields(1).Index + 1).Type

[Alec]

Ну ведь не поддерживает...
Может в строке

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

MsgBox$ ObjectWord.Fields(ObjectWord.Selection.Fields(1).Index + 1).Type

все же вместо ObjectWord использовать ObjectOpenWord?

[Ципихович Эндрю]

согласен, спасибо, глаз замылился, добавил, но присвоить значение не могу:

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

Const wdFieldFormTextInput = 70
     Const wdDateText = 2
    Dim ПолеFormTextInput As Object
                Set ПолеFormTextInput = ObjectOpenWord.FormFields.Add(Range:=ObjectOpenWord.Range, Type:= _
        wdFieldFormTextInput)
    ПолеFormTextInput.TextInput.EditType Type:=wdDateText
                ObjectOpenWord.Bookmarks(ПолеFormTextInput.Name).Delete
                'присваивание текстовому полю ..., значения ...
                ПолеFormTextInput.Result = "Формат_даты)"

на последней строке кода ошибка 4198 - Ошибка команды
как нужно??

[Ципихович Эндрю]

апну тему, подскажите как же присвоить значение в добавленном поле??

[alibek]

Не нужно редактировать поле. Попробуй изменять field.TextInput.Default.

[Ципихович Эндрю]

последнюю строку сделал так:

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

'Default - умолчание
                ПолеFormTextInput.Default = "Формат_даты)"

получил - объект не поддерживает свойство
подскажите пжл как нужно

[Ципихович Эндрю]

разобрался, назначил полю Тип: Дата (.EditType Type:=wdDateText), значит значение поля должно быть датой, иначе ошибка.
ПолеFormTextInput.Result = Date
не нахожу wdText, где оно и все остальные спрятались от меня?