Hahner_Microsoft-Word-2010---Das-Ideenbuch_ISBN_9783866457980

Excel-Tabelle: Daten aus den Fragebogen auslesen
Dann wird das Objekt für das Datei öffnen-Dialogfeld angelegt und schließlich mit
der With-Anweisung sowie dem Setzen des Dateityps (.Filters) und dem Dialogfeldtitel
(.Title) konfiguriert. Mit .Show wird das Dialogfeld schließlich angezeigt.
Jetzt lassen sich in dem Dialogfeld eine oder mehrere Word-Dateien auswählen, die
anschließend am Stück verarbeitet werden. War die Anzahl der gewählten Dateien
größer null, beginnt in einer Schleife das eigentliche Verarbeiten der Dateien:
Set ofdDateiDialog = Application.FileDialog(msoFileDialogFilePicker)
With ofdDateiDialog
.Filters.Add "Microsoft Word-Dokument", "*.docx"
.Title = "Bitte wählen Sie die Word-Fragebogen aus:"
.Show
If .SelectedItems.Count > 0 Then
For intDateiZähler = 1 To .SelectedItems.Count
...
Next intDateiZähler
End If
End With
Innerhalb der Schleife wird zuerst das jeweilige Word-Dokument geöffnet:
Set docDocument = wrdWordApplication.Documents.Open(.SelectedItems(intDateiZähler))
Anschließend prüft die Routine alle benutzerdefinierten XML-Datenquellen. Wird
eine passende Datenquelle gefunden, merkt sich die For-Each-Schleife die gefundene
Datenquelle in der Variablen nxmlXMLNode und beendet die Schleife.
For Each cxmlCustomXML In docDocument.CustomXMLParts
If cxmlCustomXML.BuiltIn = False Then
Set nxmlXMLNode = cxmlCustomXML.SelectSingleNode(cXMLRootKnoten)
If Not nxmlXMLNode Is Nothing Then
Exit For
End If
End If
Next cxmlCustomXML
Die folgenden Kommandos werden nur durchlaufen, wenn eine passende Datenquelle
in der Word-Datei gefunden wurde. Dieser Mechanismus stellt sicher, dass auch nur
Word-Dokumente »verarbeitet« werden, die die gewünschten Formulardaten enthalten.
Zum Auslesen der Daten aus der Word-Datei dient die Routine pDatenAusDenXMLKnotenAuslesen,
der als Parameter ein Verweis auf die XML-Datenquelle übergeben wird. Die
Routine pNotenAuswerten wertet anschließend die Kontrollkästchen bei den Notenabfragen
aus und die Routine pAusgeleseneDatenInExcelEinfügen fügt zu guter Letzt die Daten auf
dem Excel-Arbeitsblatt an der richtigen Stelle ein:
If Not cxmlCustomXML Is Nothing Then
pDatenAusDenXMLKnotenAuslesen cxmlvCustomXML:=cxmlCustomXML
pNotenAuswerten
pAusgeleseneDatenInExcelEinfügen
189