Hi

I'm trying to copy-paste (unformatted), a series of cells in excel into
Word. I've got the below macro which does some of this but it keeps pasting
the whole table either as a picture or a normal table (if you use the
disabled line instead of the enabled paste line).

However, if I manually copy-paste special and select unformatted text I get
a load of text and no tables or borders which is what I want.

Any ideas how to achieve this with the below macro?

Sub OpenAWordFile()
Dim wordApp As Object
Dim fNameAndPath As String
ActiveSheet.Range("I5:I51").Copy
fNameAndPath = "C:\Documents and Settings\tom.jordan\My
Documents\Projects\FFEC Headed Paper.doc"
Set wordApp = CreateObject("Word.Application")
With wordApp
.Documents.Open (fNameAndPath)
.Visible = True
.Selection.PasteSpecial DataType:=wdPasteText
'.Selection.PasteAndFormat (wdPasteDefault)
.Selection.WholeStory
.Selection.Font.Name = "Arial"
.Selection.Font.Size = 11
End With
Set wordApp = Nothing
Application.CutCopyMode = False
End Sub

Raphiel,
I am trying to do the same and nobody gets it,
have you made it work pasting in unformatted text?
Thank
Daniel

"raphiel2063" wrote:

> Hi
>
> I'm trying to copy-paste (unformatted), a series of cells in excel into
> Word. I've got the below macro which does some of this but it keeps pasting
> the whole table either as a picture or a normal table (if you use the
> disabled line instead of the enabled paste line).
>
> However, if I manually copy-paste special and select unformatted text I get
> a load of text and no tables or borders which is what I want.
>
> Any ideas how to achieve this with the below macro?
>
> Sub OpenAWordFile()
> Dim wordApp As Object
> Dim fNameAndPath As String
> ActiveSheet.Range("I5:I51").Copy
> fNameAndPath = "C:\Documents and Settings\tom.jordan\My
> Documents\Projects\FFEC Headed Paper.doc"
> Set wordApp = CreateObject("Word.Application")
> With wordApp
> .Documents.Open (fNameAndPath)
> .Visible = True
> .Selection.PasteSpecial DataType:=wdPasteText
> '.Selection.PasteAndFormat (wdPasteDefault)
> .Selection.WholeStory
> .Selection.Font.Name = "Arial"
> .Selection.Font.Size = 11
> End With
> Set wordApp = Nothing
> Application.CutCopyMode = False
> End Sub

Daniel

Still no joy I'm afraid. Whatever I try doesn't work and nobody really knows
what I mean.

"Daniel" wrote:

> Raphiel,
> I am trying to do the same and nobody gets it,
> have you made it work pasting in unformatted text?
> Thank
> Daniel
>
> "raphiel2063" wrote:
>
> > Hi
> >
> > I'm trying to copy-paste (unformatted), a series of cells in excel into
> > Word. I've got the below macro which does some of this but it keeps pasting
> > the whole table either as a picture or a normal table (if you use the
> > disabled line instead of the enabled paste line).
> >
> > However, if I manually copy-paste special and select unformatted text I get
> > a load of text and no tables or borders which is what I want.
> >
> > Any ideas how to achieve this with the below macro?
> >
> > Sub OpenAWordFile()
> > Dim wordApp As Object
> > Dim fNameAndPath As String
> > ActiveSheet.Range("I5:I51").Copy
> > fNameAndPath = "C:\Documents and Settings\tom.jordan\My
> > Documents\Projects\FFEC Headed Paper.doc"
> > Set wordApp = CreateObject("Word.Application")
> > With wordApp
> > .Documents.Open (fNameAndPath)
> > .Visible = True
> > .Selection.PasteSpecial DataType:=wdPasteText
> > '.Selection.PasteAndFormat (wdPasteDefault)
> > .Selection.WholeStory
> > .Selection.Font.Name = "Arial"
> > .Selection.Font.Size = 11
> > End With
> > Set wordApp = Nothing
> > Application.CutCopyMode = False
> > End Sub