É um intervalo e, se sim, como eu o acessaria?

Question

No meu documento de palavras, eu tenho 2 "seções". Esta é uma captura de tela:

Infelizmente,nãoconsigoacessara"seção" à direita usando este código:

Dim rng As Range
Dim rngText As Range
Set rng = ActiveDocument.Range
Set rngText = ActiveDocument.Range(0, 0)
rngText.Collapse wdCollapseStart

With rng.Find
     .Format = False

Esta "seção" no lado direito é um intervalo? E como eu poderia acessá-lo com o código acima?

Edit: Estou um pouco mais perto agora. É um campo de texto.

Agora posso acessá-lo. O código abaixo mostra o texto do campo de texto em um messagebox. No entanto, não encontra o texto. Eu tive que remover as linhas "rng" porque eu não sabia o que fazer com isso.

Alguém pode ajudar?

Obrigado!

For Each s In ActiveDocument.Shapes
 With s.TextFrame
 If .HasText Then MsgBox .TextRange.Text

    Dim bDelete As Boolean
    bDelete = False
    'Dim rng As Range
    Dim rngText As Range
    'Set rng = s.Range
    Set rngText = .TextRange
    rngText.Collapse wdCollapseStart
    ' Search-Loop
    With rngText.Find
     .Format = False
     .Text = "{"
     'Search for start tag
     .Execute
     Do While .Found = True
        'Store found position with start tag
       'rngText.SetRange rng.Start, rng.End
       'Reduce search are
       'rng.SetRange rng.End, ActiveDocument.Range.End
       'Search for end tag
       .Execute findText:="}", Forward:=True
       'If none found, exit
       If .Found = False Then Exit Sub
       'Expand found position until tag end
       rngText.SetRange rngText.Start, rng.End
       If bDelete = False Then
        'make the found text bold and give it a certain color
         rngText.Select
         rngText.Font.Bold = True
         rngText.Font.Color = -553582593
         rngText.Text = VBA.Mid(rngText.Text, 2, rngText.End - rngText.Start - 2)
       Else
         'Delete it
         rngText.Delete
       End If
       'Reduce search area until end position
       rng.Collapse wdCollapseEnd
       'Search for start tag
       .Execute findText:="{", Forward:=True
     Loop
     'rng.Collapse wdCollapseEnd
    End With

 End With
Next