Word 2007 AddIn mit VSTO: Farbschema abfragen

Question

Hallo zusammen.

Ich bin jetzt schon sehr lange auf der Suche nach einer Möglichkeit, das in den Word-Optionen eingestellte Farbschema abzufragen.

Leider habe ich weder im Namespace Ofiice noch im Namespace Word irgendetwas gefunden, wovon man sagen könnte: Ah, das ist es bestimmt. Und das Aufzeichnen eines Makros in Word hinterläßt auch kein Code-Fragment.

Bitte, kann mir jemand den korrekten Code nennen, sofern es ihn denn gibt?

 

Vielen Dank für Eure Hilfe

VG

Carsten

Answer 1

Hallo Carsten,

Word 2007 verwendet die sogenannten Themen um Farben, Schriftarten usw für ein Dokument zu bestimmen. Das aktuelle Farbethema eines Dokumentes kann man mit ActiveDocument.DocumentTheme.ThemeColorScheme abfragen.

 ThemeColorScheme Object Members

 

Grüße,

Bogdan

---

Ich bin gerne bei den Foren. Es kommt von Herzen. Es wird aber keine implizite oder sonstige Garantie für die geposteten Antworte / Informationen gewährt. Hier auch die Forenregeln.

Answer 2

Hallo Carsten,

noch etwas. Das akteulle Thema für Word kann man von der Normal.dotm abfragen:

Application.Templates(1).OpenAsDocument.DocumentTheme.ThemeColorScheme

VG

Bogdan

---

Ich bin gerne bei den Foren. Es kommt von Herzen. Es wird aber keine implizite oder sonstige Garantie für die geposteten Antworte / Informationen gewährt. Hier auch die Forenregeln.

Answer 3

Hallo Bogdan.

Vielen Dank für Deine Antwort.

Leider fehlt mir momentan noch der Durchblick. Ich habe mit dem ThemeColorScheme herumexperimentiert und mir die ganze Geschichte ach im Objekt-Katalog angesehen, aber ich komme einfach nicht weiter.

Was ich versuche, ist : Ich schreibe mit Visual Studio 2010 ein AddIn für Word. Ich habe dem Projekt einen Ribbon hinzugefügt. Auf dem Ribbon befindet sich ein RibbonTab, der eine RibbonGroup mit DialogLauncher enthält. Bei Klick auf den DialogLauncher wird ein Formular angezeigt, dessen Erscheinungsbild ich beim Laden gerne automatisch an das Farbschema von Office 2007 anpassen möchte (Blau, Silber oder Schwarz). Ich hatte insgeheim gehofft, es gäbe da eine Enumeration, aus der man das aktuelle Farbschema auslesen könnte, um dann Code in folgender (erfundener) Syntax schreiben zu können:

Dim Schema As Integer = Office.SelectedColorScheme

Mit ThemeColorScheme komme ich momentan irgendwie nicht weiter. Hast Du da noch weitere Hinweise oder Code für mich?

VG

Carsten

Answer 4

Hallo Carsten,

Diese Farbschema (Blau / Silber / Schwarz) wird in Registry gespeichert:

Blau:

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\Common]
"Theme"=dword:00000001

Silber:

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\Common]
"Theme"=dword:00000002

Schwarz:

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\Common]
"Theme"=dword:00000003

Grüße,

Bogdan

---

Ich bin gerne bei den Foren. Es kommt von Herzen. Es wird aber keine implizite oder sonstige Garantie für die geposteten Antworte / Informationen gewährt. Hier auch die Forenregeln.

Answer 5

Hallo Bogdan.

Vielen Dank für Deine Hilfe.

Ich hoffe, ich komme damit klar :-)

VG

Carsten

Answer 6

Hallo Bogdan.

Dieses hier als Feedback und ganz dickes Dankeschön. Ich habe es tatsächlich hinbekommen mit dieser Registry-Geschichte. Das war es, was ich gesucht habe.

Vielen, vielen Dank!!!

VG

Carsten