Word 2000

Signaler
Messages postés
5
Date d'inscription
vendredi 20 décembre 2002
Statut
Membre
Dernière intervention
27 mai 2005
-
Messages postés
5
Date d'inscription
vendredi 20 décembre 2002
Statut
Membre
Dernière intervention
27 mai 2005
-
thanh taduy
Bonjour,
je voudrais savoir comment faire dans VB pour obtenir le nombre total de pages d'un document Word.
En utilisant évidemment l'instruction CreateObject(Word.Application)
Merci

2 réponses

Messages postés
262
Date d'inscription
samedi 21 décembre 2002
Statut
Membre
Dernière intervention
19 décembre 2010
11
Dim iPages As Integer
Dim oWdApp As Word.Application

Sub Main()

Set oWdApp = CreateObject("Word.Application")

With oWdApp

'Ouvrir le document
.Documents.Open ("C:\MonDocument.doc")

'Appliquer la méthode ComputeStatistics
iPages = .ActiveDocument.ComputeStatistics(wdStatisticPages)

'Vérifier le résultat
MsgBox "Nombre de pages : " & iPages

'Fermer le document
.Documents.Close

'Quitter Word
.Quit

End With

'Libérer les ressources
Set oWdApp = Nothing

End Sub
0
Messages postés
5
Date d'inscription
vendredi 20 décembre 2002
Statut
Membre
Dernière intervention
27 mai 2005

thanh taduy
0