Hahner_Microsoft-Word-2010---Das-Ideenbuch_ISBN_9783866457980

Kapitel 6
Endlich verstehen sich Word und Excel: Fragebogen erfassen und auswerten
Zu guter Letzt fehlen noch drei Variablen für die »Notenvergabe« bei der Bedienung
des Menübands, der Tabellenfunktionen von Excel und der Gestaltungsfunktionen von
Word. Die Noten werden später auf Basis der gewählten Kontrollkästchen bei den Fragen
mit den sechs verschiedenen Antwortmöglichkeiten gesetzt (ebenfalls mit Präfix
»g«).
Public gintNoteMenüband As Integer
Public gintNoteExcel As Integer
Public gintNoteWord As Integer
Routine zum Ermitteln der Word-Fragebogen und dem Auslesen der
XML-Strukturen
Der Deklarationsteil ist erfolgreich abgeschlossen, weiter geht es mit der Routine zum
Auslesen der XML-Strukturen. Am Anfang der Routine werden die entsprechenden
Variablen und Objekte für den Zugriff auf das Word-Objekt definiert:
Sub pDatenAusFormularenUebernehmen()
Dim wrdWordApplication As Word.Application
Dim docDocument As Word.Document
Dim cxmlCustomXML As Office.CustomXMLPart
Dim nxmlXMLNode As Office.CustomXMLNode
Dim ofdDateiDialog As Office.FileDialog
Dim intDateiZähler As Integer
Damit Excel auf das Word-Objekt zugreifen kann, müssen Sie im VBA-Editor über
Extras/Verweise im Dialogfeld Verweise – VBAProject den Eintrag Microsoft Word 14.0
Object Library aktivieren.
Abbildung 6.5 Für den Zugriff auf Word müssen Sie den Verweis auf die Word-Objektbibliothek setzen
Weiter geht es mithilfe des Kommandos CreateObject mit dem Anlegen einer Word-Instanz:
Set wrdWordApplication = CreateObject("Word.Application")
188