Zanimljivo rešenje je ponudio "Rik" na
http://superuser.com/a/661140
Code:
Const wdStatisticPages = 2
Set FSO = CreateObject("Scripting.FileSystemObject")
currentPath = fso.GetAbsolutePathName(".")
set FLD = FSO.GetFolder(currentPath)
Set objWord = CreateObject("Word.Application")
objWord.Visible = False
For Each Fil In FLD.Files
If UCase(FSO.GetExtensionName(Fil.name)) = "DOCX" Then
Set objDoc = objWord.Documents.Open(currentPath & "\" & Fil.Name)
intPages = intPages + objDoc.ComputeStatistics(wdStatisticPages)
objDoc.Saved = True
objDoc.Close
End If
Next
objWord.Quit
Wscript.Echo "Total pages: " & intPages
Set oShell = Nothing
Set FLD = Nothing
Set FSO = Nothing
Ovaj kod je potrebno da snimiš kao poseban txt fajl i promeniš mu ekstenziju u
vbs. Pri pokretanju, otvara sve docx u folderu, svakom prebroji strane a tebi saopšti samo konačnu sumu. -Možda je presporo da svaki put čekaš dok skripta sve ne pootvara (mada mi se čini brže nego da isto radi iz Worda).
Ja bih eventualno pokušao da preko makroa sačuvam trenutni broj strana u osobinama datog dokumenta (Properties) a podesio bih da se rutina pokrene pre svakog snimanja. Posle bi se nekom drugom (verovatno prostijom) skriptom mogao očitati taj atribut, pretpostavljam, bez potrebe da se fajl otvara.
Have you found helpful examples, solutions or ideas-in-work, please consider the
following:
• Citation of *actual page* you are going to using is welcome.
• Have you saw "Value Added" examples you are going to incorporate to your
profitable blog, daily job or any money making venture: How about online donation?
↗Ana & Vlade Divac Foundation
Hvala!