OpenOffice.info

Code: Alles auswählen

REM  *****  BASIC  *****
' automatisches Ausfüllen
' der Kommentarspalten bei 
' ausgefülltem Merkmal
' Werner Gatzweiler, Juli 2009

Private oDocument as Object
Private oTable as Object
Private oCell as Object
Private oViewCursor as Object
Private oAutoTextContainer as Object
Private oAutoGroup as Object
Private sATKategorie as Object
Private sBaustein as Object
Private oAutoGroupIndex as Integer
Private i, m, n as Integer
Private oAntwort as String
Private oName as String

sub tabelle_anspringen
	oDocument = ThisComponent
	oTable = oDocument.getTextTables().getByName( "Tabelle2" )
	oAntwort = "Textbausteine zur Kompetenzbeurteilung liegen noch nicht vor!!"
	
	'Prüfen, ob die Textbausteine vorhanden sind
	oAutoTextContainer = CreateUnoService("com.sun.star.text.AutoTextContainer")
	for i= 0 to oAutoTextContainer.count-1
		If oAutoTextContainer.GetByIndex(i).Title ="Kompetenz-Beurteilung" then
			oAntwort = ""
			oAutoGroupIndex = i
		end if
	next i
	'Wenn die oben gestzte Programmantwort nicht gelöscht worden ist,
	'dann liegt die <Textbausteindatei.bau> nicht vor und das Programm wird
	'beendet.
	if oAntwort <> "" then
		msgbox oAntwort
		exit sub
	end if

	'Bausteingruppe definieren und nachschauen, wieviele Bausteine es in der Gruppe gibt
	oAutoGroup = oAutoTextContainer.GetByIndex(oAutoGroupIndex)
	'msgbox oAutoGroup.count
	
	for i = 0 to oAutoGroup.count-1
		'Textbausteinname auslesen
		oName = oAutoGroup.Titles(i)
		'Der Textbausteinname ist bewußt nach der Tabellenzelle benannt, in der das Merkmal
		'gesucht wird. Z.B. B3 oder C11 usw.
		oCell = oTable.getCellByName(oName)
		'Nachschauen, ob Merkmal gestzt ist
		if uCase(oCell.String) = "X" then
			'Der Kommentar, also der Textbaustein selber, soll immer in der Spalte "F" stehen.
			'Die Zeile wird aus der Zellenbeschreibung ermittelt.
			oTable.getCellByName("F" & right(trim(oName),len(oName)-1)).String = oAutoGroup.GetByIndex(i).String
		end if
	next i

end sub

Code: Alles auswählen

Sub Rotate_Text1
   odoc=thiscomponent
   oTables = oDoc.getTextTables
   oTable = oTables.getByIndex(0)
   oCell=oTable.getCellByPosition(0,0)
   myViewCursor=oDoc.GetCurrentController.ViewCursor
   myViewCursor.gotoRange(oCell,false)
   myViewCursor.CharRotation = 900
End Sub

Code: Alles auswählen

' Tabelle 
oTT = ThisComponent.getTextTables().getByName( "Tabelle1" )
'  Zelle ( Spalte, Zeile )
oTT_Zelle = oTT.getCellByPosition( 1 , 2 )