Замена символов, word, VB, Delphi

Формулировка задачи:

подскажите пожалуйста
запускаю Word'овский документ через OLE Automation из Delphi, хочется поменять часть символов в открытом документе. Посмотрел макрос VBA в самом Word'е.

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
     Selection.Find
        .Text = 
        .Replacement.Text = 
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
 
Selection.Find.Execute Replace:=wdReplaceAll

т.е. меняю '1' на '3'
пытаюсь делать тоже самое на Delphi

...
var
   ...
   wordApp, wordAppSelection, wordAppFind: variant;
   ...
begin
...
   wordApp := CreateOleObject(
   wordApp.Documents.(fileName);
   wordApp.Visible := true;

   wordAppSelection := wordApp.Selection;
   wordAppFind := wordAppSelection.Find;
   wordAppFind.ClearFormatting;
   wordAppFind.Replacement.ClearFormatting;
   wordAppFind.Text := 
   wordAppFind.Replacement.Text := 
    
   // в этом месте вопрос

как мне выполнить саму замену - если я правильно понимаю надо както добраться до свойства
Replace?
или возможны все это сделать через другую команду - в VB я не силен

Решение задачи: «Замена символов, word, VB, Delphi»

textual
                            Листинг программы 
                        
                            wordAppFind.Execute(Replace:=wdReplaceAll);