Вставка штрихкода на каждую страницу MS WORD для 1С: Документооборот

СисИнфо = Новый СистемнаяИнформация;
	Если СисИнфо.ТипПлатформы = ТипПлатформы.Windows_x86 ИЛИ СисИнфо.ТипПлатформы = ТипПлатформы.Windows_x86_64 Тогда
		Попытка
			WordApp = Новый COMОбъект("Word.Application");
		Исключение
			ВызватьИсключение(НСтр("ru = 'Ошибка работы с приложением MS Word. Необходимо проверить правильность установки приложения.'"));
		КонецПопытки;
	Иначе
		ВызватьИсключение(НСтр("ru = 'Вставка штрихкода в файл MS Word возможна только в Windows. Обратитесь к администратору.'"));	
	КонецЕсли;
	
	ИмяВременногоФайлаOffice = ПолучитьИмяВременногоФайла(Расширение);
	НовыйПутьКФайлу = ПолучитьИмяВременногоФайла(Расширение);
	ДвоичныеДанныеФайла.Записать(ИмяВременногоФайлаOffice);
	
	ИмяВременногоФайлаКартинки = ПолучитьИмяВременногоФайла("JPG");
	ДвоичныеДанныеКартинки.Записать(ИмяВременногоФайлаКартинки);
	
	Док = WordApp.Documents.Add(ИмяВременногоФайлаOffice);
	
	//Истрелов А.А. штрихкод на каждой странице ++
	ШтрихкодНаКаждойСтранице = kit_УсловияВыполненияВызовСервера.НастройкаШтрихкодаПоПараметруСеанса();
	
	Если ШтрихкодНаКаждойСтранице Тогда
		КоличествоСтраниц = Док.ComputeStatistics(2);	
	Иначе
		КоличествоСтраниц = 1;
	КонецЕсли;
	
	Для НомерСтраницы = 1 По КоличествоСтраниц Цикл
	//Истрелов А.А. штрихкод на каждой странице --
		
		oGraphicObject = Док.Shapes.AddTextBox(1, 100, 100, 100, 50);
		
		//устанавливаем привязку положения к печатной области
		oGraphicObject.RelativeHorizontalPosition = 0;
		oGraphicObject.RelativeVerticalPosition = 0;  
		
		ПоложениеНаСтранице = ДанныеОПоложении.ПоложениеНаСтранице;
		Если ПоложениеНаСтранице = ПредопределенноеЗначение("Перечисление.ВариантыРасположенияШтрихкода.ПравыйНижний") Тогда
			СмещениеПоГоризонтали = "MAX";
			СмещениеПоВертикали = "MAX";
		ИначеЕсли ПоложениеНаСтранице = ПредопределенноеЗначение("Перечисление.ВариантыРасположенияШтрихкода.ПравыйВерхний") Тогда
			СмещениеПоГоризонтали = "MAX";
			СмещениеПоВертикали = "MIN";
		ИначеЕсли ПоложениеНаСтранице = ПредопределенноеЗначение("Перечисление.ВариантыРасположенияШтрихкода.ЛевыйВерхний") Тогда
			СмещениеПоГоризонтали = "MIN";
			СмещениеПоВертикали = "MIN";
		ИначеЕсли ПоложениеНаСтранице = ПредопределенноеЗначение("Перечисление.ВариантыРасположенияШтрихкода.ЛевыйНижний") Тогда
			СмещениеПоГоризонтали = "MIN";
			СмещениеПоВертикали = "MAX";
		КонецЕсли;
		
		Если СмещениеПоГоризонтали = "MAX" Тогда
			//выравнивание к правому краю
			oGraphicObject.Left = -999996;
		ИначеЕсли СмещениеПоГоризонтали = "MIN" Тогда
			//выравнивание к левому краю
			oGraphicObject.left = -999998;
		Иначе
			//если задано произвольное расположение, то переведем смещение по горизонтали из миллиметров в point'ы
			//1 point = 1/72"
			oGraphicObject.RelativeHorizontalPosition = 1;
			Если НЕ ЗначениеЗаполнено(ДанныеОПоложении.СмещениеПоГоризонтали) Тогда
				ДанныеОПоложении.СмещениеПоГоризонтали = 0;
			КонецЕсли;
			oGraphicObject.left = (ДанныеОПоложении.СмещениеПоГоризонтали / 25.4) * 72;
		КонецЕсли;
		
		Если СмещениеПоВертикали = "MAX" Тогда
			//выравнивание по нижнему краю
			oGraphicObject.Top = -999997;
		ИначеЕсли СмещениеПоВертикали = "MIN" Тогда
			//выравнивание по верхнему краю
			oGraphicObject.Top = -999999;
		Иначе
			//если задано произвольное расположение, то переведем смещение по горизонтали из миллиметров в point'ы
			oGraphicObject.RelativeVerticalPosition = 1;
			Если НЕ ЗначениеЗаполнено(ДанныеОПоложении.СмещениеПоВертикали) Тогда
				ДанныеОПоложении.СмещениеПоВертикали = 0;
			КонецЕсли;
			oGraphicObject.Top =(ДанныеОПоложении.СмещениеПоВертикали / 25.4) * 72;
		КонецЕсли;
				
		oGraphicObject.Select();
		
		
		WordApp.Selection.ShapeRange.Line.Visible = Ложь;
		WordApp.Selection.InlineShapes.AddPicture(ИмяВременногоФайлаКартинки);
		WordApp.Selection.ShapeRange.TextFrame.AutoSize = Истина;
		WordApp.Selection.ShapeRange.Fill.Visible = Ложь;
		WordApp.Selection.Font.Bold = Истина;
		
		Если ДанныеОПоложении.СмещениеПоГоризонтали = "MAX" ИЛИ ДанныеОПоложении.СмещениеПоГоризонтали = "MIN" Тогда 
			oGraphicObject.ConvertToFrame();		
		КонецЕсли;
		
		//Истрелов А.А. штрихкод на каждой странице ++
		WordApp.Selection.GoTo(1,,,).Select();
		
	КонецЦикла;
	//Истрелов А.А. штрихкод на каждой странице --
			
	Если Найти(WordApp.Build, "12.") > 0 Тогда
		Если Расширение = "docx" Тогда
			Док.SaveAs(НовыйПутьКФайлу, 12);                        
		Иначе
			Док.SaveAs(НовыйПутьКФайлу, 0);
		КонецЕсли;
	Иначе
	    Если Расширение = "docx" Тогда
			Док.SaveAs(НовыйПутьКФайлу, 109);                        
		Иначе
			Док.SaveAs(НовыйПутьКФайлу);
		КонецЕсли;
	КонецЕсли;
	Док.Saved = Истина;	
	Док.Close(); 
	WordApp.Quit();
	WordApp = Неопределено;
	
	УдалитьФайлы(ИмяВременногоФайлаOffice);
	
	Возврат НовыйПутьКФайлу;

ШтрихкодНаКаждойСтранице = kit_УсловияВыполненияВызовСервера.НастройкаШтрихкодаПоПараметруСеанса();
	
	Если ШтрихкодНаКаждойСтранице Тогда
		КоличествоСтраниц = Док.ComputeStatistics(2);	
	Иначе
		КоличествоСтраниц = 1;
	КонецЕсли;
	
	Для НомерСтраницы = 1 По КоличествоСтраниц Цикл

//ГК++
Если ЧтениеXML.Имя = "w:p" И ВставитьШтампСледТег Тогда
   ЗаписьXML.ЗаписатьБезОбработки(ТекстДляВставкиШтампа);
   ВставитьШтампСледТег = Ложь;
КонецЕсли;
//ГК--