Problem with Worksheet and Table cells

H

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
 
A

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top