uses ComObj, Variants;
procedure TForm1.Button3Click(Sender: TObject);
const mydoc = 'd:\temp\LazWord.docx';
var msWord,sourceDoc : OleVariant;
var nbPages,nbWords : integer;
begin
msWord := CreateOleObject('Word.Application');
// wdStatisticLines 1 Count of lines.
// wdStatisticPages 2 Count of pages.
// wdStatisticParagraphs 4 Count of paragraphs.
// wdStatisticWords 0 Count of words.
sourceDoc := msWord.Documents.Open(mydoc);
nbPages := sourceDoc.ComputeStatistics(2);
nbWords := sourceDoc.ComputeStatistics(0);
ShowMessage('File ' + mydoc + #13#10 + 'nb Pages : ' + IntToStr(nbPages) +
#13#10 + 'nb Words : ' + IntToStr(nbWords));
sourceDoc.Close;
msWord.quit;
end;