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