Скачать: CL | DM;

Выравнивание в ворде   Найти похожие ветки 

← →
alexey_mas ©   (2007-04-06 14:03) [0]

Подскажите как в ворде можно выровнять вставляемые данные.
т.е. вставляется текст

Range1:=WordApplication.ActiveDocument.Paragraphs.Item(1).Range;
Range1.InsertAfter("Приход: "+"500,00");
Range1.InsertAfter("Приход2441: "+"222500,00");
Range1.InsertAfter("Приход123232: "+"3333500,00");


мне нужно выровнять суммы по правому краю, а текст по левому .
Пробовал вписывать пробелы в зависимости от длины формируемой строки - но это не дает желаемого эффекта.

Как можно выровнять?

Таблицу рисовать мне не нужно.

---

← →
Думкин ©   (2007-04-06 14:22) [1]

а завести колонки?

---

← →
Виталий Панасенко ©   (2007-04-06 14:37) [2]

ParagraphFormat.Alignment := wdAlignParagraphJustify;

> Думкин ©   (06.04.07 14:22) [1]
> а завести колонки?

Таблицу, а не колонки.. И в ячейках выравнивание нужное.. Саму таблицу сделать невидимой

   //-Создаем таблицу для шапки - 3 колонки
   Par1 := wdWord9TableBehavior;
   Par2 := wdAutoFitFixed;
   ActiveDocument.Tables.Add(Selection.Range, 2, 3, Par1, Par2);
   //-Делаем ограничения ячейки невидимыми(непечатаемыми)
   ActiveDocument.Tables.Item(1).Select;

   Selection.Borders.Item(wdBorderTop).LineStyle := wdLineStyleNone;
   Selection.Borders.Item(wdBorderLeft).LineStyle := wdLineStyleNone;
   Selection.Borders.Item(wdBorderBottom).LineStyle := wdLineStyleNone;
   Selection.Borders.Item(wdBorderRight).LineStyle := wdLineStyleNone;
   Selection.Borders.Item(wdBorderHorizontal).LineStyle := wdLineStyleNone;
   Selection.Borders.Item(wdBorderVertical).LineStyle := wdLineStyleNone;
   {Selection.Borders(wdBorderTop).LineStyle := wdLineStyleNone;
   Selection.Borders(wdBorderLeft).LineStyle := wdLineStyleNone;
   Selection.Borders(wdBorderBottom).LineStyle := wdLineStyleNone;
   Selection.Borders(wdBorderRight).LineStyle := wdLineStyleNone;
   Selection.Borders(wdBorderHorizontal).LineStyle := wdLineStyleNone;
   Selection.Borders(wdBorderVertical).LineStyle := wdLineStyleNone;
   Selection.Borders(wdBorderDiagonalDown).LineStyle := wdLineStyleNone;
   Selection.Borders(wdBorderDiagonalUp).LineStyle := wdLineStyleNone}
   //-Заполняем таблицу данными
   ActiveDocument.Tables.Item(1).Cell(1,1).Range.Font.Bold := 1;
   ActiveDocument.Tables.Item(1).Cell(1,1).Range.Font.Underline := 1;
   ActiveDocument.Tables.Item(1).Cell(1,1).Range.Font.Italic := 1;
   ActiveDocument.Tables.Item(1).Cell(1,1).Range.Text := "Текст";


---

← →
homm ©   (2007-04-06 14:39) [3]

> [2] Виталий Панасенко ©   (06.04.07 14:37)

Сложновато.
Не проще табуляцией сделать?

---

← →
Виталий Панасенко ©   (2007-04-06 15:06) [4]

> мне нужно выровнять суммы по правому краю, а текст по левому

я так табуляцией не умею

---

← →
alexey_mas ©   (2007-04-06 15:41) [5]

табуляцией проще бы было, но не понятно как угадать сколько их нужно ставить в каждой строке (у меня текст очень разной длины ) и какой код табуляции ?

---

← →
Виталий Панасенко ©   (2007-04-06 16:28) [6]

> alexey_mas ©   (06.04.07 15:41) [5]
> табуляцией проще бы было, но не понятно как угадать сколько
> их нужно ставить в каждой строке (у меня текст очень разной
> длины ) и какой код табуляции ?

Не угадаешь

---

← →
alexey_mas ©   (2007-04-06 16:50) [7]

> [6] Виталий Панасенко ©   (06.04.07 16:28)
>
> > alexey_mas ©   (06.04.07 15:41) [5]
> > табуляцией проще бы было, но не понятно как угадать сколько
>
> > их нужно ставить в каждой строке (у меня текст очень разной
>
> > длины ) и какой код табуляции ?
>
> Не угадаешь

ок , спасибо за пример с таблицей. так получилось

---

← →
Styx_   (2007-04-06 16:51) [8]

> как угадать

надо не гадать, а правильно выставить выравнивание для табуляции. Подробности в справке Word.

---

← →
homm ©   (2007-04-06 21:22) [9]

> табуляцией проще бы было, но не понятно как угадать сколько
> их нужно ставить в каждой строке

один.

---

← →
Виталий Панасенко(дом)   (2007-04-07 12:17) [10]

> homm ©   (06.04.07 21:22) [9]
>
> > табуляцией проще бы было, но не понятно как угадать сколько
> > их нужно ставить в каждой строке
>
> один.
>

Согласен. Даже никогда не обращал внимания.:-).. Но у таблицы есть преимущество: если текст перед цифрами длинный, то он лихо размещается в предыдущей колонке.. С табуляцией такого, по-моему, не сделаешь...

---

← →
TStas ©   (2007-04-08 14:38) [11]

Если Вы в Москве живете, то в Библио Глобусе продается книжка Корнякова "Программирование документов и проложений... ". Я купил, много полезного узнал. Реально полезная книжка. И про выравнивание там тоже есть.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.026 c