>>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
>
>
>Not well tested:
>
>#define wdParagraph 4
>
>LOCAL oWord AS Word.Application
>LOCAL oTable AS Word.Table
>
>oWord = CREATEOBJECT([Word.Application])
>oWord.Visible = .t.
>oWord.Documents.Add()
>oRange = oWord
>oWord.ActiveDocument.Tables.Add(oWord.Selection.Range, 4,4)
>oTable = oWord.ActiveDocument.Tables(1)
>nCounter = 1
>
>oTable.Style = "Table Grid"
>oTable.Cell(nCounter,1).Select()
>
>oWord.Selection.TypeText('Now is the time for all good men to come to the aid of their country')
>oWord.Selection.TypeParagraph
>oWord.Selection.MoveUp(wdParagraph, 1, 1)
>oWord.Selection.Font.Size = 10
>oWord.Selection.Font.Bold = .T.
>oWord.Selection.Font.Name = 'Times New Roman'
>oWord.Selection.MoveDown(wdParagraph, 1)
>
>oWord.Selection.TypeText('More Text')
>oWord.Selection.MoveUp(wdParagraph, 1, 1)
>oWord.Selection.Font.Bold = .f.
>
>
Thank you very much. Had seen your post similar to this on foxite but could not translate to a cell. Thanks again
What ben makes tracks for what wil be. Words in the air pirnt foot steps on the groun for us to put our feet in to.
Riddley Walker