[vba] Problem beim Überschreiben einer Worddatei

[kuekenMcNugget]

Hi @ all,

Ich habe ein Makro unter MS project erstellt, dass die Taskliste eins Projekts durchsucht und die dazugehörigen Word-Dateien automatisch erstellt. Nun habe ich aber ein großes Problem. Beim Ausführen des Makros, wird der SaveAs-Dialog aufgerufen. Die Dateien können auch problemlos gespeichert werden. Nur kann ich keine Dateien überschreiben. Es kommt auch keine Fehlermeldung, wenn ich dieses Versuche. Der SaveAs-Dialog bleibt einfach geöffnet, ansonsten passiert rein gar nichts.

Woran kann das liegen.

vereinfachte Darstellung meines Codes in MSProject.

Sub Test()

    Dim objMSWord As Object

    Dim url As String


    url = "D:\1.doc"


    Set objMSWord = CreateObject("Word.Application")

    objMSWord.Visible = True

    objMSWord.Documents.Add (url)


    With objMSWord.Dialogs(84)

        .Name = "Test.doc"

        .Show

    End With

End SubEnd Sub