форматирование через phoenixbsl

Word2MXL/Ext/ObjectModule.bsl

@@ -4,7 +4,7 @@
 	комДокумент = Неопределено;
 	Попытка
 		// Для пересчётов использовать комВорд.CentimetersToPoints(ЧислоСМ) и комВорд.PointsToCentimeters(ЧислоПунктов)
-		//рСантиметр=6.25; // в средних символах шрифта (при необходимости пересчитывать по рДиапазон.CharacterWidth - ширина символов, константа WdCharacterWidth
+		// рСантиметр=6.25; // в средних символах шрифта (при необходимости пересчитывать по рДиапазон.CharacterWidth - ширина символов, константа WdCharacterWidth
 		//рШиринаСтраницы=75; // эмпирически, довести до ума с учётом //сообщить("стран ширина "+стран.PageWidth+", высота "+стран.PageHeight); // в пунктах, работает
 		
 		// Типовые настройки документа Ворд:
@@ -26,7 +26,7 @@
 		КонецЕсли;
 		рШиринаСтраницыВорда = Окр(комВорд.PointsToCentimeters(комСтраница.PageWidth), 2);
 		рВысотаСтраницыВорда = Окр(комВорд.PointsToCentimeters(комСтраница.PageHeight), 2);
-		Если НЕ ((20 <= рШиринаСтраницыВорда и рШиринаСтраницыВорда <= 22) и (28 <= рВысотаСтраницыВорда и рВысотаСтраницыВорда <= 30)) Тогда
+		Если НЕ ((20 <= рШиринаСтраницыВорда И рШиринаСтраницыВорда <= 22) И (28 <= рВысотаСтраницыВорда И рВысотаСтраницыВорда <= 30)) Тогда
 			Сообщить("Текущая версия не обрабатывает размеры страницы, отличающиеся от А4!");
 			ЗакрытьДокумент(комДокумент); // без сохранения
 			ЗакрытьВорд(комВорд);
@@ -49,7 +49,7 @@
 			Для каждого рПараграфСписка Из рСписок.ListParagraphs Цикл
 				рФорматСписка = рПараграфСписка.Range.ListFormat;
 				рТипСписка = рФорматСписка.ListType; // WdListType
-				Если рТипСписка = 0 или рТипСписка = 2 или рТипСписка = 6 Тогда
+				Если рТипСписка = 0 ИЛИ рТипСписка = 2 ИЛИ рТипСписка = 6 Тогда
 					// ненумерованные и bullet игнорируем
 				Иначе
 					// заниматься иерархией с проверкой погружения (рФорматСписка.ListLevelNumber) не будем, нам достаточно проверить так:
@@ -122,8 +122,8 @@
 			
 			комТаблица = Неопределено;
 			Для каждого знч Из мКомТаблиц Цикл
-				Если знч.Начало <= рНачалоДиапазона и рНачалоДиапазона <= знч.Конец
+				Если знч.Начало <= рНачалоДиапазона И рНачалоДиапазона <= знч.Конец
-					и знч.Начало <= рКонецДиапазона и рКонецДиапазона <= знч.Конец
+					И знч.Начало <= рКонецДиапазона И рКонецДиапазона <= знч.Конец
 					Тогда // можно было бы рДиапазон.InRange(комТаблица.Range), но оно медленнее
 					комТаблица = знч.Таблица; Прервать;
 				КонецЕсли;
@@ -151,7 +151,7 @@
 				
 				стрк = стрк + 1;
 			Иначе
-				Если не рИдётТаблица Тогда // выводим таблицу, а далее пропускаем все входящие в неё диапазоны, и идём до её конца
+				Если НЕ рИдётТаблица Тогда // выводим таблицу, а далее пропускаем все входящие в неё диапазоны, и идём до её конца
 					ВывестиТаблицу(комВорд, комТаблица, т, стрк, рСантиметр);
 				КонецЕсли;
 				рИдётТаблица = Истина;
@@ -244,7 +244,7 @@
 
 
 Процедура ВывестиТаблицу(комВорд, комТаблица, табДокумент, текСтрока, рСантиметр = 6.25)
