A
a-n-n-e
I am not sure if my problem here is a Word or Excel problem.
In the code below, I am copying data from an Excel worksheet to a
Word
doc. It works great, except only the first 1024 characters in a cell
are getting copied. The rest is getting dropped. I have verified
the
data (over 1024) is in the Excel cell when it is copied. I can't
figure why this is happening. I know some eariler versions of Excel
had display limitations. I have also
tried formatting the worksheet before it is copied to make sure all
data is visible in the cell before it's copied and it still drops
char
over 1024. Any ideas would be greatly appreciated.
I am using Excel 2002 and 2003 and Word 2002 and 2003
Anne
-----------------
Sub PasteDataTest()
'go to the worksheet and copy the data to the word file
Worksheets("Temp").Activate
Range("A1").Select
ActiveCell.CurrentRegion.Select
Selection.Name = "myRange"
' copy the range, assumes current excel active workbook
Range("myRange").Copy
' Paste as formatted text.
WordApp.Selection.PasteSpecial Link:=False, DataType:=wdPasteRTF,
_
Placement:=wdInLine, DisplayAsIcon:=False
End Sub
In the code below, I am copying data from an Excel worksheet to a
Word
doc. It works great, except only the first 1024 characters in a cell
are getting copied. The rest is getting dropped. I have verified
the
data (over 1024) is in the Excel cell when it is copied. I can't
figure why this is happening. I know some eariler versions of Excel
had display limitations. I have also
tried formatting the worksheet before it is copied to make sure all
data is visible in the cell before it's copied and it still drops
char
over 1024. Any ideas would be greatly appreciated.
I am using Excel 2002 and 2003 and Word 2002 and 2003
Anne
-----------------
Sub PasteDataTest()
'go to the worksheet and copy the data to the word file
Worksheets("Temp").Activate
Range("A1").Select
ActiveCell.CurrentRegion.Select
Selection.Name = "myRange"
' copy the range, assumes current excel active workbook
Range("myRange").Copy
' Paste as formatted text.
WordApp.Selection.PasteSpecial Link:=False, DataType:=wdPasteRTF,
_
Placement:=wdInLine, DisplayAsIcon:=False
End Sub