Sub JoinTwoWords()
' Paul Beverley - Version 29.05.21
' Joins two words

joinToPrevious = False
forceLowercase = False
trackIt = True

searchChars = "- " & ChrW(8211) & ChrW(8212) & ChrW(8201) & Chr(30)
myTrack = ActiveDocument.TrackRevisions
If trackIt = False Then ActiveDocument.TrackRevisions = False
If joinToPrevious = True Then
  Do While InStr(searchChars, Left(Selection.Text, 1)) = 0
    Selection.MoveEnd , -1
    DoEvents
  Loop
  Selection.Collapse wdCollapseEnd
  Selection.End = Selection.End + 1
Else
  Do While InStr(searchChars, Right(Selection.Text, 1)) = 0
    Selection.MoveEnd , 1
    DoEvents
  Loop
  Selection.Collapse wdCollapseEnd
  Selection.End = Selection.End - 1
End If
Selection.Delete
If forceLowercase = True Then
  Selection.MoveEnd , 1
  Selection.Text = LCase(Selection)
  Selection.Collapse wdCollapseEnd
End If
ActiveDocument.TrackRevisions = myTrack
End Sub