> 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]