Работа с выделенным текстом в MS Word

← →
Глеб © (2004-07-13 06:30) [0]

Подскажите, пожалуйста, как мне работать с выделенным текстом в 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";

Спасибо.

← →
KSergey © (2004-07-13 07:40) [1]

Стандартный, миллионы раз озвученный подход: в ворде стартуем запись макроса, выполняем необходимые действия, после смотрим текст макроса и с небольшими поправками синтаксиса переносим в дельфи. Вот и все.

← →
Sheng © (2004-07-13 08:16) [2]

Посмотри тут, может что и найдёшь
http://www.kornjakov.ru/st1_5.zip

А как мне указать выделенный текст?

Работа с выделенным текстом в MS Word Найти похожие ветки