8.х ОБМЕН Добавление данных в колонтитул файла ms word

Здравствуйте, уважаемые форумчане.!

Возник такой вопрос, есть файлы типа *.doc и *.docx, при их открытии в 1С выполняется процедура по добавлению данных в нижний колонтитул. Данные добавляются в виде текста.
Так вот все бы ничего и все добавляется нормально, кроме тех случаев когда в колонтитуле файла уже содержится объект (именно объект, т.к. с текстом все ок).

Прикрепил обработку, которая выполняет добавление и тестовый файл.


Помогите пожалуйста решить этот момент.

Вопрос решен, тему можно закрывать.
Решил таким образом:

Код:

В = Новый COMОбъект("Word.Application");
Док = В.Documents.Open(Файл, Ложь, Ложь);
КолРазделов = Док.Sections(1).Footers.Count();
КолОбъектов = Док.Sections(1).Footers(1).Shapes.Count();
Для К = 1 По КолРазделов Цикл
СтарыйКолонтитул = Док.Sections(1).Footers(К).Range.Text;
Док.Sections(1).Footers(К).Range.Text = СокрЛП(СтарыйКолонтитул)+?(ПустаяСтрока(СтарыйКолонтитул), "", Символы.ПС)+ТекстКолонтитула;
КонецЦикла;
Если КолОбъектов - Док.Sections(1).Footers(1).Shapes.Count() > 0 Тогда
Док.Close(Ложь);
Док = В.Documents.Open(Файл, Ложь, Ложь);
Док.Sections(1).PageSetup.FooterDistance = Док.Sections(1).Footers(1).Shapes(КолОбъектов).Height + 35;
Док.Sections(1).Footers(1).Shapes(КолОбъектов).Top = 35;
СтарыйКолонтитул = Док.Sections(1).Footers(2).Range.Text;
Док.Sections.Item(1).Footers.Item(2).Range.Find.Execute(СтарыйКолонтитул, Ложь, Ложь, Ложь, Ложь, Ложь, , , Ложь, СокрЛП(СтарыйКолонтитул)+?(ПустаяСтрока(СтарыйКолонтитул), "", Символы.ПС)+ТекстКолонтитула, 2);
КонецЕсли;