NewRange = oWord.ActiveDocument.Contentrefers 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).
#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