Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Prebrojavanje stranica dokumenta

[es] :: Office :: Word :: Prebrojavanje stranica dokumenta

[ Pregleda: 1709 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

dears965
Dejan Arsic
profesor
EUS "Vuk Karadzic" Velika
Plana
Velika Plana, Srbija

Član broj: 330145
Poruke: 2
*.dynamic.isp.telekom.rs.



Profil

icon Prebrojavanje stranica dokumenta09.08.2015. u 01:00 - pre 74 meseci
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.
 
Odgovor na temu

Brodoplovac
Beograd

Član broj: 171299
Poruke: 829
*.aDSL.verat.net.



+163 Profil

icon Re: Prebrojavanje stranica dokumenta09.08.2015. u 06:28 - pre 74 meseci
MsgBox Selection.Information(wdNumberOfPagesInDocument)
 
Odgovor na temu

3okc
Χoᴘᴦoѡ

Moderator
Član broj: 811
Poruke: 1291

Jabber: 3okc@elitesecurity.org


+111 Profil

icon Re: Prebrojavanje stranica dokumenta09.08.2015. u 07:33 - pre 74 meseci
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!
 
Odgovor na temu

dears965
Dejan Arsic
profesor
EUS "Vuk Karadzic" Velika
Plana
Velika Plana, Srbija

Član broj: 330145
Poruke: 2
*.dynamic.isp.telekom.rs.



Profil

icon Re: Prebrojavanje stranica dokumenta09.08.2015. u 11:04 - pre 74 meseci
Hvala. Isprobavam pa javljam.
 
Odgovor na temu

[es] :: Office :: Word :: Prebrojavanje stranica dokumenta

[ Pregleda: 1709 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.