The reason you're missing the text boxes is that

NewRange = oWord.ActiveDocument.Content

refers to all the text in the main "story." It doesn't include text in other "stories," such as headers, footers, and shapes (meaning text boxes).

To search the text in text boxes, access the TextFrame story:

#DEFINE wdTextFrameStory 5
NewRange = oDoc.StoryRanges(wdTextFrameStory)

Then your code, shown below, should work fine.

>With NewRange.Find
>  .ClearFormatting
>  .Forward = .T.
>  .Text = "!lcActNbr!"
>  .Execute
>  If .Found
>    NewRange.Text = ALLTR(ltrctr.act_nbr)
>  EndIf
>EndWith

- della