настройка Word овского параграфа из Delphi

← →
John Magic (2005-01-12 16:34) [0]

Хочу отформатировать параграф вставленный из Delphi, но на нужных параметрах при запуске ругается "Параметр задан не верно".
With MSWA.Selection.ParagraphFormat do begin WidowControl := Integer(True); KeepWithNext := Integer(True); KeepTogether := Integer(True); End;
Работает только при False. Что надо сделать, чтобы присвоить абзацу свойства? И возможно ли такое?

← →
GanibalLector © (2005-01-13 00:04) [1]

var WordApp:Variant;Doc1:OleVariant; begin WordApp := CreateOleObject("Word.Application"); WordApp.Documents.add; wordapp.visible:=true; Doc1 := WordApp.ActiveDocument; WordApp.Selection. TypeText("GanibalLector"); // wdAlignParagraphCenter = $00000001; WordApp.Selection.ParagraphFormat.Alignment:=1; WordApp.Selection.ParagraphFormat.KeepWithNext:=true;//не отрывать от следующего WordApp.Selection.ParagraphFormat.WidowControl:=true; //запрет висячих строк WordApp.Selection.ParagraphFormat.KeepTogether:=true;//не разрывать абзац Doc1:=UnAssigned;WordApp:=UnAssigned; end;
Естественно,можно и false.Проверить в "Абзац"-"Положение на странице."

← →
John Magic (2005-01-13 09:17) [2]

А можно это сделать с помощью компонента MSWA: TWordApplication вместо WordApp: Variant. Или совместить два объекта для одного документа? Просто там уже столько написано кода.

← →
GanibalLector © (2005-01-13 09:26) [3]

Наверное ДА.Точно не скажу ибо не люблю я его и не работаю с ним.

> А можно это сделать с помощью компонента MSWA: TWordApplication
> вместо WordApp: Variant.

Можно... нажимаешь Ctrl+пробел и смотришь доступные параметры...

настройка Word овского параграфа из Delphi Найти похожие ветки