Имя: Пароль:
1C
 
Вывожу в ворд помогите с форматированием
0 крутойкодер
 
30.03.10
15:40
Объект = ПолучитьCOMОбъект(ПутьКФайлу);
       // Покажем документ. Для красоты.
       Объект.Application.Visible = 1;
       Word = Объект.Application;

       Doc = Объект.Application.Documents(1);
       Doc.Activate();

       // Готовим переменную в которой будет содержимое нашего документа
       // (текст, таблицы и проч).
       Text = Word.Selection;

       // Очистим документ
       // Ctrl-A
       Text.WholeStory();
       // Del
       Text.Delete(1, 1);

Text.TypeText(Символы.ВК);

       Text.ParagraphFormat.Alignment = 4; //3 - по ширине, 1- лево 2 право 4 растянуть
       Text.TypeText(Строка(Тема));


А что сделать что бы было по центру
Text.ParagraphFormat.Alignment = ????;
1 dk
 
30.03.10
15:46
наверно надо залезть в Word - VBA и посмотреть чему может быть равен Alignment
2 крутойкодер
 
30.03.10
16:00
(1)
дык я так и сделал

   Selection.MoveUp Unit:=wdLine, Count:=1
   Selection.MoveDown Unit:=wdLine, Count:=1
   Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
   Selection.MoveDown Unit:=wdLine, Count:=1
   Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
   Selection.MoveDown Unit:=wdLine, Count:=1
   Selection.ParagraphFormat.Alignment = wdAlignParagraphJustify

но wdAlignParagraphCenter что это в циферьках опять не понятно
3 butterbean
 
30.03.10
16:02
(2) это 1, посмотреть можно прям в ворде, код макроса открываешь и там ищешь в object inspector
4 крутойкодер
 
30.03.10
16:26
(3) ну так 1 это же влево !!!
5 butterbean
 
30.03.10
16:27
(4) проверял?
6 крутойкодер
 
30.03.10
16:28
(5)епть
сори

неправ
7 крутойкодер
 
30.03.10
16:54
а как перейти в конец текста??

как поставить курсор в конец текста ??
не в конец текущей строки
а в конец именно документа
8 крутойкодер
 
30.03.10
16:59
Text.EndKey() - в конец строки
Selection.EndKey Unit:=wdLine

это я end нажал

а Selection.EndKey Unit:=wdStory

это я ctrl +end

как это написать
9 крутойкодер
 
30.03.10
17:21
сделал через опу

может кому пригодиться

Text.WholeStory(); //выбираю весь документ ctrl+A
       
Position = Word.Selection.End; //получаю конец выбранного
Word.Selection.EndKey(); типа нажал кнопку end

и ВСЕ ;)
10 BuHu
 
30.03.10
17:28
(9)Word.Selection.EndKey(6);
11 Сергей Д
 
30.03.10
17:35
Если знаете Дельфи, поищите модули WordConst.pas и ExcelConst.pas - там все константы расписаны. Или запишите макрос, зайдите в редактор макросов в режиме отладки и посмотрите значение константы.
Кaк может человек ожидaть, что его мольбaм о снисхождении ответит тот, кто превыше, когдa сaм он откaзывaет в милосердии тем, кто ниже его? Петр Трубецкой