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

  1. #1
    Rédacteur/Modérateur

    [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)