Word 2000

ttaduy Messages postés 5 Date d'inscription vendredi 20 décembre 2002 Statut Membre Dernière intervention 27 mai 2005 - 20 déc. 2002 à 01:29
ttaduy Messages postés 5 Date d'inscription vendredi 20 décembre 2002 Statut Membre Dernière intervention 27 mai 2005 - 28 déc. 2002 à 01:08
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

cs_wape Messages postés 262 Date d'inscription samedi 21 décembre 2002 Statut Membre Dernière intervention 19 décembre 2010 11
22 déc. 2002 à 12:38
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
ttaduy Messages postés 5 Date d'inscription vendredi 20 décembre 2002 Statut Membre Dernière intervention 27 mai 2005
28 déc. 2002 à 01:08
thanh taduy
0
Rejoignez-nous