When creating a text box in publisher (form access) I noticed when trying to change the font and size, only some of the text changed. I had to put a for loop in to run the code a few times and this seems to work. Does anyone know it doesn't work fully on the first pass?

Set ShpTB = DocPub.Pages(2).Shapes.AddTextbox _(Orientation:=pbTextOrientationHorizontal, _
Left:=122, Top:=702.8, _
Width:=horzwidth, Height:=55)
DocPub.Pages(2).Shapes("Text Box " & 1).TextFrame.TextRange.Text = exceptiontext


With ShpTB
For x = 1 To 25 'need to repeat this as doesn't change all text unless repeated for some reason
.TextFrame.TextRange.Font.Size = 8
.TextFrame.TextRange.Font.Name = "Tahoma"
Next x
End With