Mega Code Archive

 

Categories / VisualBasic Script / Word

 

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