Mit Word können Sie Stile erstellen, um zu definieren, wie der Text in Ihrem Dokument angezeigt werden soll. Neben einer vollständigen Liste der integrierten Stile können Sie in Word beliebige benutzerdefinierte Stile erstellen. Sie können später ein Stylesheet für Ihr Dokument drucken, wie in anderen Ausgaben von WordTips beschrieben.

Was ist, wenn Sie nur eine Liste mit benutzerdefinierten Stilen wünschen? Word enthält keine Funktion, mit der Sie unterscheiden können, welche Stile in einem Stylesheet-Ausdruck enthalten sind. Wenn Sie eine Liste der in einem Dokument verwendeten benutzerdefinierten Stile wünschen, können Sie mithilfe eines Makros einen erstellen. Das folgende Makro durchläuft alle Stile und erstellt eine Liste derjenigen, die beide Kriterien erfüllen (benutzerdefiniert und verwendet): Sie können auch die ActivePrinter-Eigenschaft

lesen

Sub PrintCustomStyles()

Dim docThis As Document     Dim styItem As Style     Dim sUserDef(499) As String     Dim iStyleCount As Integer     Dim J As Integer

' Ref the active document     Set docThis = ActiveDocument

iStyleCount = 0     For Each styItem In docThis.Styles         'see if being used         If styItem.InUse Then             'make sure not built in             If Not styItem.BuiltIn Then                 iStyleCount = iStyleCount + 1                 sUserDef(iStyleCount) = styItem.NameLocal             End If         End If     Next styItem

If iStyleCount > 0 Then         ' Create the output document         Documents.Add

Selection.TypeText "User-defined Styles In Use"

Selection.TypeParagraph         For J = 1 To iStyleCount             Selection.TypeText sUserDef(J)

Selection.TypeParagraph         Next J         Selection.TypeParagraph         Selection.TypeParagraph     Else         MsgBox "No custom styles in use."

End If End Sub

Denken Sie daran, dass es einen Unterschied zwischen „benutzerdefinierten Stilen“ und „benutzerdefinierten Stilen“ gibt. (Ein integrierter Stil kann ein benutzerdefinierter Stil sein, wenn Sie die Standardeigenschaften des Stils ändern.) Dieses Makro druckt eine Liste benutzerdefinierter Stile. Die Stile, die Word als integriert betrachtet, werden vollständig ignoriert.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der WordTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

WordTips ist Ihre Quelle für kostengünstige Microsoft Word-Schulungen.

(Microsoft Word ist die beliebteste Textverarbeitungssoftware der Welt.) Dieser Tipp (8339) gilt für Microsoft Word 2007, 2010 und 2013.

Eine Version dieses Tipps für die ältere Menüoberfläche von Word finden Sie hier: