Apache OpenOffice Community Forum

Posted: **Sun Apr 02, 2017 6:37 pm**

hi friends
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

thanks for your advice

Posted: **Mon Apr 03, 2017 7:30 pm**

I can get string and paste it correctly but it destroys the format

Code: Select all

Table2Cell.insertTextContent(Cursor.getEnd(),Para.getString, False)

Posted: **Tue Apr 04, 2017 9:26 pm**

Have you looked at Andrew Pitonyak's examples in his book “OpenOffice.org Macros Explained”?
Listing 381 copies and pastes a named Writer table using the clipboard, so all the formatting is preserved.

Apache OpenOffice Community Forum

How to copy table context to another table

How to copy table context to another table

Re: How to copy table context to another table

Re: How to copy table context to another table