Perhaps you need to explain fully what it is you want to do. To find a particular word by searching through all the text frames in a document the code would look like
Code:
Sub GetAWord()
Dim aFrame As Frame, aRng As Range
For Each aFrame In ActiveDocument.Frames
Set aRng = aFrame.Range
With aRng.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = "Technology"
If .Execute Then
aRng.Select
MsgBox "Found one of 'em"
End If
End With
Next aFrame
End Sub