Raj fragt sich, ob Stile in einem Word-Makro gespeichert und später im Rahmen einer „Überprüfung der Integrität“ ausgeführt werden können, um sicherzustellen, dass nur die Vorlagenstile auf ein Dokument und nichts anderes angewendet werden.

Die Antwort auf diese Frage ist tatsächlich viel komplizierter, als Sie vielleicht vermuten. Wenn Raj den Benutzer daran hindern möchte, Stile entweder direkt (durch Erstellen neuer Stile) oder indirekt (durch Kopieren und Einfügen aus anderen Quellen) hinzuzufügen, können Sie tatsächlich verschiedene Dinge ausprobieren, darunter einige Makros. Diese wurden in der folgenden WordTip behandelt:

http://wordribbon.tips.net/T012698

Abgesehen davon, was in diesem Tipp behandelt wird, ist es eine relativ einfache Aufgabe, zu überprüfen, ob sich die in einem Dokument verwendeten Stile in einer „genehmigten Liste“ von Stilen befinden. Die Namen von Stilen können einfach in einem Zeichenfolgenarray gespeichert und dann mit den Stilen verglichen werden, die auf jeden Absatz in einem Dokument angewendet werden. Sie können die Absätze in einem Dokument durchgehen und anhand einer ähnlichen Struktur prüfen, ob die Stile in der genehmigten Liste enthalten sind:

sTemp = ""

For Each p In ActiveDocument.Content.Paragraphs     sPStyle = p.Style     bNotFound = True     For J = 1 To iNumValid         If sPStyle = sValidStyles(J) Then bNotFound = False     Next J     If bNotFound Then         sTemp = sTemp & sPStyle & vbCrLf     End If Next p

Dieses Beispiel ist einfach ein Code-Snippet. Ihr vollständiges Makro müsste ein String-Array (sValidStyles) einrichten, das alle gültigen Stilnamen zusammen mit iNumValid enthält, dh der Anzahl der Array-Elemente. Wenn das Snippet vollständig ist, enthält die Variable sTemp die Namen aller im Dokument verwendeten Stile, die nicht im Array sValidStyles enthalten sind. (Wenn ein ungültiger Stil mehr als einmal im Dokument angezeigt wird, wird er mehrmals in sTemp angezeigt.)

Wenn Sie nach einem Makro suchen, das tatsächlich eine „Überprüfung der Integrität“ durchführt, um festzustellen, ob ein Stil geändert wurde, ist das Problem astronomisch komplexer. Stile können Partituren oder Hunderte von möglichen Einstellungen haben, und das Speichern jeder dieser Einstellungen für jeden gültigen Stil wäre ein Albtraum. In dieser Situation ist es besser, die schutzbasierten Ansätze zu verwenden, die in dem oben verlinkten Tipp beschrieben sind.

_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.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

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

(Microsoft Word ist die weltweit beliebteste Textverarbeitungssoftware.) Dieser Tipp (12959) gilt für Microsoft Word 2007, 2010, 2013, 2016, 2019 und Word in Office 365.