Makro do autokorekty w Wordzie

Jak dodawać frazy do autokrekty w Wordzie

[@bukowyjar]

Ogólnie bardzo fajne rozwiązanie. Niestety podany przez Pana kod ma wady, bo w nim nie są zdefiniowane zmienne : skrot oraz odp. Rozwiązałem problem za pomocą AI i skrót do makra świetnie działa. Pozdrawiam

[@cogitorpm9426]

Sub Dodaj_do_autokorekty()
Dim Entry1 As Word.AutoCorrectEntry
If Len(Selection) < 2 Then
MsgBox "Brak zaznaczenia"
Exit Sub
End If
skrot = InputBox("jaki skrot przyporzadkowac do zaznaczenia?")

For Each Entry1 In AutoCorrect.Entries
If Entry1.Name = skrot Then
odp = MsgBox("Taki skrot juz istnieje." & vbCrLf & " Czy zastapic istniejacy skrot zaznaczona wartoscia?", vbYesNo)

If odp = vbYes Then
Set Entry1 = Nothing
GoTo dodaj
Else
Exit Sub
End If

End If
Next Entry1

dodaj:
AutoCorrect.Entries.AddRichText skrot, Selection.Range
MsgBox "Dodano"
End Sub