Sub TypeThat()
' Paul Beverley - Version 20.07.24
' Types 'that' after the current word.


Set rng = Selection.Range.Duplicate
rng.MoveStart , -1
If Left(rng.Text, 1) = " " Then Selection.MoveLeft , 1
Selection.Expand wdWord
Selection.Collapse wdCollapseEnd
Selection.TypeText "that "
End Sub