Text suchen und in Datei schreiben

[komma4]

Füge bitte die Zeilen des Codes hinzu, die Doc erzeugen/ laden, sowie die Stelle die SearchDesc setzen.

Ich habe nämlich gar kein Handbuch, in welchem in nachschauen könnte, was da gemacht wird und falsch laufen könnte. Danke!

[komma4]

Das liegt an Deinem SearchDescriptor, genauer: an der Ähnlichkeitssuche.


Auch weiss ich noch immer nicht, welches "Handbuch" Du meinst: nach meinem Download habe ich kein Buch auf dem Server gefunden


Funktionierenden Code, der in Writer suchst, markiert und zählt findest Du in meinem Beispiel: Füllwort-Liste

Markieren von Worten, die in einer Kontrollliste aufgeführt sind, im aktuellen Writer-Dokument.

Kommst Du damit weiter?

[komma4]

was genau ist da falsch?

Der Funktionsaufruf createSearchDescriptor erstellt eines von zwei möglichen Rückgabe-Objekten.
In Deinem Fall erhälst Du einen TextCursor, nicht das Searchable-Objekt, welches zum Found.Next() verwendet werden kann.


Tipp: debugge Deinen Code mit XRay

[turtle47]

Hallo Zusammen,

ich habe das Beispiel auch aus dem Handbuch kopiert:

Hier die Onlineversion des Handbuches.

Folgender Code sollte funktionieren:

Code: Alles auswählen

Sub Main_Replace
Dim oReplaceDesc As Object
Dim Doc As Object
Dim oFoundCursor As Object
	Doc = thisComponent
	oReplaceDesc = Doc.createReplaceDescriptor
	oReplaceDesc.SearchString="Umsatz"
	oReplaceDesc.SearchSimilarity = True
	oReplaceDesc.SearchSimilarityAdd = 2
	oReplaceDesc.SearchSimilarityExchange = 2
	oReplaceDesc.SearchSimilarityRemove = 2
	oReplaceDesc.SearchSimilarityRelax = False
	Found = Doc.findFirst (oReplaceDesc)
	While not IsNull(Found)
	oFoundCursor = Found.Text.createTextCursorByRange(Found)
	Found.CharWeight = com.sun.star.awt.FontWeight.BOLD
	Found = Doc.findNext( Found.End, oReplaceDesc)
	wend
End Sub 

Jürgen