text properties

I am trying to insert bold text to word 97 using a macro from excel:

Wrd.ActiveDocument.Fields(10).Select
With Wrd.Selection
.Font.Bold = wdToggle
.InsertAfter Text:="HOW TO CONTACT US"
End With

However, the text when inserted is not being bolded, any suggestions?

Get the range start position before you add the text.
Add the text.
Get the range end position (which is the start of the new one)
Set the range
Bold it.


Something like that. Try putting the text in first then bolding it.