-	//рСантиметр=6.25;
+	// рСантиметр=6.25;
 	рСимвол7 = Символ(7);
 	
 	квоСтрок = комТаблица.Rows.Count;
@@ -264,7 +264,7 @@
 			рОбластьЯчейки = табДокумент.Область(текСтрока, стлб, текСтрока, стлб + квоЯчеекМхл - 1);
 			рОбластьЯчейки.Объединить();
 			
-			Если комЯчейка.FitText или комЯчейка.WordWrap Тогда // пока так
+			Если комЯчейка.FitText ИЛИ комЯчейка.WordWrap Тогда // пока так
 				рОбластьЯчейки.РазмещениеТекста = ТипРазмещенияТекстаТабличногоДокумента.Переносить;
 			Иначе
 				рОбластьЯчейки.РазмещениеТекста = ТипРазмещенияТекстаТабличногоДокумента.Авто;
@@ -281,14 +281,14 @@
 			рОбластьЯчейки.Шрифт = ПостроитьШрифт(ВыборШрифта(рДиапазонЯчейки));
 			
 			// на практике удобнее оставлять автовысоту, но иногда может понадобиться:
-			//рОбластьЯчейки.АвтоВысотаСтроки=Ложь;
+			// рОбластьЯчейки.АвтоВысотаСтроки=Ложь;
 			//рОбластьЯчейки.ВысотаСтроки=рСантиметр*Окр(комВорд.PointsToCentimeters(комЯчейка.Height),0,РежимОкругления.Окр15как20);
 			
 			рОбластьЯчейки.ГоризонтальноеПоложение = ПолучитьВыравнивание(рДиапазонЯчейки.ParagraphFormat.Alignment);
 			// отступ - в пунктах, при необходимости требуется пересчёт!
-			//Если рОбластьЯчейки.ГоризонтальноеПоложение=ГоризонтальноеПоложение.Лево Тогда
+			// Если рОбластьЯчейки.ГоризонтальноеПоложение=ГоризонтальноеПоложение.Лево Тогда
 			//	рОбластьЯчейки.Отступ=комЯчейка.LeftPadding;
-			//ИначеЕсли рОбластьЯчейки.ГоризонтальноеПоложение=ГоризонтальноеПоложение.Право Тогда
+			// ИначеЕсли рОбластьЯчейки.ГоризонтальноеПоложение=ГоризонтальноеПоложение.Право Тогда
 			//	рОбластьЯчейки.Отступ=комЯчейка.RightPadding;
 			//КонецЕсли;
 			

Word2MXL/Forms/Форма/Ext/Form/Module.bsl

@@ -1,5 +1,4 @@
-
+&НаКлиенте
-&НаКлиенте
 Асинх Процедура Конвертировать(Команда)
 	Диалог = Новый ПараметрыДиалогаПомещенияФайлов;
 	Диалог.Заголовок = "Выберите документ";
@@ -11,7 +10,7 @@
 	Элементы.Прогресс.Видимость = Истина;
 	Состояние = "Передача файла";
 	Оповещение_ОХодеВыполнения = Новый ОписаниеОповещения("ПомещениеФайла_ОповещенияОХодеВыполнения", ЭтаФорма, Неопределено);
-    ОписаниеФайла = Ждать ПоместитьФайлНаСерверАсинх(Оповещение_ОХодеВыполнения,,,Диалог, ЭтаФорма.УникальныйИдентификатор);
+	ОписаниеФайла = Ждать ПоместитьФайлНаСерверАсинх(Оповещение_ОХодеВыполнения, , , Диалог, ЭтаФорма.УникальныйИдентификатор);
 	
 	Элементы.Прогресс.Видимость = Ложь;
 	Прогресс = 0;
@@ -71,7 +70,7 @@
 			Адрес = Неопределено;
 		КонецЕсли;
 		
-        ВызватьИсключение ("Ошибка конвертации в mxl",КатегорияОшибки.ОшибкаВнешнегоИсточникаДанных,"500",Ошибка,Причина);
+		ВызватьИсключение("Ошибка конвертации в mxl", КатегорияОшибки.ОшибкаВнешнегоИсточникаДанных, "500", Ошибка, Причина);
 	КонецПопытки;
 	
 	ПопыткаУдалитьФайлы(ВремФайл);