Startseite festlegen. Wie geht das?

[turtle47]

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.

[turtle47]

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