| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copy excel text on a range and paste special to Word
How can I do it?
Trying to Copy excel text on a range and paste special (text only) to Word the same but pasting into the notepad Thanks |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Copy excel text on a range and paste special to Word
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 '.Paste Application.CutCopyMode = False Set objWord = Nothing End Sub Daniel wrote: How can I do it? Trying to Copy excel text on a range and paste special (text only) to Word the same but pasting into the notepad Thanks |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Copy excel text on a range and paste special to Word
JW,
thanks, however it paste a table in Word instead of unformatted text as I want it, any ideas? Daniel "JW" wrote: 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 '.Paste Application.CutCopyMode = False Set objWord = Nothing End Sub Daniel wrote: How can I do it? Trying to Copy excel text on a range and paste special (text only) to Word the same but pasting into the notepad Thanks |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Copy excel text on a range and paste special to Word
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 Daniel wrote: JW, thanks, however it paste a table in Word instead of unformatted text as I want it, any ideas? Daniel "JW" wrote: 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 '.Paste Application.CutCopyMode = False Set objWord = Nothing End Sub Daniel wrote: How can I do it? Trying to Copy excel text on a range and paste special (text only) to Word the same but pasting into the notepad Thanks |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Copy excel text on a range and paste special to Word
Did this ever get solved, I am looking for the same solution
"JW" wrote: 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 Daniel wrote: JW, thanks, however it paste a table in Word instead of unformatted text as I want it, any ideas? Daniel "JW" wrote: 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 '.Paste Application.CutCopyMode = False Set objWord = Nothing End Sub Daniel wrote: How can I do it? Trying to Copy excel text on a range and paste special (text only) to Word the same but pasting into the notepad Thanks |
|
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Copy excel text on a range and paste special to Word
Should have tried the code first, it worked for me! (no table format, just
text) "JW" wrote: 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 Daniel wrote: JW, thanks, however it paste a table in Word instead of unformatted text as I want it, any ideas? Daniel "JW" wrote: 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 '.Paste Application.CutCopyMode = False Set objWord = Nothing End Sub Daniel wrote: How can I do it? Trying to Copy excel text on a range and paste special (text only) to Word the same but pasting into the notepad Thanks |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Copy and paste (special) a series of cells into word | Excel Programming | |||
| Copy range in macro using paste special values | Excel Discussion (Misc queries) | |||
| Copy/Paste Excel Cell Range to Word Bookmark | Excel Programming | |||
| missing text when using paste special from word to excel | Excel Discussion (Misc queries) | |||
| Copy and Paste Special Dynamic Range | Excel Programming | |||
Linear Mode
