Пример создания динамической таблицы в шаблоне MS Office Word 2010 и вставка в него картинки

Обработка с открытым кодом. В обработке имеется шаблон (в виде макета) MS Office Word 2010 с  таблицей, эта таблица в макете имеет одну строку данных и итоговую строку, при обходе результата запроса в эту таблицу добавляются новые строки данных перед итогами. Так же — пример вставки картинки в конец документа.

В шаблоне MS Office Word 2010 использованы ключевые параметры типа #Период#, которые ищутся и заменяются.

Вариант 2:

Здесь представлю вариант передачи заменяемых параметров через макрос.

Внимание:

• при использовании данного варианта необходимо зайти в word включить работу vba (word 2010) см. картинку //infostart.ru/upload/iblock/560/dddd.png.
• а также у переменной в коде «ТекстДляЗамены» длина не может превышать 255 знаков

Word = Новый COMОбъект("Word.Application");
Doc=Word.Documents.Add(ИмяФайла,0, 0);
Fnd = Word.ActiveDocument.Range().Find;

// Вставляем комментарий в котором укажем номер сделки и печатной формы

Попытка
ФормаПроцесса.НадписьСостоянияПрогрессора = "Вывод примечания в шаблоне MS Word с информацией по печатной форме";
ФормаПроцесса.Обновить();
Документ_актив = Word.ActiveDocument();

м_Selection = Word.Selection.Range;
мКоммент = Документ_актив.Comments.Add(м_Selection);
//мКоммент.ShowTip = Истина;
мКоммент.Author = "Сысоев Павел";// строка (назначает автора примечанию, чтобы можно было делать отбор примечаний по автору. Автор всегда будет выводится, а здесь задается его представление)
//мКоммент.Date = ТекущаяДата(); // дата
мКоммент.Initial = "Сысоев ПС"; // строка (выводит текст в шапке примечания, ограничение 9 знаков)
мКоммент.Range.Text = НазваниеПечатнойФормы + ДопИнформация;
Исключение

КонецПопытки;

ПримерМакроса = "Sub UPN_FormSdelki()";



СтруктураПечатнойФормы = Новый Структура;

Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
| КурсыВалют.Период КАК Период,
| КурсыВалют.Курс КАК Курс
|ИЗ
| РегистрСведений.КурсыВалют КАК КурсыВалют
|ГДЕ
| КурсыВалют.Валюта В(&Валюта)
| И КурсыВалют.Период МЕЖДУ &НачПериод И &КонПериод
|
|УПОРЯДОЧИТЬ ПО
| Период";

МВалюта = Новый Массив;
МВалюта.Добавить(Справочники.Валюты.НайтиПоКоду("840"));
Запрос.УстановитьПараметр("Валюта", МВалюта);
Запрос.УстановитьПараметр("НачПериод", НачалоДня(НачПериода));
Запрос.УстановитьПараметр("КонПериод", КонецДня(КонПериода));

Результат = Запрос.Выполнить().Выбрать();
СумммаИтог = 0;
сч=1;
Пока Результат.Следующий() Цикл
СтруктураПечатнойФормы.Вставить("Период"+сч);
СтруктураПечатнойФормы.Вставить("Курс"+сч);
СтруктураПечатнойФормы.Вставить("КурсПрописью"+сч);
СтруктураПечатнойФормы.Вставить("ИтогКурс");
СтруктураПечатнойФормы.Вставить("ИтогКурсПрописью");


СтруктураПечатнойФормы["Период"+сч] = Формат(Результат.Период,"ДФ=dd.MM.yyyy");
СтруктураПечатнойФормы["Курс"+сч] = Результат.Курс;
СтруктураПечатнойФормы["КурсПрописью"+сч] = ЧислоПрописью(Результат.Курс,?(Результат.Курс=Окр(Результат.Курс),"Л = ru_RU; НД=Ложь ДП=Ложь","Л = ru_RU; ДП=Истина"),"рубль ,рубля,рублей,м,копейка,копейки,копеек,м,2");

КонецЦикла;



ПримерМакроса = ПримерМакроса + Символы.ПС +
"
| ' выводим примечание с информацией по сделке и печатной форме
| '
| '
| ActiveWindow.ActivePane.VerticalPercentScrolled = 0
| Selection.Comments.Add Range:=Selection.Range
| Selection.TypeText Text:= """ + "Номер сделки: Сделка " + """

