Sub ThatWhich()
' Paul Beverley - Version 06.08.22
' Changes that to which and vice versa

Selection.MoveLeft Unit:=wdWord, count:=1
Selection.MoveRight Unit:=wdWord, count:=1, Extend:=wdExtend
thisWord = Selection
If thisWord = "which " Then
  Selection.TypeText Text:="that "
  thisWord = ""
  Selection.MoveLeft Unit:=wdWord, count:=2
  If Selection = "," Then Selection.Delete
End If
If thisWord = "which" Then
  Selection.TypeText Text:="that"
  thisWord = ""
End If
If thisWord = "that " Then
  Selection.Start = Selection.Start - 1
  Selection.Delete
  Selection.TypeText Text:=", which "
  thisWord = ""
End If
If thisWord <> "" Then
  Selection.Start = Selection.End
  Selection.TypeText Text:="that "
End If
End Sub