Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Название темы: VBA
Показать сообщение отдельно
BOLT


Сообщения: n/a

Профиль | Цитировать


Раз эта тема хоть кого-то заинтересовала, то отвечаю сам себе. За последний год я до мелочей отработал технологию анкетирования. Это самозаполняемые анкеты. Формой для ввода и контейнером содержащим данные пользователя является файл Word.
Можно использовать 2 конструкции: Элементы управления и Поля.

В первом случае обработка идёт так:
Dim iShape As Object
       For Each iShape In myDoc.InlineShapes ' Начали обрабатывать элементы управления
           If iShape.Type = wdInlineShapeOLEControlObject Then ' это элемень управления, а не какая-нибудь там картинка
               intA = iShape.OLEFormat.Object.Value
           End If
       Next iShape

Во втором случае
Dim fldAnswer As FormField
       For Each fldAnswer In myDoc.FormFields 'Начали обрабатывать поля
           intB = fldAnswer.Result
       Next fldAnswer

У первого способа много недостатков. Если нужны пояснения - пишите. Я на этом собаку съел.

Отправлено: 10:56, 08-09-2003 | #3

Название темы: VBA