Проблема с VBA for Word

[griefon]

Вопрос возник в процессе заполнения печатных форм с использованием слияния.

Задача:
В процессе MailMerge нужно одно из полей MergeField разбить на отдельные символы и этими символами заполнить указанные места в документе.

Мой вариант решения:
Написан обработчик события MailMergeBeforeMerge, который срабатывает перед каждым слиянием.
В этом событии выполнялся find and replace, для заранее вписанных в документ меток на выбранный символ из нужного поля.
Данный код работал на тестовой среде, но на сервере заказчика этот код не работает.

Далее была попытка использовать DocVariable, но их подстановка осуществляется до начала слияния.

Дополнение:
- код по замене работает если написать его в открытие документа
- событие MailMergeBeforeMerge срабатывает, но код не выполняет замену, при этом никаких ошибок не выдает.

Код:

PHP код:

Private Sub Document_Open()

    Set wdapp = Word.Application
     
End Sub


Private Sub wdapp_MailMergeBeforeMerge(ByVal Doc As Document, ByVal StartRecord As Long, ByVal EndRecord As Long, Cancel As Boolean)

    
With Selection.Find
    .ClearFormatting
    .Text = "#1"
    .Replacement.ClearFormatting
    .Replacement.Text = Mid(Doc.MailMerge.DataSource.DataFields(5).Value, 1, 1)
    .Execute Replace:=wdReplaceAll, Forward:=True, _
        Wrap:=wdFindContinue
End With


End Sub 


Вопрос, либо как сделать, чтобы такой вариант работал, либо найти альтернативный вариант.

[Артем Enot Грунин]

Цитата:

Сообщение от griefon

Данный код работал на тестовой среде, но на сервере заказчика этот код не работает.

Возможно стоит поискать отличия в настройках? Речь идет именно о сервере, или все же про Word на конечном клиенте? Возможно проблема все же в ограничениях безопасности на выполнение макросов или банальном несовпадении версии Office?
Некоторые задачи формирования печатных форм все же проще решать не через слияние, а путем формирования контента из кода. В случае, когда без разработчика обойтись не получится, существенной разницы не вижу.

[griefon]

Цитата:

Сообщение от Артем Enot Грунин

Возможно стоит поискать отличия в настройках? Речь идет именно о сервере, или все же про Word на конечном клиенте? Возможно проблема все же в ограничениях безопасности на выполнение макросов или банальном несовпадении версии Office?

Версии Офиса одинаковые, безопасность макросов вряд ли при делах - так как макрос все-таки работает. Различия в настройках посмотрю.

Цитата:

Сообщение от Артем Enot Грунин

Некоторые задачи формирования печатных форм все же проще решать не через слияние, а путем формирования контента из кода. В случае, когда без разработчика обойтись не получится, существенной разницы не вижу.

Согласен, но в случае слияния проще в дальнейшем редактировать формы документов, которые могут меняться. Точнее для редактирования форм требуется меньшая квалификация.

[Артем Enot Грунин]

Почему вы считаете что макрос работает, если результатов его работы нет? Возможно я просто не так понял.
Насчет гибкости слияния не спорю, но никто не заставляет полностью отказываться от шаблонов. Аналогично размещению полей слияния можно размещать в шаблоне метки и другие настраиваемые поля, которые будет обрабатывать ваш код. В случае если вы, например, решите создать печатную форму для заказа, то иной возможности поместить в документ таблицу со строками заказа не будет.

[griefon]

Цитата:

Сообщение от Артем Enot Грунин

Почему вы считаете что макрос работает, если результатов его работы нет? Возможно я просто не так понял.

Смотрел в отладчике.

Цитата:

Сообщение от Артем Enot Грунин

Насчет гибкости слияния не спорю, но никто не заставляет полностью отказываться от шаблонов. Аналогично размещению полей слияния можно размещать в шаблоне метки и другие настраиваемые поля, которые будет обрабатывать ваш код. В случае если вы, например, решите создать печатную форму для заказа, то иной возможности поместить в документ таблицу со строками заказа не будет.

Дело в том, что заполнять эти поля надо после срабатывания механизма слияния. Точнее для каждой итерации слияния.

С печатными формами заказов и аналогичными формами понятно, но в данном случае такого функционала нет и не планируется.

[griefon]

Я нашел решение, как исправить код, чтобы он работал:

надо Selection.Find заменить на Doc.Range.Find