OpenOffice.info

Code: Alles auswählen

sub SprungzieleEintragen
	REM Sprungziele zu den Familien eintragen
	'private ofbDoc as object
	'private oText as object
	dim oCur as object 'ein Textcursor
	dim oAbsText as string
	dim oZiel as object 'ein Sprungziel
	dim oZielName as string
	dim i as long 'Zählt die Anzahl der eingetragenen Sprungziele
	
	i = 0
	oCur = ofbDoc.text.createTextCursor()
	oCur.gotoStart(false) 'Bewegt den Cursor zum Anfang des Textes
	do
		'der Cursor steht am Anfang eines Absatzes und markiert den Absatz
		oCur.gotoEndOfParagraph(true)
		if oCur.ParaStyleName = "ofbÜberschrift 5" then
			oAbsText = oCur.String
			if oAbsText <> "#9999" then
				'ein manuell eingetragenes Sprungziel erhielt im Test den Text #9999
				'Sprungzielnamen dürfen das Zeichen # nicht enthalten
				i = i + 1
				oZielName = Right(oAbsText,4)
				oZiel = ofbDoc.createInstance("com.sun.star.text.ReferenceMark")
				oZiel.setName(oZielName)
				ofbDoc.Text.insertTextContent(oCur, oZiel, true)
			end if
		end if
	loop while oCur.gotoNextParagraph(false)
	ofbDoc.store()
end sub


sub QuerverweiseEintragen
	REM Das Dokument ofbDoc soll Textfelder enthalten der Art GetReference
	'berücksichtigt, dass ein Sprungziel aus mehreren Querverweisen erreicht werden kann
	'suchen nach regulärem Ausdruck "#...." im Dokument als Ort des einzufügenden Querverweises
	'private ofbDoc as object
	'private oText as object
	dim oQuerverweis as object
	dim oCur as object
	dim oSuche as object
	dim aktGefunden as object
	dim aktWort as string
	
	oText = ofbDoc.Text
	oCur = ofbDoc.Text.createTextCursor()
	oCur.gotoStart(false) 'Bewegt den Cursor zum Anfang des Textes
	
	oQuerverweis = ofbDoc.createInstance("com.sun.star.text.textfield.GetReference")
	
		oSuche = ofbDoc.createSearchDescriptor()
		With oSuche
			.SearchString = "#...." 'es fehlt ein Ausschluss der Überschriften im 
			.SearchRegularExpression = true
		end with
		'liefert die erste Fundstelle im Text, ungeachtet der Formatierung
		aktGefunden = ofbDoc.findFirst(oSuche)
		do while not isnull(aktGefunden)
			'nur an gefundenen Textstellen im Text aber nicht in Überschriften ein Querverweis-Objekt einfügen,
			'wenn dafür auch ein Sprungziel bereitsteht
			'Zeichenformat unterscheidet Überschriften vom Text
			aktWort = aktGefunden.String
			if aktGefunden.CharWeight = 150 then
				'Fundstelle ist Überschrift und Sprungziel
			else
				if aktGefunden.CharWeight = 100 then
					'100 steht für ofbEinzug Textkörper und ofbTextkörper
					'bei vollständigenm Text des OFB kann auf SprungzielTest verzichtet werden
					if SprungzieleTest(right(aktWort,4)) then
						'Sprungzieltest bestanden
						'einen Querverweis an Cursorposition einfügen, wo steht  der TextCursor ?
						oCur.gotoRange(aktGefunden,false) 'Cursor markiert den gesuchten Text
						oCur.collapseToStart()
						oCur.goRight(5,true)
						'ein einzelnes Querverweis-Objekt bereitstellen
						oQuerverweis = ofbDoc.createInstance("com.sun.star.text.textfield.GetReference")
						oQuerverweis.ReferenceFieldSource = com.sun.star.text.ReferenceFieldSource.REFERENCE_MARK
						oQuerverweis.ReferenceFieldPart = com.sun.star.text.ReferenceFieldPart.TEXT
						oQuerverweis.SequenceNumber = 0
						oQuerverweis.SourceName = right(aktWort,4)
						oQuerverweis.CurrentPresentation = aktWort
						oText.insertTextContent(oCur, oQuerverweis, true)
					else
						'Sprungzieltest nicht bestanden
					end if
				else
					'Formatvorgabe nicht erfüllt
				end if
			end if
			aktGefunden = ofbDoc.findNext(aktGefunden.End, oSuche)
		loop
		ofbDoc.store()
end sub

function SprungzieleTest(aktName as string) as boolean
	REM Querverweise benötigen reale Sprungziele
	'private ofbDoc as object
	dim oZiele as object 'alle Sprungziele
	dim nn()
	dim j as long
	oZiele = ofbDoc.getReferencemarks()
	nn = oZiele.ElementNames 'Array der Elementnamen
	j = 0
	SprungzieleTest = false
	for j = Lbound(nn()) to Ubound(nn())
		if nn(j) = aktName then SprungzieleTest = true
		if SprungzieleTest = true then exit for
	next
end function

Code: Alles auswählen

If akt_absatz.ParaStyleName <> "DeineÜberschriftenvorlage" Then

Code: Alles auswählen

If akt_absatz.ParaStyleName = "DeineÜberschriftenvorlage" Then

Code: Alles auswählen

cur = ThisComponent.text.createTextCursor

absaetze = ThisComponent.Text.createEnumeration()
Do While absaetze.hasMoreElements()
	akt_absatz = absaetze.nextElement()
	If akt_absatz.ParaStyleName <> "DeineÜberschriftenvorlage" Then
		a_index = a_index + 1
		oBookmark = tc.createInstance("com.sun.star.text.Bookmark")
		cur.gotoRange(akt_absatz.getAnchor, False)
		oBookmark.setName("xyz-" & a_index & "_" & cur.String)
		tc.Text.insertTextContent(cur, oBookmark, False)
	End If
Loop

Code: Alles auswählen

tc = ThisComponent
oField = tc.createInstance("com.sun.star.text.textfield.GetReference")
oField.ReferenceFieldPart = com.sun.star.text.ReferenceFieldPart.PAGE
oField.ReferenceFieldSource = com.sun.star.text.ReferenceFieldSource.BOOKMARK
oField.SourceName = "Der Name der gewünschten Textmarke"
tc.text.insertTextContent(curx, oField, True)