Quote:
Originally Posted by macropod
Try:
Code:
With ActiveDocument.Tables(1)
With .Cell(1, 3).Range
.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
|
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