Sub SearchThenMultiSwitch()
' Paul Beverley - Version 16.01.21
' Finds one of your words, then calls MultiSwitch to change it

myWords = "apple,pair,orange,lemon"

myrange = 200

For i = 1 To myrange
  Selection.MoveRight wdWord, 1
  Selection.Expand wdWord
  Do While InStr(ChrW(8217) & "' ", Right(Selection.Text, 1)) > 0
    Selection.MoveEnd , -1
    DoEvents
  Loop
  If InStr(myWords, "," & Selection & ",") > 0 Then Exit For
  DoEvents
Next i
If i > myrange Then
  Beep
Else
  Application.Run MacroName:="MultiSwitch"
End If
End Sub