| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
настройка Word'овского параграфа из Delphi [Delphi]
John Magic © (2005-01-12 16:34:00)Хочу отформатировать параграф вставленный из Delphi, но на нужных параметрах при запуске ругается "Параметр задан не верно".
With MSWA.Selection.ParagraphFormat do begin
WidowControl := Integer(True);
KeepWithNext := Integer(True);
KeepTogether := Integer(True);
End;
Работает только при False. Что надо сделать, чтобы присвоить абзацу свойства? И возможно ли такое?
YurikGL (2005-01-13 13:09:00) [1]
> А можно это сделать с помощью компонента MSWA: TWordApplication
> вместо WordApp: Variant.
Можно... нажимаешь Ctrl+пробел и смотришь доступные параметры...
GanibalLector (2005-01-13 09:26:00) [2]Наверное ДА.Точно не скажу ибо не люблю я его и не работаю с ним.
John Magic (2005-01-13 09:17:00) [3]А можно это сделать с помощью компонента MSWA: TWordApplication вместо WordApp: Variant. Или совместить два объекта для одного документа? Просто там уже столько написано кода.
GanibalLector (2005-01-13 00:04:00) [4]
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.Проверить в "Абзац"-"Положение на странице."
| |
