OpenOffice.info

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 

Hallo Zusammen,

[quote="Thomas Waschke"]ich habe das Beispiel auch aus dem Handbuch kopiert:[/quote]
Hier die [url=http://www.ediaudit.com/doc_sol10/Solaris_10_Doc/common/SUNWdesodoc/reloc/sun_docs/de/solaris_10/SUNWdesodoc/SO7BPG/part_6.html#115]Onlineversion[/url] des Handbuches.

Folgender Code sollte funktionieren:
[code]
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
[/code]

Jürgen

[quote="Thomas Waschke"]was genau ist da falsch?[/quote]

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


Tipp: debugge Deinen Code mit [url=http://www.ooomacros.org/dev.php#101416]XRay[/url]

Das liegt an Deinem [color=#008000]SearchDescriptor[/color], 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: [url=http://www.re-solutions.de/ooo/makros/writer_FuellwortListe.odt]Füllwort-Liste[/url]
[quote="Füllwort-Liste"]Markieren von Worten, die in einer Kontrollliste aufgeführt sind, im aktuellen Writer-Dokument.[/quote]

Kommst Du damit weiter?

Füge bitte die Zeilen des Codes hinzu, die [color=#008000]Doc[/color] erzeugen/ laden, sowie die Stelle die [color=#008000]SearchDesc[/color] setzen.

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