Glad it helped.

>That did it! You don't know how long I've stared at this. I REALLY appreciate your help!
>Kevin
>
>>What about this:
>>For Each aShape In oDoc.Shapes
>> With aShape.TextFrame.TextRange
>>if .hastext &&replace "!lcActNbr!" with "FINALLY!"
>>.text=strtran(.text,"!lcActNbr!","FINALLY!")
>>endif
>>endwith
>>next
>>
>>>Ok, I've determined that my text is in a "shape". From looking through help files and online resources, seems to me that the following should work:
>>>
>>>

>>>For Each aShape In oDoc.Shapes
>>>  With aShape.TextFrame
>>>    IF .HasText <> 0
>>>      .TextRange.Find.Text = "!lcActNbr!"
>>>      .TextRange.Find.Execute
>>>      IF .TextRange.Find.Found
>>>         .TextRange.Text = "FINALLY!"
>>>      ENDIF
>>>    ENDIF
>>>  EndWith
>>>Next
>>>

>>>
>>>It doesn't break (which is a minor miracle!), but the expression never gets found. If anybody has any suggestions or sees anything I'm missing, I would appreciate it!
>>>
>>>Thanks,
>>>Kevin
>>>
>>>>AFAIK, there are two kinds of "Shapes" in Word: Shapes and InlineShapes. From Help:
>>>>*------
>>>>*InlineShape objects are treated like characters and are positioned as characters within a line of text.
>>>>*Shape objects are anchored to a range of text but are free-floating and
>>>>*can be positioned anywhere on the page.
>>>>*You can use the ConvertToInlineShape method and the ConvertToShape method to convert some types of the shapes to inlineshapes.
>>>>*--------
>>>>
>>>>Probably you have "Shapes". Shape types are:
>>>>*msoShapeTypeMixed = -2
>>>>*msoAutoShape=1
>>>>*msoCallout=2
>>>>*msoChart=3
>>>>*msoCommen=4
>>>>*msoFreeform=5
>>>>*msoGroup=6
>>>>*msoEmbeddedOLEObject=7
>>>>*msoFormControl=8
>>>>*msoLine=9
>>>>*msoLinkedOLEObject=10
>>>>*msoLinkedPicture=11
>>>>*msoOLEControlObject=12
>>>>*msoPicture=13
>>>>*msoPlaceholder=14
>>>>*msoTextEffect=15
>>>>*msoMedia =16
>>>>*msoTextBox=17
>>>>
>>>>First try to get the type of this shape. Then you will be able to find a proper method belonging to the shape type to search the text inside.
>>>>
>>>>Something like this:
>>>>for ia=1 to oWord.ActiveDocument.Shapes.Count
>>>> with oWord.ActiveDocument.Shapes(ia)
>>>>?ia,.Type
>>>> endwith
>>>>endfor
>>>>
>>>>
>>>>>Yuri, thanks for the repsonse. After further examination, I have discovered that it isn't actually a text box, but a shape with text within it (TextFrame Object?). I am studying to find a way to manipulate this text, if you have any suggestions, that would be great!
>>>>>
>>>>>Thanks,
>>>>>Kevin
>>>>>
>>>>>>AFAIK text boxes are not visible if active view is set to 'normal'. Try to
>>>>>>set active view to 'page layout'. Then text in textboxes could be also searched for pattern with "FIND". Something like this:
>>>>>>
>>>>>>wdPaneNone=0
>>>>>>wdPageView=3
>>>>>>WITH objWord
>>>>>> If .ActiveWindow.View.SplitSpecial = wdPaneNone
>>>>>> .ActiveWindow.ActivePane.View.Type = wdPageView
>>>>>> Else
>>>>>> .ActiveWindow.View.Type = wdPageView
>>>>>> EndIf
>>>>>>ENDWITH
>>>>>>
>>>>>>>I have a word template that has been driving me crazy. I can replace all the text in the "main story" that I need to, but I have a couple of text boxes on this template that also needs some text replaced. I have tried everything I could think of to get to the text inside these boxes. Everything I've read tells me this should work:
>>>>>>>
>>>>>>>

>>>>>>>
>>>>>>>#DEFINE wdTextFrameStory 5
>>>>>>>NewRange = oDoc.StoryRanges(wdTextFrameStory)
>>>>>>>With NewRange.Find
>>>>>>>  .ClearFormatting
>>>>>>>  .Forward = .T.
>>>>>>>  .Text = "!lcActNbr!"
>>>>>>>  .Execute
>>>>>>>  If .Found
>>>>>>>    NewRange.Text = ALLTR(ltrctr.act_nbr)
>>>>>>>  EndIf
>>>>>>>EndWith
>>>>>>>
>>>>>>>

>>>>>>>
>>>>>>>No luck. Any help would be greatly appreciated.
>>>>>>>
>>>>>>>Thanks,
>>>>>>>Kevin