Suchen - Ersetzen: Wort-Zwischenraum

[Delabarquera]

Hallo!

Ich möchte das Folgende erreichen: In längeren Texten werden bestimmte Stichwörter, den Finger auf der STRG-Taste, mit einem Doppelklick markiert, dann geschlossen als fett markiert. Dann möchte ich mit Alle Suchen diese Stichwörter suchen, sie kopieren, und als Liste unter den jeweiligen Text setzen. Das geht alles prima, nur: Die Stichwörter stehen dann ohne Zwischenräume, als lange Schlange aneinandergeklebt da. Natürlich könnte ich die Stichwörter einzeln so markieren, dass auch das nachfolgende Spatium, der Zwischenraum, mit markiert ist, aber das kostet bei längeren Texten ziemlich viel Zeit.

Frage: Sieht jemand irgend einen Weg, wie man, so wie beschrieben, zeitsparend mit Doppelklick markieren, dann kopieren kann und dann doch eine Liste bekommt, bei der die Wörter irgendwie getrennt sind?

Dank schon hier und Grüße! D.

[lorbass]

So kannst du ein wenig Deiner Zeit sparen:

• Suchen & Ersetzen [Strg]+[F] in deinem Dokument:
  Suchen nach .*
  Format Fett
  Ersetzen durch &###
  Format Fett
  Ersetze alle
• Aus dem Suchen & Ersetzen-Dialog in dein Dokument wechseln
  (Die ersetzen Textstellen sind noch markiert!)
• kopieren [Strg]+[C]
• in einem neuen (Dummy-)Dokument: Einfügen [Strg]+[V]
• Suchen & Ersetzen [Strg]+[F] im neuen(Dummy-)Dokument:
  Suchen nach ###
  Ersetzen durch \n
  [X] Regulärer Ausdruck
  Ersetze alle
• Jetzt noch die ### aus wieder deinem Dokument löschen (Das überlasse ich dir als Hausaufgabe )

Gruß
lorbass

[Delabarquera]

Großen Dank! Sieht schon mal prima aus. Ich werd es gleich ausprobieren. Und was die Hausaufgabe angeht: Da bin ich eigentlich ganz fleißig. D.

[turtle47]

Hallo,,

wenn Du das öffters machen musst, dann könnte folgendes Makro Dein Freund werden:

Code: Alles auswählen

Sub List_Bold()
Dim oDoc As Object
Dim Enum1 As Object, Enum2 As Object
Dim TextElement As Object, TextPortion As Object

oDoc = ThisComponent
Enum1 = oDoc.Text.createEnumeration

	' Schleife über alle Absätze
	While Enum1.hasMoreElements
	   TextElement = Enum1.nextElement
	   If TextElement.supportsService("com.sun.star.text.Paragraph") Then
	      Enum2 = TextElement.createEnumeration
	
	      ' Schleife über alle Absatzteile
	      While Enum2.hasMoreElements
	         TextPortion = Enum2.nextElement
	        
	         If TextPortion.CharWeight = com.sun.star.awt.FontWeight.BOLD THEN
	          s = s & "," & TextPortion.string 
	         End If
	      Wend
	
	
	   End If
	Wend
	
	s = split(s,",")
	oText = oDoc.Text
	oVC = oDoc.CurrentController.getViewCursor
	oVC.jumpToEndOfPage(False)
	oTC = oDoc.Text.createTextCursorByRange(oVC)	
	oTC.gotoRange(oVC,true)	
	for z =  lBound(s) to ubound(s)
	otext.insertString(oTC, s(z)& CHR(13),false)		
	next z
End Sub

Viel Erfolg.

Jürgen