Главная страница
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.03 c
1-1082436256
R
2004-04-20 08:44
2004.04.11
Локальную и много или нет но одну?


8-1076153125
FOZI
2004-02-07 14:25
2004.04.11
Пересечение полигонов (наложение многоугольников)


14-1081891855
GanibalLector
2004-04-14 01:30
2004.04.11
ИСХОДНИКИ мониторов(PortMon,RegMon и пр...)


4-1079598088
Radiant
2004-03-18 11:21
2004.04.11
Смена шрифтов в стандартных диалогах и на Caption е формы


14-1079607716
Cobalt
2004-03-18 14:01
2004.04.11
Лечение в негосударственных мед. учреждениях