Если вы никак не можите найти текст, то этот макрос вам поможет )))
Находит первый попавшийся текст и переходит на него.

Sub FindText() 'Найти текст в документе
On Error Resume Next
Dim p As Page
For Each p In ActiveDocument.pages
p.Activate
If Pfind(p.Shapes.FindShapes) Then Exit Sub
Next p
End Sub

Private Function Pfind(sr As ShapeRange) As Boolean
Dim s As Shape, pf As Boolean
Pfind = False
For Each s In sr
If s.Type = cdrGroupShape Then
pf = Pfind(s.Shapes.All)
If pf Then Pfind = pf: Exit Function
End If
If Not s.PowerClip Is Nothing Then
pf = Pfind(s.PowerClip.Shapes.All)
If pf Then Pfind = pf: Exit Function
End If
If s.Type = cdrTextShape Then
's.AddToSelection 'раскомментируй если хочешь ещё и выделить объект
ActiveWindow.ActiveView.ToFitShape s
Pfind = True
Exit For
End If
Next s
End Function

Источник: http://forum.rudtp.ru