Форум: "Основная";
Текущий архив: 2006.05.14;
Скачать: [xml.tar.bz2];

Вниз

Количество страниц в документе MS Word   Найти похожие ветки 

← →
Guf ©   (2006-03-31 12:39) [0]

Господа, не подскажите, как можно узнать количество страниц в документе MS Word. Моя программа печатает здоровенную накладную на нескольких листах. И в конце надо у казать на скольки литах напечатана данная накладная. Так вот, как узнать сколько страниц открытом документе?
Из макросов удалось выжать только это:
   Selection.Sections(1).Footers(1).PageNumbers.Add PageNumberAlignment:= _
       wdAlignPageNumberRight, FirstPage:=True

Но никакх футерсов в дельфях я не нашёл...

---

← →
SpellCaster   (2006-03-31 13:39) [1]

Selection/Range.wdNumberOfPagesInDocument

---

← →
Guf ©   (2006-04-06 07:41) [2]

> Selection/Range.wdNumberOfPagesInDocument

Не получилось. Но всё равно, спасибо за подсказку...
procedure TForm1.Button1Click(Sender: TObject);
var
 vrTemplateName, vrTmpOle: OleVariant;
 S: String;
begin
 try
   W1.Free;
   W1:=TWordApplication.Create(Form1);
   W1.Connectkind:=ckNewInstance;
   vrTemplateName := "КЧ.doc";
   W1.Documents.Open(vrTemplateName,
     EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,
     EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,
     EmptyParam);
   vrTmpOle := wdNumberOfPagesInDocument;
   S := W1.Selection.Information[vrTmpOle];
   ShowMessage(S);
 finally
   vrTmpOle := false;
   W1.Visible := true;
   W1.Disconnect;
 end;
end;


---

← →
SpellCaster   (2006-04-06 14:58) [3]

Хм, действительно, для инфы о номерах страниц возвращает -1, причём даже из самого VBA, и с примером, данным в хелпе. Странно.

Вот, нашёл! Не знаю, как a дельфях, но на VBA так:
MsgBox (ActiveDocument.BuiltInDocumentProperties("Number of Pages").Value)

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2006.05.14;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.011 c