Sub SearchHierarchically()
' Paul Beverley - Version 24.11.23
' Shell macro: Searches hierarchically for a character

myChar = "z"

Set rng = Selection.Range.Duplicate
rng.End = ActiveDocument.Content.End

For Each myPar In rng.Paragraphs
  If InStr(myPar.Range.Text, myChar) > 0 Then
    For Each wd In myPar.Range.Words
      If InStr(wd.Text, myChar) > 0 Then
        For Each ch In wd.Characters
          If ch = myChar Then
            ch.Select
            Beep
            Exit Sub
          End If
          DoEvents
        Next ch
      End If
      DoEvents
    Next wd
  End If
  DoEvents
Next myPar
End Sub