NewRange = oWord.ActiveDocument.Content With NewRange.Find .ClearFormatting .Forward = .T. .Text = "!lcActNbr!" .Execute If .Found NewRange.Text = ALLTR(ltrctr.act_nbr) EndIf EndWithBut, trying to replace variables inside of text boxes is not happening. I presume I am just missing syntax here. Any help appreciated.