Toutes les stats [astuce]
lundi 17 avril 2006 :: catégorie Word :: #286 :: rssSub synthese() Dim vNbreNotesBasPage, vNbreNotesFinDoc, vNbreCommentaires Dim vNbreSignets, vNbreHyperliens, vNbreTableaux, vNbrePages, vNbreMots Dim vMessage vNbrePages = ActiveDocument.ComputeStatistics(wdStatisticPages) vNbreMots = ActiveDocument.ComputeStatistics(wdStatisticWords) vNbreHyperliens = ActiveDocument.Hyperlinks.Count vNbreTableaux = ActiveDocument.Tables.Count vNbreNotesBasPage = ActiveDocument.Footnotes.Count vNbreNotesFinDoc = ActiveDocument.Endnotes.Count vNbreCommentaires = ActiveDocument.Comments.Count vNbreSignets = ActiveDocument.Bookmarks.Count vMessage = "" vMessage = vMessage & vNbrePages & " page" & _ IIf(vNbrePages > 1, "s", "") & vbCr vMessage = vMessage & vNbreMots & " mot" & _ IIf(vNbreMots > 1, "s", "") & vbCr vMessage = vMessage & vNbreHyperliens & " hyperlien" & _ IIf(vNbreHyperliens > 1, "s", "") & vbCr vMessage = vMessage & vNbreTableaux & " tableau" & _ IIf(vNbreTableaux > 1, "x", "") & vbCr vMessage = vMessage & vNbreNotesBasPage & " note" & _ IIf(vNbreNotesBasPage > 1, "s", "") & " de bas de page" & vbCr vMessage = vMessage & vNbreNotesFinDoc & " note" & _ IIf(vNbreNotesFinDoc > 1, "s", "") & " de fin de document" & vbCr vMessage = vMessage & vNbreCommentaires & " commentaire" & _ IIf(vNbreCommentaires > 1, "s", "") & vbCr vMessage = vMessage & vNbreSignets & " signet" & _ IIf(vNbreSignets > 1, "s", "") MsgBox vMessage, vbOKOnly, ActiveDocument.Name End SubChoisissez la commande Outils > Macro > Visual Basic Editor. La fenêtre de l'éditeur VBA s'ouvre.
Cliquez dans la sous-fenêtre Projet sur le petit + devant le dossier Normal.
Choisissez la commande Insertion > Module.
Collez la macro ci-dessus dans la fenêtre principale.
Pour afficher les statisques d'un document, faites Outils > Macro > Macros.
Dans la liste, sélectionnez Synthese et cliquez sur Exécuter.
Commentaires
Aucun commentaire pour le moment.
Ajouter un commentaire