To comment on the following update, log in, then open the issue:
http://www.openoffice.org/issues/show_bug.cgi?id=47079
                  Issue #:|47079
                  Summary:|copying autotext from one group to another looses
                          |textables
                Component:|Word processor
                  Version:|680m87
                 Platform:|All
                      URL:|
               OS/Version:|Windows XP
                   Status:|UNCONFIRMED
        Status whiteboard:|
                 Keywords:|
               Resolution:|
               Issue type:|DEFECT
                 Priority:|P3
             Subcomponent:|code
              Assigned to:|mru
              Reported by:|brinzing





------- Additional comments from [EMAIL PROTECTED] Sat Apr  9 02:19:14 -0700 
2005 -------
Hi,

I tried 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 (drag & drop).

I will create an attachment ...

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