Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.04.11;
Скачать: CL | DM;

Вниз

Форматирование текста в MSWord   Найти похожие ветки 

 
Bers01   (2004-03-23 15:12) [0]

Уважаемые МАСТЕРА!
Подскажите:
Как программно форматировать текст в MSWord
(размер шрифта, курсив, подчеркивание, жирный шрифт...)
Для доступа к Word-у пользую компонент TWordApplication
Запись текста строкой:
WordApplication1.Selection.Tables.Item(1).Cell(row,5).Range.Text:="новый текст"

Как сделать выводимую строку, например, подчеркнутой.
С Уважением, Андрей.


 
Yermek   (2004-03-23 15:16) [1]

WordApplication1.Selection.Range(1,11).Bolt; для первый 11 символов, кстати символ коретки так же идут в счет и т.д. и т.п.
если WordApplication1.Selection.Range.Bolt;
то весь твой документ будет жирным


 
TUser ©   (2004-03-23 15:24) [2]

Лучше всего переписать соотв. текст из макроса в VBA.


 
Bers01   (2004-03-23 15:32) [3]


> Yermek   (23.03.04 15:16) [1]
> WordApplication1.Selection.Range(1,11).Bolt; для первый
> 11 символов, кстати символ коретки так же идут в счет и
> т.д. и т.п.
> если WordApplication1.Selection.Range.Bolt;
> то весь твой документ будет жирным


Спасибо за подсказку, но есть поправочка:
Вариант
WordApplication1.Selection.Tables.Item(1).Cell(row,5).Range.Bold;
не работает.
Работает такой:
WordApplication1.Selection.Tables.Item(1).Cell(row,5).Range.Bold:=1;

С Уважением, Андрей.



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

Текущий архив: 2004.04.11;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.037 c
11-1060854130
Ajax
2003-08-14 13:42
2004.04.11
Перетаскивание фомы за Edit


6-1075815393
Davey
2004-02-03 16:36
2004.04.11
*Сетевые соединения процессов*


7-1079816431
DEMON_XXX
2004-03-21 00:00
2004.04.11
Как отследить дискету в A:


14-1079370428
txt
2004-03-15 20:07
2004.04.11
КТО ОТЛИЧНО ЗНАЕТ Delphi И НЕПРОЧ ЗАРАБОТАТЬ??


3-1078997841
RavenD
2004-03-11 12:37
2004.04.11
почему теряются данные при запросе?