Send to Excel Limitation

[#1]

I have a Table box were one of the column contains large text. When I use Send to Excel button on caption the cell that contains text in the result excel file is truncated to 255 char. Does any one knows how to overcome this problem?

[Anonymous]

You can do it using a macro like this:

sub Export
 ActiveDocument.GetSheetObject("TX01").CopyTextToClipboard
 set XLApp = CreateObject("Excel.Application")
 XLApp.Visible = True
 set XLDoc = XLApp.Workbooks.Add
 set XLSheet = XLDoc.Worksheets(1)
 XLSheet.Paste XLSheet.Range("A1")
end sub

(it requires system access)