Sub TypeThat() ' Paul Beverley - Version 07.11.19 ' Types 'that' between two words. Selection.MoveStart wdCharacter, -1 Selection.MoveEnd wdCharacter, 3 crPos = InStr(Selection, vbCr) If crPos = 0 Then spPos = InStr(Selection, " ") Selection.MoveStart wdCharacter, spPos Selection.Collapse wdCollapseStart Selection.TypeText Text:="that " Else Selection.MoveStart wdCharacter, crPos Selection.Collapse wdCollapseStart Selection.MoveLeft , 1 Selection.TypeText Text:=" that" End If End Sub