OpenOffice.info

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

Nabend Kaiiischiii,

folgendes Makro bindest Du unter "Meine Makros" ein und verknüpfst es mit einem Symbol in einer Symbolleiste.
[code]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[/code]

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

Das erste Makro von mir musst du in dem [color=#FF0000][b]Dokument "Notizen"[/b] [/color]einbinden und dort wie schon beschrieben mit dem öffnen des Dokuments verknüpfen!

Und jetzt Guts Nächtle.

Jürgen

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

"Tabelle1"

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]Sub ImmerGleichesTabellenblatt
myDoc = ThisComponent
myView = myDoc.CurrentController
mySheet = myDoc.Sheets.getByName("Tabelle1")
myView.setActiveSheet(mySheet)
End Sub[/code]


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]"Tabelle1"[/code] kannst Du durch Deine gewünschtes Tabellenblatt ersetzen. :lol: