Issue 52347

Summary:	please allow copying autotext using api
Product:	App Dev	Reporter:	Oliver Brinzing <oliver.brinzing>
Component:	api	Assignee:	stephan.wunderlich
Status:	CLOSED DUPLICATE	QA Contact:	issues@api <issues>
Severity:	Trivial
Priority:	P3	CC:	issues, lohmaier
Version:	3.3.0 or older (OOo)	Keywords:	oooqa
Target Milestone:	---
Hardware:	All
OS:	All
Issue Type:	ENHANCEMENT	Latest Confirmation in:	---
Developer Difficulty:	---

Description Oliver Brinzing 2005-07-22 18:17:07 UTC

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

Comment 1 lohmaier 2005-07-22 18:43:42 UTC

-> reassigning to api

Comment 2 stephan.wunderlich 2005-07-28 13:22:11 UTC

issue 47079 isn't closed yet, so I set this one to duplicate

*** This issue has been marked as a duplicate of 47079 ***

Comment 3 stephan.wunderlich 2005-07-28 13:22:47 UTC

closing as duplicate