ASP.NET & Word (Word Application) - Create/Insert Table (Tables.Add)

Imports Microsoft.Office.Interop.Word
Public Class AspNetWordAddTable
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Dim Wrd As New Microsoft.Office.Interop.Word.Application
        Dim WrdDoc As Microsoft.Office.Interop.Word.Document
        Dim WTable As Microsoft.Office.Interop.Word.Table
        Dim DocName As String = "MyDoc/MyWord.doc"

        Wrd.Application.Visible = False
        DocName = "MyDoc/MyWord.doc"

        WrdDoc = Wrd.Documents.Add()

        WTable = WrdDoc.Tables.Add(Wrd.Selection.Range, 3, 3) ' Colums, Rows

        WTable.Cell(1, 1).Range.Font.Name = "Times New Roman"
        WTable.Cell(1, 1).Range.Text = "ThaiCreate.Com 1"
        WTable.Cell(1, 2).Range.Font.Size = 18
        WTable.Cell(1, 2).Range.Bold = True
        WTable.Cell(1, 2).Range.Font.Italic = True
        WTable.Cell(1, 2).Range.Text = "ThaiCreate.Com 2"
        WTable.Cell(2, 1).Range.ParagraphFormat.Alignment = 1 ' 0= Left, 1=Center, 2=Right

        WTable.Cell(2, 1).Range.Font.Name = "Arial"
        WTable.Cell(2, 1).Range.Font.Size = 12
        WTable.Cell(2, 1).Range.Bold = False
        WTable.Cell(2, 1).Range.ParagraphFormat.Alignment = 2

        WTable.Cell(3, 3).Range.Font.Name = "Times New Roman"
        WTable.Cell(3, 3).Range.Font.Size = 14
        WTable.Cell(3, 3).Range.Bold = True
        WTable.Cell(3, 3).Range.Font.Underline = True
        WTable.Cell(3, 3).Range.ParagraphFormat.Alignment = 0
        WTable.Cell(3, 2).Range.Text = "ThaiCreate.Com 3"

        Wrd.ActiveDocument.SaveAs(Server.MapPath(DocName))
        Wrd.Application.Quit()
        Wrd = Nothing

    End Sub
End Class