8.х Word, 1С, объединение

Тема в разделе "Отчеты и обработки для "1С:Предприятие 8"", создана пользователем Sf_by_YaphetS, 31 июл 2013.

  1. TopicStarter Overlay
    Sf_by_YaphetS
    Offline

    Sf_by_YaphetS Опытный в 1С

    Регистрация:
    8 авг 2012
    Сообщения:
    64
    Симпатии:
    0
    Баллы:
    26
    Доброго времени суток всем дорогие друзья!
    Вопрос, поискал в интернете как смог, но чето не могу или туплю под конец дня

    Код:
    WordApplication  = Новый COMОбъект("WORD.Application");
    ПутьКШаблону = "C:\d.doc";
    ПутьКШаблону2 = "C:\2.doc";
    НовыйДокумент = WordApplication .Documents.Add(ПутьКШаблону);
    Selection = НовыйДокумент.Content;
    Selection.Find.ClearFormatting();
    Selection.Find.Replacement.ClearFormatting();
    
    Selection.Find.Forward = True;
    
    
    wdReplaceAll  = 00000002;
    Selection.Find.Format = False;
    Selection.Find.MatchCase = False;
    Selection.Find.MatchWholeWord = False;
    Selection.Find.MatchWildcards = False;
    Selection.Find.MatchSoundsLike = False;
    Selection.Find.MatchAllWordForms = False;
    Selection.Find.Text = "&дата";
    Selection.Find.Replacement.Text = "ГГ ВП";
    Selection.Find.Execute(, , , , , , , , , ,wdReplaceAll);
    Selection.Find.Text = "";
    Selection.Find.Replacement.Text = "";
    
    Selection.Find.ClearFormatting();
    Selection.Find.Replacement.ClearFormatting();
    WordApplication.Visible = Истина;
    
    Собсно, формирую Ворд добавляю туда документ и заменяю его!

    Вопрос: Имеются несколько вордовских документов, как их объединить в 1, ну например
    Шапка, Тело, Конец

    Я залил бы все в один шаблон сразу, или понаделал бы несколько шаблонов для них, но проблема в том что несколько параметров данных могут выводиться несколько раз, только под разными номерами
    Подскажите как объединить несколько документов в 1, если это возможно васче?

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