Sub Macro1()
Dim oShape As Shape
Dim TestValue As String
    TestValue = "test"
    For Each oShape In ActiveDocument.Shapes
        If InStr(1, oShape.TextFrame.TextRange, TestValue) > 0 Then
            'do something with the shape e.g.
            MsgBox oShape.TextFrame.TextRange
        End If
    Next oShape
End Sub