Seite 1 von 1
Re: Text suchen und in Datei schreiben
Verfasst: Fr, 13.06.2008 13:53
von 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!
Re: Text suchen und in Datei schreiben
Verfasst: Fr, 13.06.2008 20:24
von 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
Füllwort-Liste hat geschrieben:Markieren von Worten, die in einer Kontrollliste aufgeführt sind, im aktuellen Writer-Dokument.
Kommst Du damit weiter?
Re: Text suchen und in Datei schreiben
Verfasst: Sa, 14.06.2008 09:24
von komma4
Thomas Waschke hat geschrieben: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
Re: Text suchen und in Datei schreiben
Verfasst: Sa, 14.06.2008 22:07
von turtle47
Hallo Zusammen,
Thomas Waschke hat geschrieben: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