Macro to write bold and unformatted text in a single cell

[Snoorelax]

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?

[macropod]

Try:

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

[Snoorelax]

Originally Posted by macropod

Try:

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