Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight

Re: How to get MS-Word Page count and line count?

by jmcnamara (Monsignor)
on Mar 08, 2004 at 22:38 UTC ( #334960=note: print w/replies, xml ) Need Help??

in reply to How to get MS-Word Page count and line count?

A Word document can compute its own page and line count as can be seen on the File->Properties->Statistics page. These values can also be calculated via the Word object model as follows:
#!/usr/bin/perl -l use strict; use Win32::OLE; use Win32::OLE::Const 'Microsoft Word'; my $word = Win32::OLE->new('Word.Application'); my $doc = $word->Documents->Open('c:\temp\test2.doc'); die "Unable to open document ", Win32::OLE->LastError() unless $do +c; my $pages = $doc->ComputeStatistics(wdStatisticPages); my $lines = $doc->ComputeStatistics(wdStatisticLines); my $words = $doc->ComputeStatistics(wdStatisticWords); print "Pages:\t", $pages; print "Lines:\t", $lines; print "Words:\t", $words; $doc->Close; __END__
I couldn't get the Word Const to work under -w without generating warnings (although it works fine under warnings). So here are the required constants just in case:
wdStatisticWords = 0 wdStatisticLines = 1 wdStatisticPages = 2 wdStatisticCharacters = 3 wdStatisticParagraphs = 4 wdStatisticCharactersWithSpaces = 5 wdStatisticFarEastCharacters = 6


Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://334960]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (1)
As of 2023-03-21 02:12 GMT
Find Nodes?
    Voting Booth?
    Which type of climate do you prefer to live in?

    Results (59 votes). Check out past polls.