| Selection.TypeParagraph
| Selection.TypeText Text:= """ + "Код печатной формы: 1" + """
| Selection.TypeParagraph
| Selection.TypeText Text:= """ + "Название печатной формы: сделка"  + """
| Selection.TypeParagraph
| Selection.TypeParagraph
| Selection.TypeParagraph
| Selection.TypeText Text:= ""Для того чтобы не печатать это примечание:""
| Selection.TypeParagraph
| Selection.TypeText Text:= ""Просто удалите его (щелкнув на нем правой клавишей мышки и выбрать """"удалить примечание"""")""
| Selection.TypeParagraph
|
| ' перейдем с примечания к тексту
| '
| Selection.EscapeKey
|
|";



КолвоПараметров = СтруктураПечатнойФормы.Количество();
ТекНомерПараметра = 0;




Для Каждого Реквизит из СтруктураПечатнойФормы Цикл

ТекНомерПараметра = ТекНомерПараметра + 1;

Если НЕ ТипЗнч(Реквизит.Значение) = Тип("Картинка") Тогда


ТекстДляЗамены = СокрЛП(Реквизит.Значение);
КолВоВхожденийПереносаСтроки = СтрЧислоВхождений(СокрЛП(Реквизит.Значение), Символы.ПС); // обрабатываем текст как (ОАО "СБЕРБАНК РОССИИ")
Если КолВоВхожденийПереносаСтроки > 0 Тогда
ТекстДляЗамены = СтрЗаменить(ТексДляЗамены, Символы.ПС, "#k8SjZc9Dxkp"); //"#k8SjZc9Dxkl"
КонецЕсли;

КолВоВхожденийКавычек = СтрЧислоВхождений(СокрЛП(Реквизит.Значение),""""); // обрабатываем текст как (ОАО "СБЕРБАНК РОССИИ")
Если КолВоВхожденийКавычек > 0 Тогда
ТекстДляЗамены = СтрЗаменить(ТекстДляЗамены, """", """""");
КонецЕсли;


ПримерМакроса = ПримерМакроса + Символы.ПС +
"
|Selection.Find.ClearFormatting
| Selection.Find.Replacement.ClearFormatting
| With Selection.Find
| .Text = """ + "#"+Реквизит.Ключ+"#" + """
| .Replacement.Text = """ + ТекстДляЗамены + """
| .Forward = True
| .Wrap = wdFindContinue
| .Format = False
| .MatchCase = False
| .MatchWholeWord = False
| .MatchWildcards = False
| .MatchSoundsLike = False
| .MatchAllWordForms = False
| End With
| Selection.Find.Execute Replace:=wdReplaceAll
| ";

////КонецЕсли;

Иначе


ИмяФайлаКартинки = ПолучитьИмяВременногоФайла();
Картинка =Реквизит.Значение;
Картинка.Записать(ИмяФайлаКартинки);
ПримерМакроса = ПримерМакроса + Символы.ПС +
"
|'
|' Вставяем картинку объекта
|'
|'
|Selection.Find.ClearFormatting
|With Selection.Find
| .Text = ""#КартинкаПланОбъекта#""
| .Replacement.Text = ""
| .Forward = True
| .Wrap = wdFindContinue
| .Format = False
| .MatchCase = False
| .MatchWholeWord = False
| .MatchWildcards = False
| .MatchSoundsLike = False
| .MatchAllWordForms = False
|End With
|Selection.Find.Execute
|Selection.InlineShapes.AddPicture FileName:= _
|""" + ИмяФайлаКартинки + """, LinkToFile:=False, _
| SaveWithDocument:=True
|ActiveWindow.ActivePane.HorizontalPercentScrolled = 6
|
|";
КонецЕсли;
КонецЦикла;



ТекстМакроса = ПримерМакроса + Символы.ПС + "End Sub";



VBComponents = Word.ActiveDocument.VBProject.VBComponents;
Count = VBComponents.Count();
VBComponents.Add(1);
VBComponents.Item(Count + 1).CodeModule.InsertLines(1, ТекстМакроса);
Word.Application.Run("UPN_FormSdelki");



Word.Caption = " " + Строка(Сделка) + " - (" + УправлениеСделками.УдалениеЛидирующихНулейВНомере(Сделка.ОбъектСтроительства.МакетыПечатныхФорм.Найти(GUID,"GUID").МодульПечатнойФормы.Код) + ") " + Сделка.ОбъектСтроительства.МакетыПечатныхФорм.Найти(GUID,"GUID").МодульПечатнойФормы.Наименование; //ActiveDocument.FullName

//Word.PrintOut(); // распечатать док

Word.Visible = 1;
Word.Activate();
Word.WindowState = 2; // wdWindowStateMinimize (с) статья _http://forum.foxclub.ru/read.php?32,177182,258927
Word.WindowState = 1; // wdWindowStateMaximize