Word VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Word
  4. Entering Text in a Cell
Sub text()
    With Selection.Tables(1).Rows(1)
        .Cells(1).Range.text = "Sample text in first cell."
        .Cells(2).Range.text = "Sample text in second cell."
        .Cells(3).Range.text = "Sample text in third cell."
    End With
End Sub