Une autre façon de compter les pages d'un document word

Version imprimable

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Sub NombrePagesDansDocWord()
Dim wdApp As Word.Application, wdDoc, nbPages As Long
    Set wdApp = CreateObject("word.application")    'ouvre une session Word
    Set wdDoc = wdApp.Documents.Open("D:\Doc\WordDoc.doc")    'ouvre le document Word
    wdApp.Selection.EndKey Unit:=wdStory
    nbPages = wdApp.Selection.Information(wdActiveEndPageNumber)
    wdDoc.Close
    wdApp.Quit
    Set wdDoc = Nothing
    Set wdApp = Nothing
    MsgBox nbPages
End Sub

Une solution qui fonctionne avec des documents Word 2007
Code:

1 2 3 4 5 6 7 Function nbPages(ByVal strDocName as String) Dim x As Object Set x = GetObject(strDocName, "Word.Document") nbPages = x.BuiltinDocumentProperties(wdPropertyPages) Set x = Nothing End Function
Je ne sais pas si cela fonctionne avec les autres versions... à essayer.

26/05/2007, 18h15
ouskel'n'or

Ta solution est effectivement celle donnée dans la FAQ... mais depuis Excel ;)
Ici on n'est pas dans Word :mouarf:

Edit
Fonctionne aussi sur Word 2003 ;)

Fonctionne aussi sur Word 97
Faudrait le dire dans VBA Word :aie:

PS...
Hello Maxence, j'ai ressorti la discussion de derrière les fagots, regarde là, "Contribuez" n'existait pas encore... Quel gachis tout de même !
A+
26/05/2007, 23h04
Maxence HUBICHE

Citation:

Envoyé par ouskel'n'or

Ta solution est effectivement celle donnée dans la FAQ... mais depuis Excel ;)

Le code que j'ai écrit est valide quel que soit le logiciel d'origine. Il permet de faire de l'automation avec Word, comme l'indique le titre de ce thread.
On peut utiliser cette procédure depuis Access ou powerpoint si on le souhaite.
Par contre, ce qui est nul, c'est que je n'ai pas vérifié dans la FAQ avant de chercher puis tester ce code.
Ca, c'est franchement nul !
:aie: :aie: :aie: :aie: :aie:

Citation:

Envoyé par ouskel'n'or

Merci pour tes essais sous les autres versions de Word
Hello Maxence, j'ai ressorti la discussion de derrière les fagots, regarde là, "Contribuez" n'existait pas encore... Quel gachis tout de même !
A+

Faut transmettre le lienà Heureux-Oli ;)
27/05/2007, 12h53
ouskel'n'or

Citation:

Envoyé par Maxence

Le code que j'ai écrit est valide quel que soit le logiciel d'origine. Il permet de faire de l'automation avec Word, comme l'indique le titre de ce thread.
On peut utiliser cette procédure depuis Access ou powerpoint si on le souhaite.

J'aurais dû le comprendre :oops: Je n'ai mis "ma" solution que parce que je suis tombé dessus par hasard dans mes codes... mais sur Word (!)
Enfin, j'ai appris quelque chose. Je mourrai moins bête. :mouarf: