Как получить доступ к заголовкам?

''''''''''поиск в колонтитулах
    Dim oSec As Section
    Dim oHF As HeaderFooter
    For Each oSec In ActiveDocument.Sections
      For Each oHF In oSec.Headers
        Select Case oHF.Index
        Case wdHeaderFooterPrimary
          If InStr(1, oHF.Range.Text, "(") > 0 Then
              With oHF.Range.Find
                  .ClearFormatting
                  .Text = "("
                  .Forward = True
                  .Wrap = 1
                  .Execute
                  .Parent.Select
                   ns = .Parent.Start
                  For i = 1 To 15
                      Selection.MoveRight Unit:=wdWord, Extend:=wdExtend
                      If UBound(Split(Selection, "(")) > 1 Then GoTo 2
                      If Trim(Selection) Like "*)*" Then Exit For
                  Next
                  ks = Selection.End
                  Set rx = Selection.Range