Comment puis-je Trouver Toutes les Acronymes dans un Document MS Word à l'Aide d'une Macro?

Quelque chose comme cela pourrait vous aider à démarrer. Ajouter une référence à "Microsoft VBScript Regular Expressions" (Éditer la Macro: Outils > Références). Cette bibliothèque est le fichier "vbscript.dll".

Vous devrez peut-être ajuster la regexp si tous vos acronymes ne sont pas uniquement des lettres majuscules (par exemple, certains peuvent contenir des nombres).

Sub Acronyms()

    Dim dict, k, tmp
    Dim regEx, Match, Matches
    Dim rngRange As Range
    Set regEx = New RegExp
    Set dict = CreateObject("scripting.dictionary")

    regEx.Pattern = "[A-Z]{2,}" '2 or more upper-case letters
    regEx.IgnoreCase = False
    regEx.Global = True
    Set Matches = regEx.Execute(ActiveDocument.Range.Text)
    For Each Match In Matches
        tmp = Match.Value
        If Not dict.Exists(tmp) Then dict.Add tmp, 0
        dict(tmp) = dict(tmp) + 1
    Next

    For Each k In dict.Keys
        Debug.Print k, dict(k)
    Next k

End Sub

OriginalL'auteur Tim Williams

J'ai trouvé ce qui suit fonctionne bien (où certains nom de l'entreprise acronymes sont tolérables). Je l'utilise pour tester les entrées de données dans Access, il convient également de travailler pour un document Word gamme.

objRegExp.Pattern = "([A-Z]{1,}((\&(?![A-Z]\s[\w]{3})\w*)+|\.\w*)+)|[A-Z]{2,}(?![A-Z]*\s[A-Z]{1}[a-z])"

• J&K =Match
• JK&S =Match
• J. S. S =Match
• JK&S. K =Match
• JSK =Match
• JK =Match
• DKD Et Fils =Pas de Match
• J&K Génie =Pas de Match
• PKF Rogers et Associés =Pas de Match

- Je utiliser RegExHero pour tester mes expressions

OriginalL'auteur Adam

Vous allez être en cours d'exécution d'une macro sur le principal document Word. Ouvrir un nouveau document Word qui est vide. Il sera utilisé pour stocker découvert les acronymes.

1. Appuyez Sur "Enregistrer Une Macro". Choisissez un nom unique, et d'attribuer une touche de raccourci tels
   comme CTRL + ALT + A.
2. Ouvrir la fenêtre de dialogue (CTRL + F). Collez le texte de la recherche:
   <[A-Z]{2,}>. Dans la recherche de dialogue, choisissez "Plus" > cochez la case "Utiliser des caractères génériques". Cliquez sur le bouton Suivant.
3. Cliquez-droit sur le texte sélectionné, en faisant attention de ne pas modifier le
   mettre en évidence. Sélectionnez Copier dans le menu contextuel.
4. Accédez au document Word distinct (ALT + TAB, sélectionnez le Mot
   document). Collez le texte copié, et appuyez sur Entrée. ALT + TAB, retour à
   le document Word d'origine.
5. Fermer la recherche de dialogue et cliquez sur la flèche vers la droite une fois. Cela déplace
   le curseur hors le texte en surbrillance, et se prépare pour la prochaine
   de recherche.
6. Arrêter l'enregistrement de la macro.

Vous avez maintenant une macro qui trouve un mot contenant deux ou plusieurs lettres en majuscule, et enregistre le texte dans un document distinct. Dans le but de rechercher pour les autres sigles, appuyez sur CTRL + ALT + A continuellement jusqu'à la fin du document a été atteint. Ou, modifiez la macro, et ajouter une boucle.

Ici est ce que la macro ressemble (sans la boucle):

Sub GetAcronyms()
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "<[A-Z]{2,}>"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute
    Selection.Copy
    Windows("Document1.docx").Activate
    Selection.PasteAndFormat (wdPasteDefault)
    Selection.TypeParagraph
    Windows("TheOriginalDocument.docx").Activate
    Selection.MoveRight Unit:=wdCharacter, Count:=1
End Sub

OriginalL'auteur