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
> > >
> > >
>
>
|
Similar Threads
