Имя: Пароль:
1C
 
Замена подстрок в word из 1С
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,"Вася","Петя");
КонецЦикла;
2 Beer75
 
12.10.05
11:12
Спасибо!