Definitionsliste i MS Word

I forbindelse med udarbejdelse af en skabelon til driftsplaner fandt jeg en sub-rutine på nettet der kan hjælpe med at generere en liste med definition af ord/begreber.

I driftsplans-skabelonen er den implementeret i en makro: OrdTilListe med følgende anvisning:

Der kan med denne skabelon benyttes en makro: OrdTilListe.
Markér et ord, der skal indgå i tabellen, og brug tastekombinationen: Ctrl+Alt+o
Herved indsættes ordet, alfabetisk ordnet, i listens første kolonne, og der kan tilføjes forklaring i den anden.

Selve sub-rutinen - med min tilretning - ser således ud:

         Sub OrdTilListe()
         '
         ' OrdTilListe Makro
         ' Indsætter ord i ordliste samt sorterer listen alfabetisk efter første kolonne
         '
         Dim BookMarkName As String
         Dim ChooseWord As String
         Dim LastCellInColumn As Long
         Dim ListTable As Range
         Dim SourcePlace As Range

         On Error Resume Next

         BookMarkName = "OrdListe"

         Set SourcePlace = Selection.Range

         ChooseWord = SourcePlace.Words(1).Text

         Set ListTable = _
         ActiveDocument.Bookmarks(BookMarkName).Range.Tables(1).Range

         LastCellInColumn = ListTable.Columns(1).Cells.Count

         With ListTable.Columns(1).Cells(LastCellInColumn)
         .Range = ChooseWord
         .Select
         Selection.MoveRight Unit:=wdCell, Count:=2
         End With

         ListTable.Sort excludeheader:=True, fieldnumber:=1

         SourcePlace.Select

         On Error GoTo 0

         End Sub

Her er Leo Heuser's anvisning til den oprindelige rutine:

1. Opret en tabel med 1 række og 2 kolonner et tilfældigt sted (fx bagest i dokumentet).
2. Markér tabellen og opret den som bogmærke med navnet "UdvalgteOrd" (fx). Skal dog være det samme som i subrutinens BookMarkName = ""
3. Indsæt subrutinen WordToTable i et modul.
4. Opret en knap, der kalder denne rutine.
5. Klik på et ord, du vil have i tabellen og klik på knappen.

Ordet bliver nu indsat i første kolonne i tabellen med stort forbogstav, tabellen sorteres efter første kolonne, og der indsættes en ny
række i tabellen.
Gå videre med punkt 5.

I anden kolonne indtastes forklaringerne til de forskellige ord.

Min implementering

Jeg har i øvrigt valgt at indarbejde en tastatur-kombination som er gemt i skabelonen. (Og altså kun virker i dokumenter baseret på skabelonen.)
https://support.office.com/da-dk/article/tilpasse-tastaturgenveje-9a92343e-a781-4d5a-92f1-0f32e3ba5b4d

https://word.tips.net/T001723_Converting_Text_to_Uppercase_in_a_Macro.html
https://www.thedoctools.com/wordtips/om-makroer-og-goere-makroer-tilgaengelige-for-andre/