STILL NO ANSWER, DOES ANYBODY REALLY KNOWS

[Guest]

Coming from excel copy range into pasting unformatted text into Word and also
into Notepad.

Thanks
Dan

 

[JE McGimpsey]

Please don't keep starting new threads with the same question!

Somebody obviously DOES REALLY KNOW, because at least one person (me)
has posted a solution that works (hard to tell if there have been more,
since you're starting new threads).

If it's not working for you, please include more information - i.e.,
what is NOT working for you.

What happens when you follow the steps I gave you?

Just posting "it doesn't work" is utterly unhelpful.

 

[Guest]

JE,
You never answered the question,
where is the VB code you are suggesting?
By stating that is a two step process does not say anything
Thx
Dan

Daniel

 

[JE McGimpsey]

One way:

Selection.PasteSpecial _
Link:=False, _
Placement:=wdInLine, _
DisplayAsIcon:=False, _
DataType:=wdPasteText

 

[JW]

What JE suggested in one of your other posts was to create a shortcut
in Word to do the paste. You select what you want in Excel, go to
Word, and click the button to paste it as unformatted. Instructions
for setting this up can be found at the link below.
http://pubs.logicalexpressions.com/pub0009/LPMArticle.asp?ID=128

 

[Guest]

Thank you John

What JE suggested in one of your other posts was to create a shortcut
in Word to do the paste. You select what you want in Excel, go to
Word, and click the button to paste it as unformatted. Instructions
for setting this up can be found at the link below.
http://pubs.logicalexpressions.com/pub0009/LPMArticle.asp?ID=128

 

[Guest]

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