JW's second code in your original thread seems to work fine. When copying a
range you are going to get tabs between cells and new lines for each row.
In case you can't find it, Here is JW's code
This "should" work, but for some reason it is still copying the table
structure. I'll keep fooling around with it.
Sub toWord()
Dim objWord As Object
Set objWord = CreateObject("Word.Application")
objWord.Visible = True
Sheets("Sheet1").Range("A1:C4").Copy
objWord.Documents.Add
objWord.Selection.PasteSpecial Link:=False, _
DataType:=wdPasteText, Placement:=wdInLine, _
DisplayAsIcon:=False
Application.CutCopyMode = False
Set objWord = Nothing
End Sub
Peter Richardson
PS: Yelling for a reposnce and starting 2 additional threads on the topic
in under 2 hours seems a might rude to me. It is amazing the number of sub
hour responces on here but you really shouldn't expect it