Добрый день! Подскажите пожалуйста, как преобразовать данный код для того чтобы при слиянии с word значение из поля "XXX" заменяло в шаблоне не только закладку "XXX" но и "XXX1", "XXX2", "XXX3" и так далее

Dim f
For Each f In Split(strFields, ",")
.Bookmarks.Item(f).Range.Text = Nz(Me(f), "")
Next f

По примеру

for each bm in .Bookmarks
if instr(bm.Name, ctl.Name, 1) = 1 and len(bm.Name) - len(ctl.Name) <= 2 then
bm.Range.Text = ctl.Value
end if
next bm

http://www.sql.ru/forum/1102735/sliyanie-s-word-zakladki