Как заменить все подстрочки на новую последовательность понятно, но эта команда не заменяет подстрочки, если они находятся в объекте word "надпись". Есть ли решение данной проблемы?
Для к=1 по oWord.ActiveDocument.Shapes.Count Цикл
oWord.ActiveDocument.Shapes(к).TextFrame.TextRange.Text=СтрЗаменить(oWord.ActiveDocument.Shapes(к).TextFrame.TextRange.Text,"Вася","Петя");
КонецЦикла;