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

Тема в разделе "Обмен данными в "1С:Предприятие 8"", создана пользователем Sagot_63, 26 июн 2015.

  1. TopicStarter Overlay
    Sagot_63
    Offline

    Sagot_63

    Регистрация:
    25 июн 2015
    Сообщения:
    8
    Симпатии:
    0
    Баллы:
    1
    Здравствуйте, уважаемые форумчане.!

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

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


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

    Вложения:

    Последнее редактирование: 26 июн 2015
  2. TopicStarter Overlay
    Sagot_63
    Offline

    Sagot_63

    Регистрация:
    25 июн 2015
    Сообщения:
    8
    Симпатии:
    0
    Баллы:
    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);
    КонецЕсли;
Похожие темы
  1. Shelest
    Ответов:
    2
    Просмотров:
    2.321
Загрузка...

Поделиться этой страницей