I want to copy all table context into other table. Table has paragragh and numering context. I always get same message
Code: Select all
Option Explicit
dim Table1,Table2,Table1cell,Table2cell as object
Sub Main
Table1=ThisComponent.TextTables.getByName("Table1")
Table1Cell=Table1.getCellByName("A1")
Table2=ThisComponent.TextTables.getByName("Table2")
Table2Cell=Table2.getCellByName("A1")
dim Enum1,Cursor as object
dim Para as object
Enum1=Table1Cell.createEnumeration
Cursor=Table2Cell.createTextCursor
while Enum1.hasMoreElements
Para=Enum1.NextElement()
Table2Cell.insertTextContent(Cursor.getEnd(),Para.getText, False)
wend
End Sub