Insert text in bold

[rocket0612]

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"
'.Font.Bold = wdToggle
End With

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

 

[Tim Barlow]

Rocket,

Don't toggle the bold (it can lead to confusion) - set it to true for the
selection after inserting the text (and don't miss out the leading
full-stops/periods) - e.g.

With Selection
.InsertAfter Text:="HOW TO CONTACT US"
.Font.Bold = True
End With

HTH

Tim