OpenOffice.info

Verfasst: **Do, 14.07.2011 15:05**

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

Verfasst: **Do, 14.07.2011 17:26**

Hallo Mike,

MikeRo hat geschrieben: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

OpenOffice.info

Wörter Finden und anders Formatieren?

Wörter Finden und anders Formatieren?

Re: Wörter Finden und anders Formatieren?