Recherche

 

On peut supposer que les sigles sont des mots en MAJUSCULES.

Depuis la version 2007, il n'est plus possible d'utiliser la solution simple du Recherche-remplace, car cette fonctionnalité permet de surligner mais pas de sélectionner. Donc impossible de copier et de coller.

Il faut donc une macro. A noter que cette macro fonctionne avec toutes les versions :

 Sub sigles()
'macro écrite par m@rina
Dim Sigle 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 = "<[A-Z]{2;}>"
            .Forward = True
            .Wrap = wdFindStop
            .MatchCase = True
            .MatchWildcards = True
            .Execute
        End With

    If Selection.Find.Found Then
        Sigle = Selection.Text
            If InStr(Liste, Sigle) = 0 Then
                Liste = Liste & Sigle & 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

 

NB : on suppose qu'un sigle est un mot en majuscules composé d'au moins deux lettres. Vous pouvez augmenter le nombre de lettres en remplaçant le chiffre 2 par le nombre de votre choix dans l'expression  <[A-Z]{2;}>

 



 


 

Statistiques

France 75,6% France
Canada 8,1% Canada
États-Unis d'Amérique 4,8% États-Unis d'Amérique

Total:

65

Pays
018273689
Aujourd'hui: 12
Hier: 68
Cette semaine: 12
Semaine dernière: 783
Ce mois: 1.951