Sujet Précédent Sujet Suivant

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

A voir également:

2 réponses

Réponse 1 / 2

cs_wape Messages postés 262 Date d'inscription samedi 21 décembre 2002 Statut Membre Dernière intervention 19 décembre 2010 12
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

Réponse 2 / 2

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

Discussions similaires

Remplir un fichier Word type avec des valeurs en POST PHP

convetir un word en string

WORD, DWORD et BYTE en langage C ?

Automatiser un publipostage dans Word à partir d'une BD d'Excel

[Catégorie modifiée VB6 --> VBA] lancer un publipostage de excel vers word a par