Wörter Finden und anders Formatieren?

[MikeRo]

Irgendwie komme ich nicht weiter, es ist bestimmt wieder eine total simple Sache, aber die sind ja immer die schwierigsten ^^

Ich will nach bestimmten Wörtern suchen und diese Fett drucken und Farbig machen. Ich habe einen Ansatz, aber komme nicht weiter.

Code: Alles auswählen

oSearchDescriptor = oSheet.createSearchDescriptor
oSearchDescriptor.SearchString = "[DB]"
oFound = oSheet.FindAll( oSearchDescriptor )
If Not isNull(oFound) Then

[Wie bewerkstellige ich es jetzt, das alle gefundenen "Wörter" (in einem Satz) Rot und Fett gedruckt formatiert werden?]

End If

[daswaldhorn]

Hallo Mike,

Ich will nach bestimmten Wörtern suchen und diese Fett drucken und Farbig machen. Ich habe einen Ansatz, aber komme nicht weiter.

du musst dich einzeln durch die Fundstellen durcharbeiten, so zum Beispiel:

Code: Alles auswählen

Sub forum_suche
oSheet = ThisComponent
oSearchDescriptor = oSheet.createSearchDescriptor
oSearchDescriptor.SearchString = "[DB]"
oFound = oSheet.Findfirst( oSearchDescriptor )
Do While Not isNull(oFound)
  oFound.CharWeight = 200
  oFound.CharColor = RGB(255,0,0)
  oFound = oSheet.findnext(oFound.End, oSearchDescriptor)
Loop
End Sub

Gruß, Carsten