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.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jacques93
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.
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)
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
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
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" <jacques@Nospam> a écrit dans le message de news:
eYG8kKwmIHA.4504@TK2MSFTNGP06.phx.gbl...
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)
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
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.
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.
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
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.
Merci Jacques,
je regarde tout cela
Driss
"Jacques93" <jacques@Nospam> a écrit dans le message de news:
eFxey68mIHA.3636@TK2MSFTNGP02.phx.gbl...
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.
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.