Hi,

I would like to copy an autotext from one group to another with the
following basic snippet. Seems not to work really, cause all
text tables from the autotext are lost during the copy ...  :-( 
does not work in oo 1.1.4 too ...

No problems moving autotext via ui using drag & drop.

please have a look at the closed issue
http://www.openoffice.org/issues/show_bug.cgi?id=47079
for more details ...

regards

Oliver

--

OPTION EXPLICIT

Sub CopyAutotext

	Dim oATContainer as Object
	Dim oSrcGroup as Object	    ' contains an autotext with a text table
	Dim oDestGroup as Object	' is empty ...
	
	oATContainer = CreateUnoService( "com.sun.star.text.AutoTextContainer")
	
	oSrcGroup = oATContainer.getByName("src")
	oDestGroup = oATContainer.getByName("dest")
	
	oDestGroup.insertNewByName("xxx", "copy", oSrcGroup.getByIndex(0))

End Sub