Word VisualBasic Script

Sub text()
    Dim strCellText As String
    strCellText = ActiveDocument.Tables(1).Rows(2).Cells(1).Range.Text
    Debug.Print strCellText
End Sub