Bonjour,
Mon calcul de page d'un doc Word me donne le mauvais=20
r=E9sultat (il m'a donn=E9 le bon =E0 un moment et je n'ai fait=20
des modifications que apr=E8s le code suivant).
Dim wd As Word.Application
Dim ActiveDocument As Word.Document
Set ActiveDocument =3D GetObject("C:\test\test.doc")
ActiveDocument.Activate
Dim NbPages As Integer
NbPages =3D ActiveDocument.BuiltInDocumentProperties
(wdPropertyPages)
MsgBox "NbPages =3D " & NbPages
J'ai 2 pages au lieu de 8 et le contenu des 2 pages est=20
bon !
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Christophe
J'ai trouvé. Il faut forcer le calcul des pages avec : ActiveDocument.Repaginate
-----Message d'origine----- Bonjour, Mon calcul de page d'un doc Word me donne le mauvais résultat (il m'a donné le bon à un moment et je n'ai fait des modifications que après le code suivant). Dim wd As Word.Application Dim ActiveDocument As Word.Document Set ActiveDocument = GetObject("C:testtest.doc") ActiveDocument.Activate Dim NbPages As Integer NbPages = ActiveDocument.BuiltInDocumentProperties (wdPropertyPages) MsgBox "NbPages = " & NbPages
J'ai 2 pages au lieu de 8 et le contenu des 2 pages est bon !
.
J'ai trouvé. Il faut forcer le calcul des pages avec :
ActiveDocument.Repaginate
-----Message d'origine-----
Bonjour,
Mon calcul de page d'un doc Word me donne le mauvais
résultat (il m'a donné le bon à un moment et je n'ai fait
des modifications que après le code suivant).
Dim wd As Word.Application
Dim ActiveDocument As Word.Document
Set ActiveDocument = GetObject("C:testtest.doc")
ActiveDocument.Activate
Dim NbPages As Integer
NbPages = ActiveDocument.BuiltInDocumentProperties
(wdPropertyPages)
MsgBox "NbPages = " & NbPages
J'ai 2 pages au lieu de 8 et le contenu des 2 pages est
bon !
J'ai trouvé. Il faut forcer le calcul des pages avec : ActiveDocument.Repaginate
-----Message d'origine----- Bonjour, Mon calcul de page d'un doc Word me donne le mauvais résultat (il m'a donné le bon à un moment et je n'ai fait des modifications que après le code suivant). Dim wd As Word.Application Dim ActiveDocument As Word.Document Set ActiveDocument = GetObject("C:testtest.doc") ActiveDocument.Activate Dim NbPages As Integer NbPages = ActiveDocument.BuiltInDocumentProperties (wdPropertyPages) MsgBox "NbPages = " & NbPages
J'ai 2 pages au lieu de 8 et le contenu des 2 pages est bon !
