To comment on the following update, log in, then open the issue:
http://www.openoffice.org/issues/show_bug.cgi?id=73459
------- Additional comments from brinz...@openoffice.org Fri Oct 22 05:33:40
+0000 2010 -------
a possible solution for this problem could look like:
- get index for writeable AutotextContainer
- preselect listbox entry
btw: have a look at the misspelled property: "AutoText_writable"
REM ***** BASIC *****
OPTION EXPLICIT
Sub Main
Dim oATContainer as Object
oATContainer = CreateUnoService("com.sun.star.text.AutoTextContainer")
oATContainer.insertNewByName("xxx" & GetWritableAutotextContainer())
End Sub
Function GetWritableAutotextContainer() as String
On Local Error Goto ErrorHandler
Dim oSettings as Object
Dim oPathSettings as Object
Dim mPaths() as String
Dim i as Integer
oSettings = createUnoService("com.sun.star.util.PathSettings")
mPaths() = Split(oSettings.AutoText, ";")
For i = 0 To uBound(mPaths())
If mPaths(i) = oSettings.AutoText_writable Then
GetWritableAutotextContainer = "*" & i
Exit Function
EndIf
Next i
ErrorHandler:
GetWritableAutotextContainer = ""
End Function
---------------------------------------------------------------------
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: issues-unsubscr...@sw.openoffice.org
For additional commands, e-mail: issues-h...@sw.openoffice.org
---------------------------------------------------------------------
To unsubscribe, e-mail: allbugs-unsubscr...@openoffice.org
For additional commands, e-mail: allbugs-h...@openoffice.org
