table cells

[Maga Circe]

I have a document with 1 table composed by2 columns.

How can i write to take all the context for example of the
tables(1).cell(index,2) ?

 

[Helmut Weber]

Hi Maga,

like this:

Sub test400()
Dim sTmp As String
sTmp = ActiveDocument.Tables(1).Cell(1, 1).Range.Text
sTmp = Left(sTmp, Len(sTmp) - 2)
' cut off end of cell mark
MsgBox sTmp
End Sub

HTH

--
Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Win XP, Office 2003
"red.sys" & Chr$(64) & "t-online.de"