[RESOLVED] Insert text in bold

[rocket0612]

I am using the following code:

wrd.ChangeFileOpenDirectory _
"...insert path here"
wrd.Documents.Open FileName:="template name.doc", ReadOnly:=True, AddToRecentFiles:=False
 
wordarray = Array(add1, add2, add3, add4, add5, MemNo, today, Yourref, WFI, sal, P1, P1A, P1B, P2, P4, P5, P6, P7, P8, P9, P11, P12, SIGNOFF, signed, _
MemNo, today, cancdate, comwording, widow, MemNo, PHName, widow, spousename, today, comdate, OMOsec, PRFV, PR0, PR5, Annsec, _
com1, com2, com3, com4, IFAcom, com5, IFA, com6, IFAtel, OMOsec, Annsec, WFI, X, X, endsec)
 
 
wrd.ActiveDocument.Fields(1).Select
    With wrd.Selection
    .InsertAfter Text:=Addressee
    End With
 
   For wrdroutine = 0 To 54
    wrd.Selection.NextField.Select
    With wrd.Selection
    .InsertAfter Text:=wordarray(wrdroutine)
    End With
 
Next

In certain circumstances I want some text to be inserted in bold. The problem is the same text will in other circumstances just need to be plain. eg in one occassion add1 will be plain but if certain criteria are met it will need to be bold. Once I know if it is to be bold, how can I change it to be bold using the above code?

thanks alot