>Okay, its eluding me : )
>Does anyone know how to get the number of pages in a word document through
>word automation in foxpro?
>
>Thanks
>
>Sam

#DEFINE wdStatisticWords	0	
#DEFINE wdStatisticLines	1	
#DEFINE wdStatisticPages	2	
#DEFINE wdStatisticCharacters	3	
#DEFINE wdStatisticParagraphs	4	
#DEFINE wdStatisticCharactersWithSpaces	5	
#DEFINE wdStatisticFarEastCharacters	6	

#DEFINE wdDoNotSaveChanges	0	

lcDocName = getfile('doc')
oWord=createobject("word.application")	&& Create word object
WITH oWord
  .documents.open(lcDocName)
  WITH .ActiveDocument
    ? "Chars: ",.ComputeStatistics(wdStatisticCharacters)
    ? "Charswspaces: ",.ComputeStatistics(wdStatisticCharactersWithSpaces)
    ? "Lines: ",.ComputeStatistics(wdStatisticLines)
    ? "Pages: ",.ComputeStatistics(wdStatisticPages)
    ? "Paragraphs: ",.ComputeStatistics(wdStatisticParagraphs)
    ? "Words: ",.ComputeStatistics(wdStatisticWords)
  ENDWITH
  .Quit(wdDoNotSaveChanges)
ENDWITH

Cetin