Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: ActiveX/СОМ/CORBA > Как програмно запретить word wrap в таблице Word

Автор: GenaNa 27.12.2009, 18:16

Как сделать так, чтобы строка, вставляемая в ячейку MS Word, не переносилась, а раздвигала ячейку?

Делаю следующее:

Код


var WordTable, NewDoc, R :OleVariant;
Line:String;

....
NewDoc := Word.Documents.Add;//открываю документ
.........//здесь создал таблицу 
WordTable := NewDoc.Tables.Item(1);// получаю эту таблицу 
R := WordTable.Cell(2,2).Range;// область ячейки (столбец 2, сторка 2)

Line:='Привет!';//что нужно вставить

 R.InsertAfter(Line);//вставляем
 R.InsertParagraphAfter;//запоминаем

Получается в ячейке(столбец 2, сторка 2):
Прив
ет!
Нужно:
Привет!

Автор: volvo877 27.12.2009, 23:59

Код

WordTable := NewDoc.Tables.Item(1);// получаю эту таблицу 
WordTable.AllowAutoFit := True; // Устанавливаю свойство AutoFit

, и переносов больше нет smile