Печать в таблице Word

[citysoft]

Всем добрый день!
Подскажите как печатать в ячейке таблицы Word разными шрифтами ?

[Денис]

Код: Выделить всё


Sub Макрос1()
'
' Макрос1 Макрос
' Макрос записан 23.04.2008 Пользователь
'
    ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=3, NumColumns:= _
        4, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
        wdAutoFitFixed
    With Selection.Tables(1)
        If .Style <> "Сетка таблицы" Then
            .Style = "Сетка таблицы"
        End If
        .ApplyStyleHeadingRows = True
        .ApplyStyleLastRow = True
        .ApplyStyleFirstColumn = True
        .ApplyStyleLastColumn = True
    End With
    Selection.TypeText Text:="45454"
    Selection.Font.Size = 20
    Selection.Font.Name = "Trebuchet MS"
    Application.Keyboard (1049)
    Selection.TypeText Text:="текст"
    Selection.Font.Name = "Times New Roman"
    Selection.Font.Size = 12
    Selection.TypeText Text:="6565"
End Sub

[citysoft]

К сожалению я в этом макросе не понял что относится непосредственно к смене шрифта.
у меня был такой текст:
TableWord.Cell(1, 2).Range.Font.Size = 12
TableWord.Cell(1, 2).Range.Font.Bold = True
TableWord.Cell(1, 2).Range.Text = vbCrLf & "СИТУАЦИОННЫЙ ПЛАН" & vbCrLf TableWord.Cell(1, 2).Range.EndOf 'Даже это поставил
'TableWord.Cell(1, 2).Range.Font.Size = 18
'TableWord.Cell(1, 2).Range.Font.Bold = False
TableWord.Cell(1, 2).Range.InsertAfter "Конец"
В результате, все выводится последним шрифтом.
Что не так ?