Делаем приложение в VB6 для Word/
Смысл: заполнение из приложения документа.
Проблема такая.
После открытия шаблона документа выделяются текстовые метки, но заполнение их не происходит.
Листинг.
Option Base 1
' данные, получаемые интерфейсной частью приложения
Public nomer As String
Public Familia As String
' данные, печатаемые формой
Public ТекстовоеПоле1 As String
Public ТекстовоеПоле2 As String 'т.е. имена, печатаемые формой равны именам меток в шаблоне
Dim wordApp As Word.Application ' ссылка на Word
'объявление маасивов
Dim BookMarMas(2) As String ' массив меток
Dim DataMas(2) As String ' массив с данными для формы интерфейса
Dim wordDoc As Word.Document 'экземпляр документа
Dim sel As Word.Selection ' ссылка на выделенный диапазон в документе
Sub test_ПечатьПротокола() 'программа тестирования
Call Заглушка
Call ПечатьПротокола
End Sub
' программа Заглушка заменяющая интерфейс приложения бо еще не разработан
Sub Заглушка()
ТекстовоеПоле1 = "12"
ТекстовоеПоле2 = "114"
End Sub
Sub ПечатьПротокола()
'процедура печати протокола
Call MakeMas
For i = 1 To UBound(BookMarMas) 'цикл для заполнения полей шаблона
wordDoc.Bookmarks(BookMarMas(i)).Select
Set sel = Word.Selection
sel.TypeText DataMas(i)
Next
End Sub
'процедура заполнения массивов
Sub MakeMas()
BookMarMas(1) = "ТекстовоеПоле1": DataMas(1) = ТекстовоеПоле1
BookMarMas(2) = "ТекстовоеПоле2": DataMas(2) = ТекстовоеПоле2
End Sub
