Поиск заданного текста в документе Word

var text1:string;
begin
text1:='';
text1:=InputBox('Введите текст',text1,text1);
WAP.Selection.Find.Forward:=true;
WAP.Selection.Find.Text:=text1;
if WAp.Selection.Find.Execute then messagebox(handle,'Поиск завершен успешно','внимание',0);
end;

//открытие документа...
...
if CheckBox1.Checked then
if WAP.ActiveDocument.Bookmarks.Exists('absac1') then // если найдена закладка
WAP.ActiveDocument.Bookmarks.Item('absac1').Delete;

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,ComObj, ExtCtrls, OleServer, WordXP;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Timer1: TTimer;
    Label1: TLabel;
    CheckBox1: TCheckBox;
    WordParagraphFormat1: TWordParagraphFormat;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Label1Click(Sender: TObject);
    function POISK():string;
 
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
  met1,met2,met3,met4,met5,met6,met6a, met7,met8,met9,met10,met10b:string;
  What,Which,Count,Name:Variant;
  Dok:Variant;              
  Word:Variant;           
  Table:Variant;          
  Stroka:Variant;         
  Range:Variant;
 
  
 
 
  
    direktoriya : string;
    text1:AnsiString;
implementation
 
{$R *.dfm}
 //*****************************************************************************
//                  
procedure TForm1.Button1Click(Sender: TObject);
begin
Close;             
end;
//****************************************************************************
//
 
 procedure TForm1.Button2Click(Sender: TObject);
 var
 Word:Variant;
 h:OLEVariant;
 j,lengy:integer;
 
begin
  direktoriya := ExpandFileNAme('шаблон документа1.dot');
     try
 
    Word :=CreateOleObject('Word.Application');
 
    Dok:=Word.Documents.Open(direktoriya);
    except
  ShowMessage('Шаблон не открылся');
  exit
  end;
  POISK;
  Word.Visible:=true;
  end;
{*******************************************************************************}
 
procedure TForm1.Label1Click(Sender: TObject);
begin
 if Label1.Visible then Label1.Visible:=false
else  Label1.Visible :=true;
end;
{******************************************************************************}
 
function TForm1.POISK:string;
begin
 
if CheckBox1.Checked then
if WAP.ActiveDocument.Bookmarks.Exists('vr1') then 
WAP.ActiveDocument.Bookmarks.Item('vr1').Delete;
 
end;

procedure TForm1.Button2Click(Sender: TObject);
var
Word:Variant;

unit Unit1;
 
interface
 
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,ComObj, ExtCtrls, OleServer, WordXP;
 
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Timer1: TTimer;
Label1: TLabel;
CheckBox1: TCheckBox;
WordParagraphFormat1: TWordParagraphFormat;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Label1Click(Sender: TObject);
function POISK():string;
 
private
{ Private declarations }
public
{ Public declarations }
end;
 
var
Form1: TForm1;
 
met1,met2,met3,met4,met5,met6,met6a, met7,met8,met9,met10,met10b: string;
What,Which,Count,Name:Variant;
Dok:Variant;
WAP:Variant;
Table:Variant;
Stroka:Variant;
Range:Variant;
 
direktoriya : string;
text1:AnsiString;
 
implementation
 
{$R *.dfm}
//*****************************************************************************
//
procedure TForm1.Button1Click(Sender: TObject);
begin
Close;
end;
//****************************************************************************
//
 
procedure TForm1.Button2Click(Sender: TObject);
var
h:OLEVariant;
j,lengy:integer;
 
begin
direktoriya := ExpandFileNAme('шаблон документа1.dot');
try
WAP :=CreateOleObject('Word.Application');
Dok := WAP.Documents.Open(direktoriya);
except
ShowMessage('Шаблон не открылся');
exit
end;
POISK;
Word.Visible:=true;
end;
{*******************************************************************************}
 
procedure TForm1.Label1Click(Sender: TObject);
begin
if Label1.Visible then Label1.Visible:=false
else Label1.Visible :=true;
end;
{******************************************************************************}
 
function TForm1.POISK:string;
begin
  if CheckBox1.Checked then
    if WAP.ActiveDocument.Bookmarks.Exists('vr1') then
      WAP.ActiveDocument.Bookmarks.Item('vr1').Delete;
  if not CheckBox1.Checked then
    if WAP.ActiveDocument.Bookmarks.Exists('vr2') then
      WAP.ActiveDocument.Bookmarks.Item('vr2').Delete;
end;

//   ФУНКЦИЯ ПОИСКА ТЕКСТА В ШАБЛОНЕ И ЕГО УДАЛЕНИЕ
//сначала в шаблоне выделяем абзац который возможно будет удален и добавляем его
//в закладки(например 'vr1'), также выделяем другой абзац и добавляем его в
//закладки (например 'vr2'), сохраняем шаблон
function TForm1.POISK:string;
var
ud1,ud2,ud3:variant;  //рабочая переменная
rng1,rng2:variant;    //рабочая переменная
 
begin
 if CheckBox1.Checked then    // выстяляем уловие и если оно выполняется то
 begin
 bm1:=dok.Bookmarks.Item('vr1');  //переходим на закладку 'vr1'
 rng1:=bm1.Range;            //ссылаемся на диапазон связанный с закладкой 'vr1'
 rng1.Delete                 //удаляем диапазон связанный с этой закладкой
 end
 else                       //если условие не выполнено то
 begin
 bm2:=dok.Bookmarks.Item('vr2');   //переходим на закладку 'vr2'
 rng2:=bm2.Range;         //ссылаемся на диапазон связанный с закладкой 'vr2'
 rng2.Delete;             //удаляем диапазон связанный с этой закладкой
 end;
 end;

  //Выбираем нужную закладку.
  if CheckBox1.Checked then
    bm := doc.Bookmarks['vr1']
  else
    bm := doc.Bookmarks['vr2'];
  //Обработка закладки.
  rng := bm.Range;
  bm.Delete;
  rng.Delete;