Hi,
I don't really understood ur problem , but still see if this help.
I have written a macro which will export all the object on a sheet(Table, chart & List's) in a excel file leaving one alternate column. It is like this
'****************************************************************************************************************************************************************
sub CopyToXL
dim iCount
dim ObjName
dim ObjCaption
iCount=65
set XLApp = CreateObject("Excel.Application") ' Define Object
XLApp.Visible = True 'Visible set as true
set XLDoc = XLApp.Workbooks.Add 'Open new workbook
'Take the List of Object's in Excel
set XLSheet = XLDoc.Worksheets(1)
Shtobj = ActiveDocument.ActiveSheet.GetSheetObjects
for i = lBound(Shtobj) to uBound(Shtobj)
' Get TB1
set SheetObj = ActiveDocument.GetSheetObject(Shtobj(i).GetObjectId)
ObjName = Shtobj(i).GetObjectId
ObjCaption = Shtobj(i).GetCaption.Name.v
If Mid(ObjName,10,2)="LB" or Mid(ObjName,10,2)="TB" or Mid(ObjName,10,2)="CH" Then
'ObjCaption = SheetObj.Caption
If(((iCount-65)/26) > 1 ) Then
Cell = chr(((iCount-65)/26) + 64) & Chr(((iCount -65) Mod 26) + 65)
else
Cell = Chr(iCount)
End if
SheetObj.CopyTableToClipboard true
XLSheet.Range(Cell& "1") = ObjCaption
XLSheet.Range(Cell& "1").Font.Bold = True
'msgbox Cell & iCount
XLSheet.Paste XLSheet.Range(Cell& "2")
'XLSheet.Paste XLSheet.Cells(1,iCount)
iCount= XLSheet.UsedRange.Columns.Count + 1
iCount = iCount + 65
End if
'msgbox iCount
next
end sub
'****************************************************************************************************************************************************************
Try using this one , It is not properly formated , so you will need to add the formating.
Regard's
Amar
