Drucken einer Liste benutzerdefinierter Stile (Microsoft Word)
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: