OpenOffice.info

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

Hallo,,

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

[code]
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[/code]

Viel Erfolg.

Jürgen

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.

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

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 [b]fett [/b]markiert. Dann möchte ich mit [b]Alle Suchen[/b] 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.