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]
