function TaiWordDocument.GoToText(const aText: String): Boolean;
var C,F : Variant;
WText : Variant;
begin
// C := fDocument.Content ;
C := fDocument.Range(0 , 0);
F := C.Find ;
F.Forward := True ;
F.ClearFormatting ;
F.Highlight := true ;
F.MatchWholeWord := false ;
F.MatchCase := False ;
F.Wrap := wdFindContinue;
wText := aText ;
Result := F.Execute({FindText } wText ,
{MatchCase } EmptyParam ,
{MatchWholeWord } EmptyParam ,
{MatchWildcards } EmptyParam ,
{MatchSoundsLike } EmptyParam ,
{MatchAllWordForms} EmptyParam ,
{Forward } EmptyParam ,
{Wrap } EmptyParam ,
{Format } EmptyParam ,
{ReplaceWith } EmptyParam ,
{Replace } EmptyParam ,
{MatchKashida } EmptyParam ,
{MatchDiacritics } EmptyParam ,
{MatchAlefHamza } EmptyParam ,
{MatchControl } EmptyParam
);
//F.Execute(FindText := wText );
end;