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

Pojaluista pomogite!

WordDocument1.Range.Find.Execute Найти похожие ветки