Hallo,
J�rg Schmidt schrieb:
> > Da ich nach einer pr�gnanten Anleitung f�r die Tippsammlung suche,
> > m�sste ich den Lesern angeben, wie sie (auf einfache und schnelle
> > Weise) die englischsprachigen Entsprechungen ermitteln.
>
> na mittels Makro:
>
> Sub Macro1
> xxx = ThisComponent.StyleFamilies.getByName("ParagraphStyles")
> For i = 0 to xxx.Count-1
> 'b = b & xxx.GetByIndex(i).Name & CHR(13)
> b = b & xxx.GetByIndex(i).Name & " - "
> Next i
> msgbox b
> End Sub
Da mir hinterher einf�llt was wohl die n�chste Frage ist, hier ist schon
mal die Antwort auf "Wie schreibe ich das �bersichtlich?". Erzeuge ein
leeres Dokument und la� folgendes Makro laufen:
Sub test
xxx = ThisComponent.StyleFamilies.getByName("ParagraphStyles")
cursor = ThisComponent.text.CreateTextCursor
cursor.GotoStart(False)
For i = 0 to xxx.Count-1
Cursor.String = xxx.GetByIndex(i).Name & " (" &
xxx.GetByIndex(i).DisplayName & ")"
Cursor.GotoEndofParagraph(False)
ThisComponent.Text.insertControlCharacter(Cursor,
com.sun.star.text.ControlCharacter.PARAGRAPH_BREAK, False)
Next i
End sub
Gru�
J�rg
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
