Замена символов в WordXP

← →
Ptr (2003-03-18 16:24) [0]

Уважаемые мастера, помогите советом! Простая задача замены определенных символов в MS WordXP. Подключаюсь нормально, все вижу, а вот код:

OleTrue := 1;
OleFalse := 0;
ReplacementText := "";
Forward := 1 ;
Wrap := wdReplaceAll; //wdFindContinue;
Format := 0;
MatchCase := 0;
MatchWholeWord := 0;
MatchWildcards := 0;
MatchSoundsLike := 0;
MatchAllWordForms := 0;
Replace := 1;

if WordDocument.Range.Find.Execute(OStr,MatchCase,MatchWholeWord,MatchWildcards, MatchSoundsLike,MatchAllWordForms,Forward,Wrap,
Format,NStr,Replace,OleFalse,OleFalse,OleFalse,OleFalse)
then Application.MessageBox("OK","")
else Application.MessageBox("No","");

Выдает ошибку "Заглушке переданы неправильные данные"
Если я использую метод WordDocument.Range.Find.ExecuteOld
то ошибки не выдает но и ничего ненаходит.................

← →
NKiril © (2003-03-18 17:31) [1]

Говорю сразу в код не вникал. Попробуй написать решение этого вопроса на встроенном в Word VBA. Если там получится, то разберешься, и решение сможешь перенести в Делфи.
Если твой вариант не получится то делай через макрос, там свои ньюансы, но если чего мыль, я опишу подробнее...
1. Кстати если работать с Word-ом на прямую из Делфа то функции такие же как в Word-овском VBA, те же класы и т.д.?
2. И где можно достать такую документацию?

Замена символов в WordXP Найти похожие ветки