Текущий архив: 2003.10.23;
Скачать: CL | DM;
Вниз
WordDocument1.Range.Find.Execute Найти похожие ветки
← →
Delphi5.01 © (2003-10-11 23:33) [0]Доброе врема суток!
Имю вот такой код:
Label := "1234";
Text := "Delphi";
WordDocument1.Range.Find.Execute(Label,EmptyParam,EmptyParam,EmptyParam,
EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, Text,
replace);
Как понятно из листинга етот код используется для Replace-а в ворде, но проблема в
том что я хочу сменить все 1234 на Дельфиб только в том случае если шрифт 1234
Times New Roman.
Прежде временно спасибо за помощ
← →
Palladin © (2003-10-11 23:36) [1]А если 12 написано курьером а 34 таймсом?
← →
Delphi5.01 © (2003-10-12 09:10) [2]To Palladin [1]
В этом случае не обращять внимание, только если одним шрифтом, и Times New Roman
← →
Delphi5.01 © (2003-10-12 19:23) [3]Pojaluista pomogite!
Страницы: 1 вся ветка
Текущий архив: 2003.10.23;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.025 c
