 |
 | Home | Contact Us | FAQ | Search & Site Map | Link to Us |
 | Sign In | Join | Other 45 Sites in Network |
| HomeDiscussionsAccessExcelInfoPathOutlookPowerPointPublisherWordDirectoryUser Groups Related Topics Outlook ExpressInternet ExplorerWindowsMS Server ProductsMore Topics ... |
MS Office Forum / Excel / Programming / March 2008Copy 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 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 > How can I do it? > [quoted text clipped - 3 lines] > > Thanks JW, thanks, however it paste a table in Word instead of unformatted text as I want it, any ideas? Daniel > Sub toWord() > Dim objWord As Object [quoted text clipped - 14 lines] > > > > Thanks 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 > JW, > thanks, however it paste a table in Word instead of unformatted text as I [quoted text clipped - 19 lines] > > > > > > Thanks Did this ever get solved, I am looking for the same solution > This "should" work, but for some reason it is still copying the table > structure. I'll keep fooling around with it. [quoted text clipped - 34 lines] > > > > > > > > Thanks Should have tried the code first, it worked for me! (no table format, just text) > This "should" work, but for some reason it is still copying the table > structure. I'll keep fooling around with it. [quoted text clipped - 34 lines] > > > > > > > > Thanks
|
Reply to this Message |
 Sign In
 Join
 My Latest Posts My Monitored Threads My Blog My Photo Gallery My Profile My Homepage Start New Thread Enable EMail Alerts Rate this Thread
|
©2008 Advenet LLC Privacy Policy - Terms of Use
This website includes both content owned or controlled by Advenet as well as content owned or controlled by third parties.