Hi, I am a new forum member but an old and limited user of MSOffice.



I have a series of tables in a Word template used to record comments.
I would like to select the text in column 2 for each of the rows and stitch it together in a string for out put in another document.

I am effectively using the command
ActiveDocument.Tables(2).Cell(Row:=2, Column:=2).Range.Select
to select the text and
StitchText = StitchText + Selection
to put the text together but am getting a carrigae return or similar at the end of each Selection.

I think this is part of the Cell information retrieved by the Range.Select command but it could be anything.

Please can you suggest a fix or better method for combining all the cells text in to one?

Thank you.

Found the Solution thanks to a publication by Susan Dorey Designs THANK YOU!!

The problem sits with the method for selecting the text, intead use:

Set myRange = ActiveDocument.Tables(2).Cell(Row:=2, Column:=2).Range
myRange.MoveEnd Unit:=wdCharacter, Count:=-1
StitchText = StitchText + myRange.Text