OpenOffice.info

Verfasst: **Fr, 25.01.2008 21:51**

Hi Kayyyschiii,

das geht nur mit folgendem Makro, welches Du im Dokument hinterlegst und dann unter
Menue > Ansicht > Symbolleisten > Anpassen > Reiter Ereignisse > Dokument öffnen verknüpfst:

Code: Alles auswählen

Sub ImmerGleichesTabellenblatt
	myDoc = ThisComponent
	myView = myDoc.CurrentController
	mySheet = myDoc.Sheets.getByName("Tabelle1")
	myView.setActiveSheet(mySheet)
End Sub

Informationen zum Installieren und einbinden findest du hier:
http://www.ooowiki.de/MakrosInstallierenKapitel Quellcode..
http://www.ooowiki.de/MakrosMitEinemKlick
http://www.ooowiki.de/SchaltFl%C3%A4che

Viel Erfolg.

Jürgen

Edit:

Code: Alles auswählen

"Tabelle1"

kannst Du durch Deine gewünschtes Tabellenblatt ersetzen.

Verfasst: **Fr, 25.01.2008 23:31**

Nabend Kaiiischiii,

folgendes Makro bindest Du unter "Meine Makros" ein und verknüpfst es mit einem Symbol in einer Symbolleiste.

Code: Alles auswählen

Sub NotizenOeffnen
Dim Dokument as Object
Dim sUrl as String
Dim Dummy()
sUrl = ConvertToUrl ("C:\Notizen.ods") ' Achtung: Pfad anpassen!
'Prüfungsroutine
  gefunden=false
  oComponents = StarDesktop.getComponents()
  oDocs = oComponents.createEnumeration()
  Do While oDocs.hasMoreElements()
    oDoc = oDocs.nextElement()
    datei=odoc.geturl()
     if datei=ConvertToUrl("C:\Notizrn.ods") then ' Achtung: Pfad anpassen!
         Dokument=odoc
         gefunden=true
         msgbox "Die Datei ist bereits geöffnet!" ,64, "Datei öffnen"
     end if
  Loop
' Wenn nicht offen, dann öffnen
if gefunden=false then Dokument = StarDesktop.loadComponentFromURL   ( sUrl , "_blank", 0, Dummy() )
End Sub

Es ruft Deine Tabelle Notizen auf. Den Pfad musst Du noch anpassen.

Das erste Makro von mir musst du in dem Dokument "Notizen" einbinden und dort wie schon beschrieben mit dem öffnen des Dokuments verknüpfen!

Und jetzt Guts Nächtle.

Jürgen

OpenOffice.info

Startseite festlegen. Wie geht das?

Re: Startseite festlegen. Wie geht das?

Re: Startseite festlegen. Wie geht das?