LibreOffice-Forum

Hallo,

Das zu lösende Problem ist, mit Makro für alle Absatzvorlagen mit "Arial Black" den Schriftstil auf "Standard" zu setzen.
(Mit Schriftstilen meine ich dann hier z.B.: Standard, Fett, Fett Kursiv, etc.)

Absatzvorlagen mit "Arial Black" rauszusuchen habe ich schon:

Code: Alles auswählen

	ParagraphStyles = ThisComponent.getStyleFamilies.getbyName("ParagraphStyles") REM Absatzvorlagen
	ParagraphArray = ParagraphStyles.getElementNames
	ParagraphCount = ParagraphStyles.getCount
	for i = 0 to ParagraphStyles.getCount-1
		Style = ParagraphStyles.getbyName(ParagraphArray(i))
		If Style.CharFontName = "Arial Black" Then
			REM MsgBox(ParagraphArray(i))
		End If
	Next i

Jedoch finde ich mit xray keine Property von diesen Stilvorlagen. Ich hatte "CharFontStyleName" in Betracht, wenn ich dort jedoch z.B. "Standard" setze ist im FrontEnd immernoch "Fett Kursiv" gesetzt.

Grüße,
HashWorks

Hi,
ich denke so funktioniert es:

Code: Alles auswählen

Sub Reset_Styles
   oStyleFamilies = ThisComponent.StyleFamilies
   oParagraphStyles = oStyleFamilies.ParagraphStyles 'Absatzvorlagen
   for i = 0 to oParagraphStyles.Count-1
       Style = oParagraphStyles(i)
       If Style.CharFontName = "Arial Black" Then
           with Style
               .CharPosture = com.sun.star.awt.FontSlant.NONE 'war .ITALIC (kursiv)
               .CharWeight = 100 'war 150 (fett)
           end with
       End If
   Next i
End Sub

Gruß R

Super, danke.
Funktioniert wunderbar

LibreOffice-Forum

[StarBasic][Gelöst] Schriftstil einer Absatzvorlage ändern

[StarBasic][Gelöst] Schriftstil einer Absatzvorlage ändern

Re: [StarBasic] Schriftstil einer Absatzvorlage ändern

Re: [StarBasic] Schriftstil einer Absatzvorlage ändern