du VBA Word pour changer..

Le
Driss HANIB
Bonjour à tous,

pour une fois je vais faire une macro Word..
Jer suis à la recherche de la command epour récupérer le nombre de ligne
d'un document Word..
Si quelqu'un a cela dans ses tiroirs çà m'intéresserait.

merci

Driss
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jacques93
Le #15363931
Bonjour Driss HANIB,
Driss HANIB a écrit :
Bonjour à tous,

pour une fois je vais faire une macro Word..
Jer suis à la recherche de la command epour récupérer le nombre de ligne
d'un document Word..
Si quelqu'un a cela dans ses tiroirs çà m'intéresserait.




C'était sur une étagère, mais ça devrait marcher quand même ;-) :
regarder du côté de la collection 'BuiltInDocumentProperties'


Pour avoir toutes les propriétés :

Sub ListWordProperties()
Dim s As String
Dim proDoc As DocumentProperty

On Error Resume Next
For Each proDoc In ActiveDocument.BuiltInDocumentProperties
s = s & proDoc.Name & "= " & proDoc.Value & vbCrLf
Next
MsgBox s
End Sub


Pour le nombre de lignes uniquement :

MsgBox "Nombre de lignes : " & _
ActiveDocument.BuiltInDocumentProperties("Number of Lines")

ou :

MsgBox "Nombre de lignes : " & _
ActiveDocument.BuiltInDocumentProperties(23)

--
Cordialement,

Jacques.
Driss HANIB
Le #15363921
jacques93

merci..
c'est du grand art !!
exactement ce que je voulais..
sais tu ou trouver tous les paramètres de cette fonction?

En tout cas cela me dépanne parfaitement

Driss


"Jacques93" a écrit dans le message de news:

Bonjour Driss HANIB,
Driss HANIB a écrit :
Bonjour à tous,

pour une fois je vais faire une macro Word..
Jer suis à la recherche de la command epour récupérer le nombre de ligne
d'un document Word..
Si quelqu'un a cela dans ses tiroirs çà m'intéresserait.




C'était sur une étagère, mais ça devrait marcher quand même ;-) :
regarder du côté de la collection 'BuiltInDocumentProperties'


Pour avoir toutes les propriétés :

Sub ListWordProperties()
Dim s As String
Dim proDoc As DocumentProperty

On Error Resume Next
For Each proDoc In ActiveDocument.BuiltInDocumentProperties
s = s & proDoc.Name & "= " & proDoc.Value & vbCrLf
Next
MsgBox s
End Sub


Pour le nombre de lignes uniquement :

MsgBox "Nombre de lignes : " & _
ActiveDocument.BuiltInDocumentProperties("Number of Lines")

ou :

MsgBox "Nombre de lignes : " & _
ActiveDocument.BuiltInDocumentProperties(23)

--
Cordialement,

Jacques.


Jacques93
Le #15363901
Bonjour Driss HANIB,
Driss HANIB a écrit :
jacques93

merci..
c'est du grand art !!
exactement ce que je voulais..
sais tu ou trouver tous les paramètres de cette fonction?



Dans l'aide de Word, tout simplement. Dans l'éditeur VBA tapes <F2> sur
le mot clé 'BuiltInDocumentProperties', puis dans l'explorateur d'objets
recherche wdBuiltInProperty, tu auras la valeur des constantes :


Tu peux utiliser les noms des constantes de l'énumération, ici
'wdPropertyLines', ou leur valeur, ici 23.

Si tu préfères utiliser le nom de la propriété, cela correspond à la
propriété 'Name' des item de la collection BuiltInDocumentProperties,
comme l'affiche la petite Sub BuiltInDocumentProperties.

--
Cordialement,

Jacques.
Driss HANIB
Le #15363491
Merci Jacques,

je regarde tout cela

Driss

"Jacques93" a écrit dans le message de news:

Bonjour Driss HANIB,
Driss HANIB a écrit :
jacques93

merci..
c'est du grand art !!
exactement ce que je voulais..
sais tu ou trouver tous les paramètres de cette fonction?



Dans l'aide de Word, tout simplement. Dans l'éditeur VBA tapes <F2> sur le
mot clé 'BuiltInDocumentProperties', puis dans l'explorateur d'objets
recherche wdBuiltInProperty, tu auras la valeur des constantes :


Tu peux utiliser les noms des constantes de l'énumération, ici
'wdPropertyLines', ou leur valeur, ici 23.

Si tu préfères utiliser le nom de la propriété, cela correspond à la
propriété 'Name' des item de la collection BuiltInDocumentProperties,
comme l'affiche la petite Sub BuiltInDocumentProperties.

--
Cordialement,

Jacques.


Publicité
Poster une réponse
Anonyme