Форум: "Основная";
Текущий архив: 2004.07.25;
Скачать: [xml.tar.bz2];

Вниз

Работа с выделенным текстом в 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

---

← →
Глеб ©   (2004-07-13 09:11) [3]

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

---

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

Форум: "Основная";
Текущий архив: 2004.07.25;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.036 c