Peter Eberlein schrieb:
>> Jetzt fehlt nur noch das vorselektieren des Feldinhaltes.
>> Weißt Du auch wie das geht?
>>
> Sub OnCreate()
> Dim oControl as Object
> Dim aSelection as New com.sun.star.awt.Selection
>
> If ThisComponent.DrawPage.Forms(0).HasByName("tbInterpret") then
> oControl = ThisComponent.DrawPage.Forms(0).GetByName("tbInterpret")
> aSelection.Min = 0
> aSelection.Max = Len(oControl.Text)
> ThisComponent.CurrentController.GetControl(oControl).SetFocus
>
> ThisComponent.CurrentController.GetControl(oControl).SetSelection(aSelection)
> End If
> End Sub
Klasse! :) Vielen Dank. Es funktioniert perfekt.
Da man nur ein einziges Makro dem Event "Dokument erzeugen" bzw.
"Dokument öffnen" zuweisen kann:
Ich möchte gerne das Makro OnCreate noch ergänzen mit der Funktion
"Feldnamen ausblenden, wenn sie zuvor eingeblendet waren"
Das Makro von Michael
| rem ----------------------------------------------------------------------
| rem define variables
| dim document as object
| dim dispatcher as object
| rem ----------------------------------------------------------------------
| rem get access to the document
| document = ThisComponent.CurrentController.Frame
| dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
|
| rem ----------------------------------------------------------------------
| dim args1(0) as new com.sun.star.beans.PropertyValue
| args1(0).Name = "Fieldnames"
| args1(0).Value = false
|
| dispatcher.executeDispatch(document, ".uno:Fieldnames", "", 0, args1())
funktioniert noch nicht zuverlässig.
Falls jemand eine Idee hat, woran es liegen kann und wie man diese
Funktion in das Makro von OnCreate korrekt integriert (hängt man es
einfach an?), wäre das hilfreich.
Danke.
Andreas
Wenn es jemandem gelingen sollte das Formular des Dokumentes
http://borumat.de/openoffice/cd-huelle.ott
im Entwurfsmodus zu bearbeiten würde ich mich freuen, zu erfahren, mit
welchen Schritten dies gelungen ist.
Hier klappt es nach wie vor nicht.
Ich würde das Formular sehr gerne wie ein klassisches Dialogfeld
gestalten, damit es sich deutlicher als jetzt vom Dokument abhebt.
--
http://ooowiki.de
http://borumat.de/openoffice-writer-tipps
http://borumat.de/firefox-browser-tipps
http://borumat.de/thunderbird-email-tipps
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
