|
Вывожу в ворд помогите с форматированием |
☑ |
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ет в милосердии тем, кто ниже его? Петр Трубецкой