коды/значение полей

[zveryz]

Здраствуйте, нужна помощь с продуктом Ворд 2016, Нужно сделать следующее: найти ряд одного слова , например "продукт" и заменить их все на слово с кодом/значение полей "{eq продукт} , как это можно сделать?

[AleksandrSH]

аналогичная задача
найти определенные слова и заменить их полем
по отдельности все работает

Sub field_warning()
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
        "EQ ВНИМАНИЕ", PreserveFormatting:=False
End Sub

а вот как совместить с поиском и заменой ума не приложу