Intoarce numarul de pagini dintr-un fisier WORD

FUNCTION WordPageCount(cWordDoc)
oWord = CreateObject("Word.Application")
oDoc = oWord.Documents.Open(cWordDoc)
oDoc.Repaginate

cPag = Transform(oWord.Selection.Information(4))
=Messagebox( "Documentul contine " + cPag + " pagini")
oWord.Quit
Release oWord