Have a table in a word document (created problematically) I want to be able to bold the first insertion and have the second not bold in the same cell. Can't find a way to make this work, or any other method for that matter.


oWord.ActiveDocument.Tables.Add(oRange, 4, 4, 1, 0)
oTable = oWord.ActiveDocument.Tables(1)
nCounter = 1

WITH oTable
.Cell(nCounter,1).Range.InsertAfter('Now is the time for all good men to come to the aid of their country')
.Cell(nCounter,1).RANGE.Font.Size = 10
.Cell(nCounter,1).RANGE.Font.Bold = .T.
.Cell(nCounter,1).RANGE.Font.Name = 'Times New Roman'
.Cell(nCounter,1).RANGE.Collapse(wdCollapseEnd)

.Cell(nCounter,1).RANGE.InsertAfter('More Text')
.Cell(nCounter,1).RANGE.Font.Size = 10
.Cell(nCounter,1).RANGE.Font.Bold = .F.
.Cell(nCounter,1).RANGE.Font.Name = 'Times New Roman'
.Cell(nCounter,1).RANGE.Collapse(wdCollapseEnd)
ENDWITH