SharePoint, Word, Excel. Auslesen mittels VBA und XML

Hallo zusammen,

ich lese zurzeit in Excel mittels VBA ein Word-Dokument aus, das auf dem SharePoint liegt.

Im Word-Dokument sind Steuerelemente, die - wie hier beschrieben - ausgelesen werden.
Problematisch wird es nun, wenn die Felder direkt mit dem SharePoint verknüpft sind, also auch vom SharePoint aus bearbeitet werden können.
Die meisten Felder wurden direkt im Word-Dokument über die Entwicklertools angelegt, können nur direkt mittels Word bearbeitet werden und stellen kein Problem dar.

Beispiel:
Es sind ein paar Felder als "Schnellbaustein"-> "Dokumenteigenschaft" eingefügt worden. Hinter diesen Schnellbausteinen steckt z. B. eine Drop-Down-Liste, die auf dem SharePoint angelegt wurde.

Bisher greife ich problemlos über XML auf den Inhalt der Felder zu und lass mir den Inhalt in Excel ausgeben. Bei diesen Feldern, die direkt mit dem SharePoint verknüpft sind, funktioniert dies aber nicht. Ich benutze zur Verknüpfung der Felder das Word 2007 Content Control Toolkit. Aufgefallen ist mir, dass bei den Feldern, die durch Schnellbausteine entstanden sind ein "Prefix Mappings" existiert, das bei den anderen Feldern nicht vorhanden ist. Der XPath ist natürlich ebenfalls anders.

Leider weiß ich im Moment nicht wirklich weiter und bin für jede Hilfe dankbar.

Ich hoffe ich konnte das Problem einigermaßen verständlich beschreiben.

Gruß
schwazza


Auslesemethode:

debug.print myXMLPart.OuterXML 

<?xml version="1.0"?> 

-<root>

  <Date1/>
  <Name1/>
  <Rev2/>

</root>

<?xml version="1.0" encoding="UTF-8"?> 

-<p:properties xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:p="http://schemas.microsoft.com/office/2006/metadata/properties"> 

  -<documentManagement>
    <PM_x0020_responsible xmlns="3a9fa6eb-67d4-4345-b293-8463501cd732">false</PM_x0020_responsible> 
    <Country0 xmlns="3a9fa6eb-67d4-4345-b293-8463501cd732">27</Country0> 
    <Active_x002f_Archive xmlns="3a9fa6eb-67d4-4345-b293-8463501cd732">Archive</Active_x002f_Archive> 
    <Project_x0020_name_x0020__x002f__x0020_PSP xmlns="3a9fa6eb-67d4-4345-b293-8463501cd732">Test_ExcelTool</Project_x0020_name_x0020__x002f__x0020_PSP> 
  </documentManagement>

</p:properties>

'......  
    For Each cXML In doc.CustomXMLParts
        If Not cXML.SelectSingleNode("//documentManagement") Is Nothing Then  
            Set nodeProjectName = cXML.SelectSingleNode("//ns2:Project_x0020_name_x0020__x002f__x0020_PSP")  
            If Not nodeProjectName Is Nothing Then
                MsgBox nodeProjectName.Text
            End If
        End If
        If cXML.BuiltIn = False Then
            Set rootNode = cXML.SelectSingleNode("root")  
            If Not rootNode Is Nothing Then
                Set myXMLPart = cXML
                strDatum = myXMLPart.SelectSingleNode("/root/Datum").Text  
                Lo.ListRows(Lo.ListRows.Count).Range(1, 1) = strDatum
            End If
        End If
    Next
'....