![]() |
![]() |
![]() |
|
Вывожу в ворд помогите с форматированием | ☑ | ||
---|---|---|---|---|
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 - там все константы расписаны. Или запишите макрос, зайдите в редактор макросов в режиме отладки и посмотрите значение константы.
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |