Sub GermanDative()
' Paul Beverley - Version 18.06.21
' Forces the dative -em ending to the current word

Selection.Expand wdWord
If Right(Selection, 1) = " " Then Selection.MoveEnd , -1
Selection.Collapse wdCollapseEnd
Selection.MoveStart , -1
If Selection <> "e" Then Selection.MoveStart , -1
If Left(Selection, 1) <> "e" Then Selection.Collapse wdCollapseEnd
Selection.TypeText Text:="em"
End Sub