Problem with Worksheet and Table cells

[Helmut Weber]

Hi Aleksander,

you got to cut off the end-of-cell mark from the word cell, like:

Dim s As String
s = ActiveDocument.Tables(1).Cell(1, 1).Range.Text
s = Left(s, Len(s) - 2)
MsgBox s

Cells(1, 1).Value = s

--

Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Vista Small Business, Office XP

 

[Aleksander]

Hello,

I am assigning the values of the Word document Table cells to the values of the Excel Worksheet cells in the Word document
with the following code:

Cells(1, 1).Value = Table1.Cell(1, 1) or .Range("A1").Value = Table1.Cell(1, 1)

Symbols with ASCII codes 0D 0A 07 are added to the end of the Excel Worksheet cells. How is it possible to avoid this?

Sincerely,
Aleksander