Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.015 c