Вывод строк отчета посреди документа Word.

Est' problema ispol'zovaniya shablona, no ne v vide 'shapka-vyvod-podval', a vokrug vyvoda. Client derzhitsya za staruyu formu documenta (ochen' simpatichnuyu i funkcional'nuyu) i trebuetsya v nego vyvodit' informaciyu: stroki, nabol'shie kartinki i bar-codes. Mozhno eto sdelat', ne sozdavaya document polnost'yu i ne ispol'zuya Datareport ili Crystal, a pryamo v Word?

0

Конечно возможно. Если вы можете написать на ворде макрос, который делает то что вам нужно, то скопируйте этот макрос в среду бейсик и приспособьте его для выполнения из бейсик. Для этого надо создать объект Word.Application (установить Refference Microsoft Word 8.0 Object Library). Каждый оператор макроса будет вызовом метода этого объекта. При этом нужно модифицировать пути к файлам, поскольку рабочая директория при выполнении из бейсика будет другая. В конце надо закрыть ворд и уничтожить объект. Вот мой работающий пример:

Private Sub Form_Load()
Set mw = CreateObject('Word.Application')
mw.Visible = True ' Это нужно делать,
' если вы хотите наблюдать за процессом работы макроса
' Здесь начинается макрос. Добавляю в начале каждого оператора 'mw.'
mw.Documents.Open 'd:cvbshab.doc', ConfirmConversions:=False, ReadOnly:= _
False, AddToRecentFiles:=False, PasswordDocument:='', PasswordTemplate:= _
'', Revert:=False, WritePasswordDocument:='', WritePasswordTemplate:='', _
Format:=wdOpenFormatAuto
mw.Selection.MoveDown Unit:=wdLine, Count:=5
mw.Selection.TypeText Text:='asdfg'
mw.ActiveDocument.SaveAs FileName:='d:cvbotchet.doc', FileFormat:=wdFormatDocument _
, LockComments:=False, Password:='', AddToRecentFiles:=True, _
WritePassword:='', ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False
mw.ActiveWindow.Close
' Здесь макрос кончился
mw.Quit 'Выхожу из Word
Set mw = Nothing
End Sub

0

Spasibo
Tol'ko problema v tom, chto ya ne mogu napisat' macros. Ispol'zuetsya politika zapreta macrosov v Office - iz-za virusov. K tomu zhe forma mozhet byt' peredelana rukami.
Menya interesovala vozmozhnost' sdelat' kakie-libo elementy v documente Word, k kotorym mozhno obrashat'sya iz programmy.

0

На самом деле никаких макросов здесь не появляется. Для того, чтобы написать программу общения вашей программы с Word-документом, надо знать, какие методы имеются у объекта Word. Макросы используют те же самые методы. Поэтому логично использовать запись макроса в ворде, для того чтобы изучить правила работы с объектом Word и получить набросок программы. Только набросок, вам же придется переносить данные в документ из переменных бейсика, а это никакой макрос сделать не сможет, так что придется вставлять операторы ручками. И никому не говорите, что вы баловались с макросами, скажите, что написали программу из головы.

Другой вариант это изучить формат RTF. Он документирован и в нем можно разобраться. (Я, правда, не разбирался). Разгрузив шаблон в формате RTF вы сможете средствами обычного двоичного файлового ввода-вывода сделать туда необходимые вставки. Полученный RTF-файл загружается в Word так же как и обычный DOC-файл. Его можно редактировать печатать и т. д.

0