Bienvenue 

sur les faqs Word & PowerPoint

Une question ? Cliquez ici.

 Un exemple à télécharger ? Cliquez ici.

 

Word 365 : Vous saurez tout !

Auteur sur XinXii

Pour tout connaître sur Word

8,90 €

 

Voici une macro qui va créer un nouveau document dans lequel seront listées toutes les expressions entre parenthèses situées dans le document actif.

 

Sub parentheses()
'macro écrite par m@rina
Dim texte As String, Liste As String, ND As Document

Application.ScreenUpdating = False
Selection.HomeKey Unit:=wdStory
'Recherche de tous les mots en majuscules
    Do
        Selection.Find.ClearFormatting
        With Selection.Find
            .ClearFormatting
            .Text = "\(*\)"
            .Forward = True
            .Wrap = wdFindStop
            .MatchCase = True
            .MatchWildcards = True
            .Execute
        End With

    If Selection.Find.Found Then
        texte = ActiveDocument.Range(Selection.Range.Start + 1, Selection.Range.End - 1)
            If InStr(Liste, texte) = 0 Then
                Liste = Liste & texte & vbCr
            End If
        End If
    Loop Until Not Selection.Find.Found

'On crée le nouveau doc et on y insère les textes trouvés
    Set ND = Documents.Add
    Selection.TypeText Text:=Liste

End Sub

Statistiques

Aujourd'hui985
Hier2521
Cette semaine11399
Ce mois29479
Total depuis 200410764887

17
visiteurs actuellement en ligne