VBA Textmarken in Word
09.01.2019 10:07:03
Markus
Durch folgenden Code versuche ich Textmarken zu befüllen.
Sub test()
Dim AppWord As Object
Dim docTest As Object
Dim Doc_Name As String
Doc_Name = ThisWorkbook.Path & "\Belehrung.docx"
Set AppWord = CreateObject("Word.Application")
Set docTest = AppWord.Documents.Add(Doc_Name)
AppWord.Visible = True
docTest.Activate
docTest.Bookmarks("VornameNachname").Range.Text = ThisWorkbook.Sheets("Hintergrund").Range("B8") _
.Text
Set docTest = Nothing
Set AppWord = Nothing
End Sub
Ich bekomme beim Testen immer den Laufzeitfehler 6124:
"Sie sind nicht berechtigt die Auswahl zu bearbeiten, weil Sie geschützt ist."
Im Word selbst habe ich bei:
Überprüfen/Bearbeitung einschr.
Das Ausfüllen von Formularen zugelassen. Ich vermute das Problem eher bei einer falschen Einstellung in Word, stehe aber komplett auf dem Schlauch.
Bitte um Hilfe.
Danke!
Markus
Anzeige