| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Работа с выделенным текстом в MS Word [D6, D7, Win95/98, WinME, NT4, Win2k, WinXP]
Глеб © (2004-07-13 06:30:00)Подскажите, пожалуйста, как мне работать с выделенным текстом в Word через Delphi.
В частности, меня интересует, как установить выравнивание текста по середине.
Ещё один вопрос:
Я создаю таблицу следующим образом:
var
WordApp, NewDoc, WordTable: OLEVariant;
RowCnt, ColCnt: Integer;
begin
try
WordApp := CreateOleObject('Word.Application');
except
Exit;
end;
WordApp.Visible := True;
NewDoc := WordApp.Documents.Add;
ColCnt := 3;
RowCnt := 3;
WordTable := NewDoc.Tables.Add(WordApp.Selection.Range, ColCnt, RowCnt);
WordTable.Cell(1, 1).Width := 130;
WordTable.Cell(2, 1).Width := 130;
WordTable.Cell(3, 1).Width := 130;
WordTable.Cell(1, 2).Width := 130;
WordTable.Cell(2, 2).Width := 130;
WordTable.Cell(3, 2).Width := 130;
................ (и так далее...)
end;
Как мне, вписывая в ячейку (2, 1) текст, выделить какую-то его часть жирным шрифтом?
Вписываю я так: WordTable.Cell(2, 1).Range.Text := '123';
Спасибо.
Глеб (2004-07-13 09:11:00) [1]А как мне указать выделенный текст?
Sheng (2004-07-13 08:16:00) [2]Посмотри тут, может что и найдёшь
http://www.kornjakov.ru/st1_5.zip
KSergey (2004-07-13 07:40:00) [3]Стандартный, миллионы раз озвученный подход: в ворде стартуем запись макроса, выполняем необходимые действия, после смотрим текст макроса и с небольшими поправками синтаксиса переносим в дельфи. Вот и все.
| |
