LibreOffice-Forum

Code: Alles auswählen

REM  *****  BASIC  *****


Sub RegExSuchenErsetzen
Dim oDoc as Object
Dim oCC as Object
Dim oReplace as Object
Dim oSel as Object
Dim mSuche as Variant
Dim mErsetzen as Variant
Dim nCnt as Long

REM Suchen und Ersetzen per Array-Inhalt
REM Die Arrays müssen unbedingt die gleiche Anzahl von Feldern besitzen!!!
REM 
REM Der Zähler eines Arrays beginnt bei 0
REM Es ist darauf zu achten, dass bei nachfolgendem Code, die
REM "Suchfelder" den gleichen Index haben, wie die Ersetzungsfelder:
REM mSuche(0) = mErsetzen(0)
REM mSuche(1) = mErsetzen(1)
REM D.h. im Folgeschluß wird das "A" durch "1" ersetzt.
REM "B" wird durch "2" ersetzt.

REM Hier die Zeichen eintragen die gesucht werden sollen
mSuche = Array("A","B","C","D")

REM Hier die Zeichen eintragen die ersetzt werden sollen
mErsetzen = Array("1","2","3","4")
 	
 	' Referenz auf aktuelles Dokument setzen
	oDoc =thiscomponent
		' Controller Referenz
		oCC=oDoc.getCurrentcontroller()
		
'			' OPTIONAL markierter Bereich
'			oSel=oDoc.getCurrentSelection

	' Text des Dokuments in Variable
	sStr=oDoc.getText().String  
	
	' Referanz des Suchen- und Ersetzen-Objektes
	 oReplace = oDoc.createSearchDescriptor()

' MRI Codeinspektor 
'mri oReplace  

REM .....................................................................................................
REM Such- und Ersetzungsschleife von Arrayfeld (min) bis Arrayfeld (max)
	For nCnt = lBound(mSuche()) to uBound(mSuche())
	With oReplace
		.SearchAll
		.SearchRegularExpression = False
		.SearchString =mSuche(nCnt)
		.ReplaceString = mErsetzen(nCnt)

	End With
		REM Ersetzung im Dokument
		odoc.replaceAll(oReplace)
		
		REM	oSel.replaceAll(oReplace)
	next 

End Sub

Code: Alles auswählen

' OPTIONAL markierter Bereich
' oSel=oDoc.getCurrentSelection

Code: Alles auswählen

REM	oSel.replaceAll(oReplace)

Code: Alles auswählen

' MRI-Codeinspektor für das Objekt "oReplace"
mri oReplace

Code: Alles auswählen

Option Explicit
Dim oDoc as Objekt
Dim oCC as Object
Dim sTitel as String
	' 1. Ebene || Instanzierung von oDoc
	oDoc = ThisComponent
' mri oDoc

	' 2. Ebene || Instanzierung von oCC
	oCC=oDoc.getCurrentController
' mri oCC

	sTitel=oCC.Title
mri sTitel

	If sTitle ="MeinDokument" then
		Messagebox "Yes: " & sTitle
	Else 
		Messagebox "No: Der Dokumentname lautet: " & sTitle
	End if

Code: Alles auswählen

REM  *****  BASIC  *****

Sub loadLIB
   GlobalScope.BasicLibraries.LoadLibrary("Tools")
	Globalscope.BasicLibraries.LoadLibrary ( "MRILib")
		GlobalScope.BasicLibraries.LoadLibrary("XrayTool")
End Sub

Code: Alles auswählen

BASIC-Laufzeitfehler.
Eigenschaft oder Methode nicht gefunden: replaceAll.