|
|
|
| Всем добрый день давно не навещал сей форум, но нужда заставила.
Суть проблемы:
Убрали со всех машин микрософтовский офис, поставили рантайм версию аксесс и третий ОпенОффис. Все забегало и заработало, кроме одной вещи.
Ранее благодаря этому сайту были написаны выгрузки в Ворд с форматированием
где то через слияние, где то через закладки заполнялись вордовые документы.
Естественно в аксессе было написано море кода по этому вопросу.
Сейчас увы все это перестало работать.
Хотя слышал что в Опен Офисе даже VBA поддерживается сейчас.
Есть ли какое то решение данной проблемы.
Или хотя бы подскажите где копать в сторону ОО что бы сделать выгрузки туда | |
|
| |
|
|
|
| http://hiprog.com/index.php?option=com_content&task=view&id=251661586 | |
|
| |
|
|
|
| Так значит все таки полная правка кода.
а про слияние в оврд есть какие нибудь аналоги вот такой код
With word_obj.Application
.Documents(FileBLH1).Activate
.ActiveDocument.MailMerge.OpenDataSource _
Name:=DbLet.Name, _
ReadOnly:=True, _
LinkToSource:=True, _
AddToRecentFiles:=False, _
SQLStatement:="SELECT [TblLetterOutTmp].* FROM [TblLetterOutTmp];" 'источник данных для полей слияния
.ActiveDocument.MailMerge.MainDocumentType = 3
.ActiveDocument.MailMerge.Execute Pause:=True
.Documents(FileBLH1).Close SaveChanges:=0 'закрыли копию шаблона
word_obj.Selection.Fields.Update
word_obj.ActiveWindow.View.ShowFieldCodes = False 'отключение показа кодов полей
.ActiveDocument.SaveAs FileName:=DocBLH
.Documents(DocBLH).Close SaveChanges:=0
End With | |
|
| |
|
|
|
| в моем 2.4 от ИнфаРесурса нормального слияния нет, во всяком случае с ACCESS скрестить не получалось.
Может в свежих версиях что-то появилось | |
|
| |
|
|
|
| У меня 3-ий там есть в меню/сервис/рассылка писем
Четсно скажу глуоко не копался
хотя данные из аксесса он берет
Но мне показалось уж больно он заточен именно под письма
хотя может и ошибаюсь | |
|
| |