Стоит задача найти и заменить текст в колонтитулах, в которых есть таблицы.
накидал такой код:
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 открываю другими функциями.