Поиск текста в Ворде

← →
dim- © (2004-04-02 08:56) [0]

Как в ворде найти текст, что нашел в инете ничего не делает и ошибок не дает. Что не так, делаю:
Var
FindText, MatchCase, MatchWholeWord, MatchWildcards, MatchSoundsLike, MatchAllWordForms, _Forward, Wrap, Format, ReplaceWith, Replace, MatchKashida, MatchDiacritics, MatchAlefHamza, MatchControl: olevariant;
begin
try
FindText:=Params[0];
MatchCase:=false;
MatchWholeWord:=true;
MatchWildcards:=false;
MatchSoundsLike:=false;
MatchAllWordForms:=false;
_Forward:=true;
Wrap:=wdFindContinue;
Format:=false;
ReplaceWith:=Params[1];
Replace:=WdReplaceAll;
MatchKashida:=false;
MatchDiacritics:=false;
MatchAlefHamza:=false;
MatchControl:=false;
MsWord.Selection.Find.Execute(Findtext,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam, _forward,Emptyparam,Emptyparam,ReplaceWith,replace,Emptyparam,Emptyparam,Emptyparam,Emptyparam);
Except
ShowMessage("Ошибка");
end;

← →
dim- © (2004-04-02 20:26) [1]

люди помогите

← →
YurikGl © (2004-04-02 21:33) [2]

основываясь на примере макроса VBA

Selection.Find.ClearFormatting
With Selection.Find
.Text = "Проблема"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute

Написал следующее.
Находит и выделяет необходимый текст

WordApplication1.Connect;
WordApplication1.Selection.Find.ClearFormatting;
WordApplication1.Selection.Find.Text:="Ïðîáëåìà";
WordApplication1.Selection.Find.Execute(EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,Emp tyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam);
WordApplication1.Disconnect;

Спасибо нашел другое, вроде работает:
type
TWordReplaceFlags = set of (wrfReplaceAll, wrfMatchCase, wrfMatchWildcards);

const
wdFindContinue = 1;
wdReplaceOne = 1;
wdReplaceAll = 2;
wdDoNotSaveChanges = 0;
Var
Flags: TWordReplaceFlags;
begin
try
MsWord.Selection.Find.ClearFormatting;
MsWord.Selection.Find.Text := Params[0];
MsWord.Selection.Find.Replacement.Text := Params[1];
MsWord.Selection.Find.Forward := True;
MsWord.Selection.Find.Wrap := wdFindContinue;
MsWord.Selection.Find.Format := False;
// MsWord.Selection.Find.MatchCase := wrfMatchCase;
MsWord.Selection.Find.MatchWholeWord := False;
// MsWord.Selection.Find.MatchWildcards := wrfMatchWildcards;
MsWord.Selection.Find.MatchSoundsLike := False;
MsWord.Selection.Find.MatchAllWordForms := False;
{ Èùåì}
MsWord.Selection.Find.Execute(Replace := wdReplaceAll)
Except
ShowMessage("Ошибка");
end;

Поиск текста в Ворде Найти похожие ветки