OpenOffice.info

Code: Alles auswählen

enumTextFields = thisComponent.TextFields.createEnumeration
Do While enumTextFields.hasMoreElements
  thisTextField = enumTextFields.NextElement
  If thisTextField.supportsService("com.sun.star.text.textfield.JumpEdit") Then
    'REM Platzhalter gefunden
  End If
Loop
Loop

Code: Alles auswählen

Sub AB_FK_AdressdatenEinfuegen

	globalScope.BasicLibraries.loadLibrary("Tools")  
	dim aPlatzhalter() 'LIste der Platzhalter
	aPlatzhalter = array("<$Adressdaten1$>")
	dim aInhalt(uBound(aPlatzhalter))		'Liste der zu ersetzenden Texte
rem---DB Abfrage der Adressdaten

Call AB_FK_SQL
   		
	   		oStatement = oCon.createStatement()
    	  	oResult = oStatement.executeQuery(AB_SQL_Adresskopf)
           
   	   	IF NOT ISNULL(oResult) THEN
   			Do while oResult.Next
	       
		
		VAR_Abfragedaten = 	oResult.getString(1) & chr(10) &_
							oResult.getString(2) & chr(10 &_
							oResult.getString(3) & chr(10) &_
							oResult.getString(4) 

 		Loop		   		
		   		
		End If	

	aInhalt(0) = VAR_Abfragedaten
	REM Eintragen der Inhalte
	for i = 0 to uBound(aPlatzhalter())
		AB_FK_trageEin(oDoc, aInhalt(i), aPlatzhalter(i)
	next
	
End Sub

Code: Alles auswählen

Sub AB_FK_trageEin(oDoc as object, sNeuTxt as string, sPlatzhalter as string)

	oSuche = oDoc.createReplaceDescriptor()
	with oSuche
		.setSearchString(sPlatzhalter)
		.setReplaceString(sNeuTxt)
	end with
	oDoc.replaceAll(oSuche)

End Sub