OpenOffice.info

Code: Alles auswählen

sub Senf
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 = "Nr"
args1(0).Value = 7

dispatcher.executeDispatch(document, ".uno:JumpToTable", "", 0, args1())

end sub
[\code]


Funktioniert auch alle bestens, aber ich habe ein Problem:
Die Tabellen werden über Nummern aufgerufen, im Bsp. oben Nr. 7, wenn ich jedoch in der Datei vorne eine neue Tabelle aus einer Vorlagendatei einfüge, dann wird z.B mit dem Schalter für [i]Senf[\i] zwar weiterhin die Nummer 7 aufgerufen, dahinter verbirgt sich jedoch nicht mehr das Rezept für Senf sonder das was unmittrelbar davor steht.

Deshalb möchte ich das Makro so abändern, daß ich den TabellenNamen verwende und nicht die Nummer.

Kann mir jemand einen Tipp geben.

Vielen Dank im voraus Aleiga

Code: Alles auswählen

Sub TabellenblattAktvieren()
Dok = ThisComponent
Controller = Dok.getCurrentController
Tab = Dok.sheets.getByName("Tabelle2") 'Hier den Namen der gewünschten Tabelle eintragen
Controller.activeSheet = Tab
End Sub

Code: Alles auswählen

Sub calc_jump2SheetByName( Optional sName as String ) 

If IsMissing( sName ) Then Exit Sub

If ThisComponent.Sheets().hasByName( sName ) Then
	oZiel = ThisComponent.Sheets().getByName( sName ) 
	oBlatt = ThisComponent.CurrentController.setActiveSheet( oZiel ) 
End If

End Sub

Code: Alles auswählen

Tab = Dok.sheets.getByName("Tabelle2") 'Hier den Namen der gewünschten Tabelle eintragen'

Code: Alles auswählen

Sub TabellenblattAktvieren(Name)
Dok = ThisComponent
Controller = Dok.getCurrentController
Tab = Dok.sheets.getByName(Name) 'Hier den Namen der gewünschten Tabelle eintragen
Controller.activeSheet = Tab
End Sub

Code: Alles auswählen

Sub aufrufenRoutineWechseln
sName = "Tabelle2" 
msgbox "Wechsle nun zu Tabellenblatt: " & sName

' Aufruf
TabellenblattAktvieren( sName )

' ...
' weitere Anweisungen
End Sub

Code: Alles auswählen

Sub jump2_Tabelle1
 calc_jump2SheetByName( "Tabelle1" )
End Sub
Sub jump2_Tabelle2
 calc_jump2SheetByName( "Tabelle2" )
End Sub
Sub jump2_Tabelle3
 calc_jump2SheetByName( "Tabelle3" )
End Sub