MS word CustomDocumentProperties

følgende kode kigger efter et element : "o:CustomDocumentProperties" i filen c:\test.xml og udskriver under elementet Ver.

vb script:

<script type='text/vbscript'>

// Hent XMLDOM på c:\test.xml (skift denne)
set xmlDoc=CreateObject("Microsoft.XMLDOM")
xmlDoc.async="false"
xmlDoc.load("c:\\test.xml")

Set objDoc = xmlDoc.documentElement
Set objNodes = objDoc.getElementsByTagName("o:CustomDocumentProperties").item(0).childNodes

// Versions variabel
strVer=""
for each node in objNodes
    if node.baseName = "Ver" Then
        strVer = node.text
    End if
next

// Udskriv variabel
document.write("Ver = ")
document.write(strVer)
</script>

Synes at få følgende fejl :


et object er obligatorisk.: 'objdoc'

stejler over denne linie:

Set objNodes = objDoc.getElementsByTagName("o:CustomDocumentProperties").item(0).childNodes

Hvad kan der være galt ?

det kan være:
1) variabler er case sensitive => der skal stå objDoc (bemærk store/små bogstaver)
2) filen c:\test.xml findes ikke (husk dobbelt backslash i koden)
3) du har ikke XMLDOM (mener den ligger i c:\windows\system32\msxml.dll
4) filen der er gemt som test.xml er ikke tilladt XML (husk at gemme dokumentet som xml i word)