Danke, aber nee, das war´s eigentlich nicht. Trotzdem Danke -----Ursprüngliche Nachricht----- Von: news [mailto:[EMAIL PROTECTED] Im Auftrag von Winfried Rohr Gesendet: Mittwoch, 23. Januar 2008 17:45 An: users@de.openoffice.org Betreff: [de-users] Re: "Felder in Text konvertieren" wie in Writer-Handbuch
> jmd. fertig als Macro vorliegen gefunden im engl. Forum ' http://www.oooforum.org/forum/viewtopic.phtml?t=59224 ' JohnV Tue Jul 03, 2007 7:56 pm Sub ReplaceFieldWithTextAndChangeStyle Dim oEnum,thisField,anc oEnum = ThisComponent.getTextFields.createEnumeration While oEnum.hasMoreElements thisField = oEnum.nextElement anc = thisField.getAnchor anc.CharWeight = 200 'Change style to bold. anc.setString(anc.getString)'Change field to text. Wend End Sub Die Zeile mit CharWeight setzt den Text fett: ggfs. auskommentieren mit einem REM am Anfang der Zeile. War das das Gesuchte? Cheers Winfried --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]