OpenOffice.info

Nachdem ich mich jetzt registriert habe, ich lade hier mal meine Datei hoch. Vielleicht gehts ja doch ohne schwierige Makros.
Auch für Verbesserungen und Vereinfachungen wäre ich dankbar!
lg wieli

Hallo Gast,

[quote="Gast"]Natürlich soll dann jeder ein "jungfräuliches" Dokument beim öffnen haben [/quote]
speichere das Dokument im "jungfräulichen Zustand" als Vorlage.

Mit geholfenen Grüßen

Eddy

Sub S_reset_Controls
    osheet = thiscomponent.sheets.getbyname("Tabelle1")
    ocontroller = Thiscomponent.currentcontroller
    oform = osheet.drawpage.Forms.getbyname("Formular")
    for i = 0 to oform.count -1
        ocontrolmodel = oform(i)
        if ocontrolmodel.supportsservice("com.sun.star.awt.UnoControlListBoxModel") then
            ocontrol = ocontroller.getcontrol(ocontrolmodel)
            ocontrol.selectItemPos(0,true)'zurücksetzen
        endif
        if ocontrolmodel.supportsservice("com.sun.star.awt.UnoControlCheckBoxModel") then
            ocontrolmodel.State = 0'zurücksetzen
        endif
    next i
end sub

Hi,
wie lorbass schon geschrieben hat, gehört das Thema in die Kategorie [url=http://de.openoffice.info/viewforum.php?f=18]Basic und Java[/url].
Hier ein Makro, dass funktionieren müsste, wenn Du die Markierfelder und Listboxen nicht an eine Datenbank gebunden hast, wie ich leider, mangels weiterer Informationen, vermuten muss.
[code]Sub S_reset_Controls
osheet = thiscomponent.sheets.getbyname("Tabelle1")
ocontroller = Thiscomponent.currentcontroller
oform = osheet.drawpage.Forms.getbyname("Formular")
for i = 0 to oform.count -1
ocontrolmodel = oform(i)
if ocontrolmodel.supportsservice("com.sun.star.awt.UnoControlListBoxModel") then
ocontrol = ocontroller.getcontrol(ocontrolmodel)
ocontrol.selectItemPos(0,true)'zurücksetzen
endif
if ocontrolmodel.supportsservice("com.sun.star.awt.UnoControlCheckBoxModel") then
ocontrolmodel.State = 0'zurücksetzen
endif
next i
end sub[/code]Du kannst es entweder mit einer Schaltfläche, z.B.mit Titel "zurücksetzen", anwenden oder, wie auch schon geschrieben wurde, unter Extras/Anpassen/Ereignisse/Dokument öffnen ausführen lassen.

Gruß R

Setze die Objekte in einem Makro auf die gewünschten Initialwerte und binde das Makro an das Ereignis [i]Dokument öffnen[/i]. Fragen zur Makro-Programmierung kläre bitte in der Kategorie [url=http://de.openoffice.info/viewforum.php?f=18]OOo Basic und Java[/url].

Gruß
lorbass