Nombre de mots d'un fichier MS

bonjour Bruno,

il faut lire la propriété Nombre de mots (la 15èm)

x = ActiveWorkbook.BuiltinDocumentProperties(15)

ou bien

x = ThisDocument.BuiltinDocumentProperties(15)

isabelle

Bonsoir à tous,
Je souhaiterais récupérer via une macro vba, le nombre de mots des fichiers
d'un répertoire. Je peux le faire à la mano avec les propriétés de
l'explorateur de fichier mais comme je dois le faire sur beaucoup de
fichiers, je préfère essayer du côté de VBA.
Pour info, mes fichiers sont soit des .ppt, ou des .doc

Alors merci infiniment par avance pour vos conseils.

Pour récupérer le nombre de mots d'un document Word :

Sub NbMotsDocWord()
Dim Doc, oDoc, NbMots
Doc = "D:DossierDocument.doc" '<-- à adapter
Set wrd = CreateObject("Word.Application")
Set oDoc = wrd.documents.Open(Doc)
NbMots = oDoc.BuiltinDocumentProperties(15)
wrd.Quit False
MsgBox NbMots
End Sub

Tu peux retravailler ce code pour scanner un dossier en examinant tous les
documents Word pour récupérer le nombre de mots de chacun. Par contre, pour
PowerPoint, je ne sais pas s'il existe une propriété "built in" pour stocker le
nombre de mot qu'il contient, ni comment cette éventuelle propriété est
accessible en VBA.

--
Gaenonius

Bonsoir à tous,
Je souhaiterais récupérer via une macro vba, le nombre de mots des fichiers
d'un répertoire. Je peux le faire à la mano avec les propriétés de
l'explorateur de fichier mais comme je dois le faire sur beaucoup de
fichiers, je préfère essayer du côté de VBA.
Pour info, mes fichiers sont soit des .ppt, ou des .doc

Alors merci infiniment par avance pour vos conseils.

Un grand MERCI à tous les 2.
Je vais me débrouiller :-)

"Gaenonius" <noname@nowhere> a écrit dans le message de news:
er1Sh71IFHA.588@TK2MSFTNGP15.phx.gbl...
| Pour récupérer le nombre de mots d'un document Word :
|
| Sub NbMotsDocWord()
| Dim Doc, oDoc, NbMots
| Doc = "D:DossierDocument.doc" '<-- à adapter
| Set wrd = CreateObject("Word.Application")
| Set oDoc = wrd.documents.Open(Doc)
| NbMots = oDoc.BuiltinDocumentProperties(15)
| wrd.Quit False
| MsgBox NbMots
| End Sub
|
| Tu peux retravailler ce code pour scanner un dossier en examinant tous les
| documents Word pour récupérer le nombre de mots de chacun. Par contre,
pour
| PowerPoint, je ne sais pas s'il existe une propriété "built in" pour
stocker le
| nombre de mot qu'il contient, ni comment cette éventuelle propriété est
| accessible en VBA.
|
| --
| Gaenonius
|
| > Bonsoir à tous,
| > Je souhaiterais récupérer via une macro vba, le nombre de mots des
fichiers
| > d'un répertoire. Je peux le faire à la mano avec les propriétés de
| > l'explorateur de fichier mais comme je dois le faire sur beaucoup de
| > fichiers, je préfère essayer du côté de VBA.
| > Pour info, mes fichiers sont soit des .ppt, ou des .doc
| >
| > Alors merci infiniment par avance pour vos conseils.
| >
| >