Текущий архив: 2004.04.18;
Скачать: CL | DM;

Вниз

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

← →
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;

---

← →
dim- ©   (2004-04-03 00:37) [3]

Спасибо нашел другое, вроде работает:
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;

---

Страницы: 1 вся ветка

Текущий архив: 2004.04.18;
Скачать: CL | DM;

Наверх

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