IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Contribuez Discussion :

[Sources] Macro pour compter les mots dans une présentation


Sujet :

Contribuez

  1. #1
    Rédacteur/Modérateur

    Avatar de Antoun
    Homme Profil pro
    Architecte décisionnel
    Inscrit en
    Octobre 2006
    Messages
    6 277
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 53
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Architecte décisionnel
    Secteur : Conseil

    Informations forums :
    Inscription : Octobre 2006
    Messages : 6 277
    Points : 11 733
    Points
    11 733
    Par défaut [Sources] Macro pour compter les mots dans une présentation
    Hello,

    Je vous propose une macro qui compte le nombre de mots dans une présentation, en utilisant la référence Microsoft VBScript Regular Expressions 5.5.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    ' parcourt la prés pour lire toutes les TextRanges
    Sub compteur()
     
    Dim D As Slide, Sh As Shape
    Dim nb As Integer
     
    ' ActivePresentation peut bien sûr être remplacé par un paramètre
    For Each D In ActivePresentation.Slides
        For Each Sh In D.Shapes
     
            If Sh.HasTextFrame Then
                nb = nb + CompterMots(Sh.TextFrame.TextRange)
            End If
     
        Next
     
    Next
    MsgBox nb & " mots"
    End Sub
     
    ' compte le nb de mots dans un texte
    Function CompterMots(txt As String) As Integer
        Dim Rx As New RegExp, txt2 As String
     
        If txt = "" Then Exit Function  
     
        ' la Pattern peut être modifiée selon la définition d'un "mot"
        Rx.Pattern = "[\s,;.:!??…+-/*()«»@-]+"
        Rx.Global = True
        txt2 = Rx.Replace(txt, " ")
        txt2 = Trim(txt2)
        CompterMots = UBound(Split(txt2, " ")) + 1
     
    End Function
    Antoun
    Expert Essbase, BO, SQL

    La bible d'Essbase, 2ème édition

  2. #2
    Invité
    Invité(e)
    Par défaut

Discussions similaires

  1. Compter les mots d'une phrase
    Par miss64 dans le forum Langage
    Réponses: 12
    Dernier message: 07/01/2017, 11h57
  2. Réponses: 3
    Dernier message: 13/05/2014, 15h53
  3. [LibreOffice][Tableur] Pb dans macro pour compter les couleurs
    Par fransix dans le forum OpenOffice & LibreOffice
    Réponses: 1
    Dernier message: 27/06/2013, 20h12
  4. Compter les mots dans une URL
    Par tochiro dans le forum EDI, CMS, Outils, Scripts et API
    Réponses: 2
    Dernier message: 27/11/2008, 09h38
  5. requete pour compter les valeurs ds une colonne
    Par smariteau dans le forum Requêtes
    Réponses: 2
    Dernier message: 10/02/2006, 18h37

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo