Re: Some questions about undo

2014-03-06 Thread Jörg Schmidt
From: Ariel Constenla-Haile [mailto:arie...@apache.org] This looks like an omission from the developer, you might want to submit a bug. No, I think not. Please consider the following example: http://www.openoffice.org/api/docs/common/ref/com/sun/star/util/PathSettings.html I do not

Re: selecting more than one sheet (Calc / StarBasic)

2014-08-12 Thread Jörg Schmidt
From: Bernard Marcelly [mailto:marce...@club-internet.fr] Dim dispatcher As Object, curWin As Object Dim args(0) As New com.sun.star.beans.PropertyValue curWin = ThisComponent.CurrentController.Frame dispatcher = createUnoService(com.sun.star.frame.DispatchHelper) args(0).Name = Tables

access internal graphics of a writer-document

2014-10-14 Thread Jörg Schmidt
Hello, With the StarBasic-Code: ThisComponent.GraphicObjects(0).GraphicURL I can read the internal URL of an embedded graphic in a writer-document, for example vnd.sun.star.GraphicObject:13AC00DC178CAB87 But can I use this URL as .GraphicURL for a graphic control of a

Re: access internal graphics of a writer-document

2014-10-17 Thread Jörg Schmidt
Hello Arial, From: Ariel Constenla-Haile [mailto:arie...@apache.org] I guess you are using the Dialog Editor, I've tried the Property Browser, and it does not work well with this protocol: setting Graphics to vnd.sun.star.GraphicObject:120101B1019D1E3B87B7 is then converted

copy an existing style

2015-01-02 Thread Jörg Schmidt
A Happy New Year to all. Hello, I can access a paragraph style as follows: the_style = ThisComponent.getStyleFamilies.getByName(ParagraphStyles).getByName(jms1) I can also add a new style: newStyle = ThisComponent.CreateInstance(com.sun.star.style.ParagraphStyle)

Re: copy an existing style

2015-01-06 Thread Jörg Schmidt
Hello, From: Jörg Schmidt [mailto:joe...@j-m-schmidt.de] Thank You. The following works for me: Sub Vorlage_kopieren() ... I use the same for numberingstyles it does not work properly. Using the following code will _not_ transfer the setting position-at (in a german AOO Position-bei

Re: copy an existing style

2015-01-03 Thread Jörg Schmidt
From: Oliver Brinzing [mailto:oliver.brinz...@gmx.de] i think you have to copy all Properties from old to new style. this should work for Pagestyles: REM * BASIC * OPTION EXPLICIT Sub PageStyle [...] Thank You. The following works for me: Sub Vorlage_kopieren()

Re: copy an existing style

2015-01-03 Thread Jörg Schmidt
From: Oliver Brinzing [mailto:oliver.brinz...@gmx.de] Sent: Saturday, January 03, 2015 10:00 AM To: api@openoffice.apache.org Subject: Re: copy an existing style Hi Jörg, or try to set the parent style: newStyle.ParentStyle = oldStyle.Name oStyles.insertByName(myNewStyle, newStyle)

Re: [Q] using graphics in dialog in an extension

2015-03-18 Thread Jörg Schmidt
From: Mathias Röllig [mailto:mroellig.n...@gmx.net] Sent: Tuesday, March 17, 2015 9:18 PM To: API AOO Subject: [Q] using graphics in dialog in an extension Hello! It is not a problem using graphics in a dialog. Simply adding a graphics control or adding icons to push buttons. But

reliably determine the location of soffice.exe

2015-03-15 Thread Jörg Schmidt
Hello, The following code returns the directory where soffice.exe is: Sub Benutzerverzeichnis() aService = CreateUnoService(com.sun.star.util.PathSubstitution) sUserPath = ConvertFromURL(aService.substituteVariables($(prog), true)) InputBox (Ihr aktuelles OpenOffice.org-Benutzerverzeichnis

Re: Disable underline - UnoControlFixedHyperlinkModel

2015-04-24 Thread Jörg Schmidt
Hello, From: Bernard Marcelly [mailto:marce...@club-internet.fr] Sent: Thursday, April 23, 2015 3:24 PM To: api@openoffice.apache.org Subject: Re: Disable underline - UnoControlFixedHyperlinkModel Hi Jörg, That's the usual problem of a structure inside a structure : you must use a

Disable underline - UnoControlFixedHyperlinkModel

2015-04-23 Thread Jörg Schmidt
Hello, How can I stop underlining of hyperlinks in UnoControlFixedHyperlinkModel? My current code is: Dim dia_ueber Dim frm_ueber Dim fhm GlobalScope.BasicLibraries.LoadLibrary(jum) GlobalScope.DialogLibraries.LoadLibrary(jum) frm_ueber = DialogLibraries.jum.dlg_ueber dia_ueber =

Get the result of .uno:SelectTables

2015-05-19 Thread Jörg Schmidt
Hello, with the following code I can call the Select-Tables-Dialog in Calc: dim document as object dim dispatcher as object document = ThisComponent.CurrentController.Frame dispatcher = createUnoService(com.sun.star.frame.DispatchHelper) dispatcher.executeDispatch(document,

Re: How to change text flow direction in a table with macro?

2015-06-27 Thread Jörg Schmidt
Hello, From: Hung Mark [mailto:mark...@gmail.com] Sorry that I misled you. It is my intention to change text flow in a cell to right to left direction. I think you mean the setting of the paragraph: Sub Snippet Dim oCurrentController As Variant Dim oViewCursor As Variant Dim

need some help to Accelerators.xcu

2015-06-17 Thread Jörg Schmidt
Hello, On the following page I find information on Accelerators.xcu: https://wiki.openoffice.org/wiki/Framework/Article/Accelerators_Configuration This works well so far, but I've noticed the changes of Keys in the area of a module (for example: node oor: name = com.sun.star.text.TextDocument)

Re: StarOffice 8 Programming Guide for Basic

2015-06-29 Thread Jörg Schmidt
From: papa.br...@laposte.net [mailto:papa.br...@laposte.net] Sent: Monday, June 29, 2015 6:43 PM To: api@openoffice.apache.org Subject: StarOffice 8 Programming Guide for Basic Hello, Thre's no link to the last version of the programming guide. See:

How to change an entry of a self-created menus via macro

2015-09-10 Thread Jörg Schmidt
Hello, I have a menu, _created by a addons.xcu-file_ in a extension. Is it possible to change an entry of a self-created menus via macro? With this, i 'catch' only the 'normal' menus, _not my self-created menu_: sMenuBar = "private:resource/menubar/menubar" oModuleCfgMgrSupplier =

Re: read and set the option "Save URLs relative to file system"

2015-09-13 Thread Jörg Schmidt
Hello, Thank you Regina, Thank you Tsutomu. The following works: Sub einstellung_pruefen() 'Speichereinstellung prüfen Dim sNodePath As String Dim oCP, oCUA sNodePath = "/org.openoffice.Office.Common/Save/URL" Dim aProps(0) As New