Lorsque vous travaillez dans un document volumineux, vous souhaiterez peut-être savoir combien de fois une chaîne de texte particulière apparaît dans une partie du document.

Une façon de trouver ces informations consiste à créer une macro qui examinera une plage de texte sélectionnée pour voir le nombre d’instances qu’elle contient.

Considérez la macro suivante:

Sub CountString()

Dim MyDoc As String     Dim txt As String     Dim t As String

MyDoc = ActiveDocument.Range.Text     txt = InputBox("Text to find")

t = Replace(MyDoc, txt, "")

MsgBox (Len(MyDoc) - Len(t)) / Len(txt) & " occurrences of " & txt End Sub

Sélectionnez le texte que vous souhaitez analyser, puis exécutez la macro. Il affecte le texte sélectionné à la variable MyDoc (donc rien dans le document réel n’est affecté) et vous demande ensuite d’entrer la chaîne de texte que vous souhaitez rechercher. La fonction Replace est ensuite utilisée pour remplacer toutes les instances de cette chaîne dans la variable MyDoc. Le texte, après le remplacement, est affecté à la variable t. La longueur du texte « avant » (MyDoc)

et le texte «après» (t) est comparé et le nombre de remplacements est calculé.

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites WordTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / wordribbon-WordTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

WordTips est votre source pour une formation Microsoft Word rentable.

(Microsoft Word est le logiciel de traitement de texte le plus populaire au monde.) Cette astuce (5651) s’applique à Microsoft Word 2007, 2010 et 2013.

Vous pouvez trouver une version de cette astuce pour l’ancienne interface de menu de Word ici:

link: / word-Counting_the_Instances_of_a_Text_String [Comptage des instances d’une chaîne de texte].