Скачать: CL | DM;

настройка 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.026 c