Sub DMISuiteTaskSchedulerDataBaseConnections()
Dim Bookmark As Variant
Dim BookmarkNumber As Integer
WebService = "xxx"
strPath = "xxx"
strDest = "xxx"
Set DMIService = New DMIService
Set oXML = CreateObject("msxml2.DOMDocument.4.0")
oXML.LoadXML DMIService.execute(WebService, "DatabaseSettings", "ApplicationSoap", "")
Set Node = oXML.SelectSingleNode("DatabaseSettings")
Set AppWD = CreateObject("Word.Application")
AppWD.Visible = True
Dim Appdoc As Object
Set Appdoc = AppWD.Documents.Add(strPath)
werte = Array( _
"Server", _
"Database", _
"User")
BookmarkNumber = 0
For Each wert In werte
BookmarkNumber = BookmarkNumber + 1
Bookmark = "DBConn" & BookmarkNumber & ""
Appdoc.Bookmarks(Bookmark).Range.Text = Node.Attributes.getNamedItem("" & wert & "").Text
Next wert
Appdoc = Kopfzeile(Appdoc, UserForm1.AenderungsIDE, UserForm1.BetriebE, UserForm1.BauE)
End Sub
Und hier die Funktion die ich Aufrufe:
Public Function Kopfzeile(ByRef doc As Word.Document, AenderungsID As String, Betrieb As String, BauE As String) As Word.Document
With doc
doc.Activate
Dim bmrange As Range
Set bmrange = ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.Bookmarks("Aenderung").Range
ActiveDocument.Bookmarks.Add Name:="Aenderung", Range:=bmrange
End With
End Function