Форум: "Corba";
Текущий архив: 2005.10.09;
Скачать: [xml.tar.bz2];
Вниз
настройка 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]Наверное ДА.Точно не скажу ибо не люблю я его и не работаю с ним.
← →
YurikGL © (2005-01-13 13:09) [4]
> А можно это сделать с помощью компонента MSWA: TWordApplication
> вместо WordApp: Variant.
Можно... нажимаешь Ctrl+пробел и смотришь доступные параметры...
Страницы: 1 вся ветка
Форум: "Corba";
Текущий архив: 2005.10.09;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.013 c
