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

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

Форум программистов > Delphi: ActiveX/СОМ/CORBA > Компонент TWordApplication

Автор: Marriage 28.10.2004, 10:02

Есть компонент, хелпа по нему не могу найти , может кто-нить подскажет ???

Автор: Dimich 28.10.2004, 11:26

На VB это делается вроде так:

Код

    Selection.Sections(1).Footers(1).PageNumbers.Add PageNumberAlignment:= _
        wdAlignPageNumberRight, FirstPage:=True

(нумерация в правом нижнем углу)

компонента TWordApplication имеет аналогичные свойства

Автор: Marriage 28.10.2004, 12:02

Нету таких свойств ...
Selection.Sections(1).

Автор: Medved 28.10.2004, 12:04

Цитата(Marriage @ 28.10.2004, 13:02)

Есть компонент, хелпа по нему не могу найти , может кто-нить подскажет ???

Смотрите в таких случаях объектую модель требуемого приложения MS Office. Ее можно найти в справках к этим офисным приожением.

Автор: Marriage 28.10.2004, 15:41

Все .. Разобрался сам методом тыка ...

WordApp.ActiveWindow.ActivePane.View.SeekView := wdSeekCurrentPageHeader;
WordApp.Selection.Font.Size := 10;
WordApp.Selection.TypeText('ñòð ');
WordApp.Selection.Fields.Add(WordApp.Selection.Range, Type_,EmptyParam,EmptyParam);
WordApp.Selection.TypeText(' èç ');
WordApp.Selection.Fields.Add(WordApp.Selection.Range, Type1_,EmptyParam,EmptyParam);
WordApp.Selection.ParagraphFormat.Alignment := wdAlignParagraphRight;
WordApp.ActiveWindow.ActivePane.View.SeekView := wdSeekMainDocument;
WordApp.ActiveDocument.PrintPreview;
WordApp.ActiveWindow.ActivePane.View.Zoom.Percentage := 100;