Kako dobiti broj stranica u nekom Word dokumentu? Word koristim za neka izvješća ali se moram igrati sa velčinom fonta jer moraju biti na jednoj stranici.
Učitam template i popunim podacima. Nakon toga bih trebao dobiti broj stranica novog dokumenta. Ako je broj stranica veći od 1 - smanjim font dodanog teksta, pa ponovo provjera itd. dok ne dobijem jednu stranicu.
uses
...
Word2000, Office2000, ...;
...
procedure OpenDoc(tmpName: string)
var
fwa: TWordApplication;
begin
fwa := TWordApplication.Create(nil);
fwa.Connect;
fDocument := fwa.Documents.Open( tmpName, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, dn)
end;
Rudarim već par dana po web-u, ne mogu nigdje pronaći kako dobiti broj stranica. Ima primera koji ne rade...