Поиск и замена текста в колонтитулах

[shakycucumber]

Стоит задача найти и заменить текст в колонтитулах, в которых есть таблицы.

накидал такой код:

Код:

var colon, colon1, colon2: olevariant;
  i, b: integer;
begin
  for i:=1 to WordApp1.ActiveDocument.Sections.Count do
    begin
    colon2:=WordApp1.ActiveDocument.Sections.Item(i).Range;
    for b := 1 to WordApp1.ActiveDocument.Sections.item(i).Range.Tables.Count do
      begin {поиск и замена в колонтитулах}
       colon1:=colon2.Tables.item(b).range;
        colon:=Colon1.{Footers.}Range.Find;
        colon.ClearFormatting;
        colon.Replacement.ClearFormatting;
        colon.Text:=SText;
        colon.Replacement.Text:=IText;
        colon.Forward:=True;
        colon.Wrap:=wdFindContinue;
        colon.Format:=False;
        colon.MatchCase:=False;
        colon.MatchWholeWord:=False;
        colon.MatchWildcards:=False;
        colon.MatchAllWordForms:=False;
        colon.Execute(Replace:=wdReplaceAll);
    end;
end;

к сожалению он не выполняет задуманного, помогите найти ошибку.
word открываю другими функциями.