Prebrojavanje stranica dokumenta

[ dears965 @ 09.08.2015. 01:00 ] @

Potrebno mi je da za aktivni doc u Wordu memorisem broj strana, i da taj broj upotrebim u nekom drugom programu. Npr. broj stranica Tutorijali1.doc je 120. Jasno je da se negde registruje koliko doc ima stranica posle zatvaranja. Ali, kojom funkcijom i kako to "upecati" i koristiti u nekim drugim programima. Nesto je sa VBA, ali ne mogu da uradim. Hvala.

[ 3okc @ 09.08.2015. 07:33 ] @

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.