Imports Microsoft.Office.Interop.Word
Module Program
Sub Main(args As String())
Dim document As New DocumentClass()
Dim defaultTableBehavior As Object = Nothing
Dim autoFitBehavior As Object = Nothing
Dim tbl As Table = document.Content.Tables.Add(document.Content, 2, 2, defaultTableBehavior, autoFitBehavior)
tbl.Rows(2).Cells(2).Range.InsertAfter("This is a test.")
tbl.Rows(2).Cells(2).Range.ParagraphFormat.SpaceAfter = 0F
tbl.Rows(2).Cells.Height = 50F
tbl.Range.Rows(2).Cells.VerticalAlignment = WdCellVerticalAlignment.wdCellAlignVerticalBottom
End Sub
End Module
SEE AlSO:
tbl.Range.ParagraphFormat.SpaceAfter = 1 'change the 1 to how much space you want extra in your cell