How to insert a table in RTF-document from my program?

Here's a sample to insert a table into a rtf document using Word Automation through VB.
Also rtf files with tables are recognized in Wordpad (which seems to be a strict RTF Viewer).
Hence a Word Object is used to save the file in rtf format. It is properly recognized in MS-Word)

One can insert rows or columns dynamically & also address each cell of the table.
-------------------------------------------------------
Dim wrdApp As Word.Application
Dim wrdDoc As Word.Document

Public Sub FillRow(Doc As Word.Document, Row As Integer, _
                   Text1 As String, Text2 As String, _
                   Text3 As String, Text4 As String)
                   
  With Doc.Tables(1)
    ' Insert the data into the specific cell
    .Cell(Row, 1).Range.InsertAfter Text1
    .Cell(Row, 2).Range.InsertAfter Text2
    .Cell(Row, 3).Range.InsertAfter Text3
    .Cell(Row, 4).Range.InsertAfter Text4
  End With
End Sub


Private Sub Form_Load()
' Create an instance of Word  and make it visible
  Set wrdApp = CreateObject("Word.Application")
  wrdApp.Visible = True
 
' Add a new document
  Set wrdDoc = wrdApp.Documents.Add
  wrdDoc.Select
  Set myRange = ActiveDocument.Range(Start:=0, End:=0)

wrdDoc.Tables.Add Range:=myRange, NumRows:=9, _
       NumColumns:=4
  With wrdDoc.Tables(1)
    ' Set the column widths
    .Columns(1).SetWidth 51, wdAdjustNone
    .Columns(2).SetWidth 170, wdAdjustNone
    .Columns(3).SetWidth 100, wdAdjustNone
    .Columns(4).SetWidth 111, wdAdjustNone
    ' Set the shading on the first row to light gray
    .Rows(1).Cells.Shading.BackgroundPatternColorIndex = _
       wdGray25
    ' Bold the first row
    .Rows(1).Range.Bold = True
    ' Center the text in Cell (1,1)
    .Cell(1, 1).Range.Paragraphs.Alignment = wdAlignParagraphCenter
   
    ' Fill each row of the table with data
    FillRow wrdDoc, 1, "Class Number", "Class Name", "Class Time", _
       "Instructor"
    FillRow wrdDoc, 2, "EE220", "Introduction to Electronics II", _
       "1:00-2:00 M,W,F", "Dr. Jensen"
    FillRow wrdDoc, 3, "EE230", "Electromagnetic Field Theory I", _
       "10:00-11:30 T,T", "Dr. Crump"
    FillRow wrdDoc, 4, "EE300", "Feedback Control Systems", _
       "9:00-10:00 M,W,F", "Dr. Murdy"
    FillRow wrdDoc, 5, "EE325", "Advanced Digital Design", _
       "9:00-10:30 T,T", "Dr. Alley"
    FillRow wrdDoc, 6, "EE350", "Advanced Communication Systems", _
       "9:00-10:30 T,T", "Dr. Taylor"
    FillRow wrdDoc, 7, "EE400", "Advanced Microwave Theory", _
       "1:00-2:30 T,T", "Dr. Lee"
    FillRow wrdDoc, 8, "EE450", "Plasma Theory", _
       "1:00-2:00 M,W,F", "Dr. Davis"
    FillRow wrdDoc, 9, "EE500", "Principles of VLSI Design", _
       "3:00-4:00 M,W,F", "Dr. Ellison"
  End With
wrdDoc.SaveAs "c:\test.rtf"
End Sub