Sub HighlightYellow()
' Paul Beverley - Version 11.11.24
' Highlights the selected text (or a word or a paragraph)

defaultSelect = "word"
' defaultSelect = "para"

selectWholeWords = True

myColour = wdYellow
' myColour = wdBrightGreen
' myColour = wdTurquoise
' myColour = wdPink
' myColour = wdRed
' myColour = wdGray50
' myColour = wdGray25

If Selection.start = Selection.End Then
  If defaultSelect = "para" Then
    Selection.Expand wdParagraph
  Else
    Selection.Expand wdWord
    Do While InStr(ChrW(8217) & "' ", Right(Selection.Text, 1)) > 0
      Selection.MoveEnd , -1
      DoEvents
    Loop
  End If
Else
  If selectWholeWords = True Then
    Set rng = Selection.Range.Duplicate
    rng.Collapse wdCollapseEnd
    rng.Expand wdWord
    Do While InStr(ChrW(8217) & "' ", Right(rng.Text, 1)) > 0
      rng.MoveEnd , -1
      DoEvents
    Loop
    Selection.Collapse wdCollapseStart
    Selection.Expand wdWord
    Selection.Collapse wdCollapseStart
    rng.start = Selection.start
    rng.Select
  End If
End If
Selection.Range.HighlightColorIndex = myColour
End Sub