Wörter Finden und anders Formatieren?

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: Wörter Finden und anders Formatieren?

Re: Wörter Finden und anders Formatieren?

von daswaldhorn » 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

Wörter Finden und anders Formatieren?

von MikeRo » 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 :P ^^

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

Nach oben