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
Anacoluthe
Bonjour !
"Pitalugue" nous a écrit ...
je souhaiterai mettre cela : Nb = ActiveDocument.ComputeStatistics(Statistic:=wdStatisticLines, IncludeFootnotesAndEndnotes:úlse) dans le presse papiers, mais je m'y mélange les pinceaux avec la commande settext.
- Placer une UserForm bidon dans le projet ou référencer MS-Forms - Le code est le suivant :
Public Sub LignesDansPP() Dim T As New DataObject T.SetText (ActiveDocument.ComputeStatistics(wdStatisticLines)) T.PutInClipboard Set T = Nothing End Sub
Oh Pitalugue ! Tu sais que c'est plein d'AMIS à Marseille ??? (Anti Macros Inutilement Superfétatoires )
Anacoluthe « Un gentleman, c'est quelqu'un qui sait jouer de la cornemuse et qui n'en joue pas. » - Pierre DESPROGES
Bonjour !
"Pitalugue" nous a écrit ...
je souhaiterai mettre cela :
Nb = ActiveDocument.ComputeStatistics(Statistic:=wdStatisticLines,
IncludeFootnotesAndEndnotes:úlse)
dans le presse papiers, mais je m'y mélange les pinceaux avec la
commande settext.
- Placer une UserForm bidon dans le projet ou référencer MS-Forms
- Le code est le suivant :
Public Sub LignesDansPP()
Dim T As New DataObject
T.SetText (ActiveDocument.ComputeStatistics(wdStatisticLines))
T.PutInClipboard
Set T = Nothing
End Sub
Oh Pitalugue ! Tu sais que c'est plein d'AMIS à Marseille ???
(Anti Macros Inutilement Superfétatoires )
Anacoluthe
« Un gentleman, c'est quelqu'un qui sait jouer
de la cornemuse et qui n'en joue pas. »
- Pierre DESPROGES
je souhaiterai mettre cela : Nb = ActiveDocument.ComputeStatistics(Statistic:=wdStatisticLines, IncludeFootnotesAndEndnotes:úlse) dans le presse papiers, mais je m'y mélange les pinceaux avec la commande settext.
- Placer une UserForm bidon dans le projet ou référencer MS-Forms - Le code est le suivant :
Public Sub LignesDansPP() Dim T As New DataObject T.SetText (ActiveDocument.ComputeStatistics(wdStatisticLines)) T.PutInClipboard Set T = Nothing End Sub
Oh Pitalugue ! Tu sais que c'est plein d'AMIS à Marseille ??? (Anti Macros Inutilement Superfétatoires )
Anacoluthe « Un gentleman, c'est quelqu'un qui sait jouer de la cornemuse et qui n'en joue pas. » - Pierre DESPROGES
Pitalugue
Merci
pour cette précieuse aide
Pitalugue
"Anacoluthe" a écrit dans le message de news:
Bonjour !
"Pitalugue" nous a écrit ...
je souhaiterai mettre cela : Nb = ActiveDocument.ComputeStatistics(Statistic:=wdStatisticLines, IncludeFootnotesAndEndnotes:úlse) dans le presse papiers, mais je m'y mélange les pinceaux avec la commande settext.
- Placer une UserForm bidon dans le projet ou référencer MS-Forms - Le code est le suivant :
Public Sub LignesDansPP() Dim T As New DataObject T.SetText (ActiveDocument.ComputeStatistics(wdStatisticLines)) T.PutInClipboard Set T = Nothing End Sub
Oh Pitalugue ! Tu sais que c'est plein d'AMIS à Marseille ??? (Anti Macros Inutilement Superfétatoires )
Anacoluthe « Un gentleman, c'est quelqu'un qui sait jouer de la cornemuse et qui n'en joue pas. » - Pierre DESPROGES
Merci
pour cette précieuse aide
Pitalugue
"Anacoluthe" <nopub_anacoluthe@wanadoo.fr> a écrit dans le message de news:
3FC8CC96.6080901@wanadoo.fr...
Bonjour !
"Pitalugue" nous a écrit ...
je souhaiterai mettre cela :
Nb = ActiveDocument.ComputeStatistics(Statistic:=wdStatisticLines,
IncludeFootnotesAndEndnotes:úlse)
dans le presse papiers, mais je m'y mélange les pinceaux avec la
commande settext.
- Placer une UserForm bidon dans le projet ou référencer MS-Forms
- Le code est le suivant :
Public Sub LignesDansPP()
Dim T As New DataObject
T.SetText (ActiveDocument.ComputeStatistics(wdStatisticLines))
T.PutInClipboard
Set T = Nothing
End Sub
Oh Pitalugue ! Tu sais que c'est plein d'AMIS à Marseille ???
(Anti Macros Inutilement Superfétatoires )
Anacoluthe
« Un gentleman, c'est quelqu'un qui sait jouer
de la cornemuse et qui n'en joue pas. »
- Pierre DESPROGES
je souhaiterai mettre cela : Nb = ActiveDocument.ComputeStatistics(Statistic:=wdStatisticLines, IncludeFootnotesAndEndnotes:úlse) dans le presse papiers, mais je m'y mélange les pinceaux avec la commande settext.
- Placer une UserForm bidon dans le projet ou référencer MS-Forms - Le code est le suivant :
Public Sub LignesDansPP() Dim T As New DataObject T.SetText (ActiveDocument.ComputeStatistics(wdStatisticLines)) T.PutInClipboard Set T = Nothing End Sub
Oh Pitalugue ! Tu sais que c'est plein d'AMIS à Marseille ??? (Anti Macros Inutilement Superfétatoires )
Anacoluthe « Un gentleman, c'est quelqu'un qui sait jouer de la cornemuse et qui n'en joue pas. » - Pierre DESPROGES
