Hallo
Habe hier ein Problem und komme einfach nicht weiter. Der Eine oder Andere wird mir sicher helfen können!
Die Fakten:
blablup.dot in einem Verzeichniss auf einer lokalen Platte.
test.vbs auf dem Desktop mit folgendem Inhalt:
Dim objWord ' Word.Application
Dim objDoc ' Word.Document
Const ksTemplate = "C:\blablup.dot"
Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Add(ksTemplate)
'objWord.Documents.Add (ksTemplate)
fFillBookmark "Name", "Mustermann", True ', wenn Textmarke erhalten bleiben soll
'fFillBookmark "Name", "etwa aus mehreren Access-Formularfeldern zusammengebastelteter String"
'usw., wobei natürlich gerade für die Anschrift 1 Textmarke reicht und der String zuvor zusammengebastelt wird
objWord.Visible = True
Set objDoc = Nothing
Set objWord = Nothing
Function fFillBookmark(sName, vValue, bHold)
Dim objRange ' Word.Range
With objDoc
A = .Bookmarks.Exists(sName)
If A Then
Set objRange = .Bookmarks(sName).Range
.Bookmarks(sName).Range.Text = vValue
If bHold Then
objRange.End = objRange.Start + Len(vValue)
.Bookmarks.Add sName, objRange
End If
Else
' Fehlermeldung?
End If
End With
End Function
Code ist aus diesem Forum von Uli M
So, bis zu dem Punkt .Bookmarks(sName).Range.Text = vValue ist alles OK
Und dann kommt die Fehlermeldung - Diese Methode oder Eigenschaftist nicht verfügbar, weil das Objekt auf einem geschützten Dokumentenbereich verweist.-
Code 800A11FD
Habe auch schon den Dokumentenschutz entfernt, aber auch das hat nicht gebracht!
Vieleicht habt Ihr ja ne Idee!
Danke schon mal im Voraus
Christoph
Uli M
