Hallo zusammen,

ich schreibe derzeit ein Macro, welches dem Nutzer erlauben soll durch Eingabe einiger Paramter per Knopfdruck eine Ordnerstruktur sowie die zugehörigen Dokumente anzulegen und die Dokumente vorzubefüllen.

Soweit funktioniert auch alles rund, bis auf den Zugriff auf Word Dokumente.

Hierbei habe ich folgenden Code Schnipsel gebastelt, welcher erlauben soll, dass ich ein WordDokument entsperre, öffne und ein Wort in diesem ersetze.

Dabei tratfolgende Fehlermeldungen auf:

Das Kennwort ist nicht Korrekt Laufzeitfehler 5485

Auch nach meiner Internetrecherche habe ich keinerlei Ahnung woran das liegt, da ich nicht einmal ein Kennwort gesetzt habe.

Sub WordDokumentöffnen(ByVal Dokumente As String)
 Const wdReplaceAll = 2
 Dim AppWD As Object, AppDoc As Object
 

 If Dir(Dokumente) <> "" Then
  Set AppWD = CreateObject("Word.Application") 'Word als Object starten
  If Not AppWD Is Nothing Then
        AppWD.Visible = True
         If AppWD.Options.AllowReadingMode = True Then
        'Word nicht im Lesemodus starten bei Schreibgeschützten Dokumenten
        AppWD.Options.AllowReadingMode = False
        End If
        Set AppDoc = AppWD.Documents.Open(Dokumente)
        If AppWD.ActiveDocument.ProtectionType <> wdNoProtection Then
        AppWD.ActiveDocument.Unprotect
        
        End If
        If Not AppDoc Is Nothing Then
         With AppDoc.Range.Find
            .Text = "Test"
            .MatchCase = True
            .Replacement.Highlight = True
            .Replacement.Text = ActiveWorkbook.Sheets("Eingabefenster").Range("B5").Value
            .Execute Replace:=wdReplaceAll
         End With
         AppWD.Documents.Close (Dokumente)
         
        End If
  End If
 Else
   MsgBox "Die zu öffnende Dokumentdatei wurde nicht gefunden!", vbCritical, "Word-Datei öffnen"
 End If
 
 Set AppWD = Nothing
 Set AppDoc = Nothing
End Sub

Es wäre lieb, wenn jemand eine Idee hätte!

Freue mich über Posts :)