To comment on the following update, log in, then open the issue:
http://www.openoffice.org/issues/show_bug.cgi?id=52347
                  Issue #:|52347
                  Summary:|please allow copying autotext using api
                Component:|Word processor
                  Version:|OOo 2.0 Beta
                 Platform:|All
                      URL:|
               OS/Version:|All
                   Status:|UNCONFIRMED
        Status whiteboard:|
                 Keywords:|
               Resolution:|
               Issue type:|ENHANCEMENT
                 Priority:|P3
             Subcomponent:|code
              Assigned to:|mru
              Reported by:|brinzing





------- Additional comments from [EMAIL PROTECTED] Fri Jul 22 10:17:07 -0700 
2005 -------
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

---------------------------------------------------------------------
Please do not reply to this automatically generated notification from
Issue Tracker. Please log onto the website and enter your comments.
http://qa.openoffice.org/issue_handling/project_issues.html#notification

---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]


---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to