Hey guys I need help.

I need to replace a single cell in the first table of the document, and the cell contains text in bold and underline and the other half with no format. i'm currently using add and everything is in bold and underline but i can't seem to get it to clear the format for only half. this is my current code:

Sub ADD()
'
' ADD Macro
'
'


With ActiveDocument.Tables(1).Cell(1, 3).Range


.Text = "Precon Cycles 6"

End With

With ActiveDocument.Tables(1).Cell(2, 3).Range
.Text = "Precon Temp 260"

End With

I need to make the 6 non bold and underline while the rest is. How may i go about doing this?

Try:

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

Thank you so much, i've modified the code and ended up with this. You're a life saver


With ActiveDocument.Tables(1)
With .Cell(1, 3).Range
.Bold = False
.Underline = False
.Text = "Precon Cycles 6"
.End = .End - 3
With .Font
.Underline = wdUnderlineSingle
.Bold = True
End With
End With
With .Cell(2, 3).Range
.Text = "Precon Temp 260"
End With
End With