VBA Überschreiben von Worddokumenten verhindern

[Yilva]

Hallo an alle,

beschäfte mich erst seit kurzem mit vba und bin auch schon gleich an meine Grenzen gestoßen.
Ich habe vor kurzem eine Aufgabe bekommen in der ich mit hilfe eines Buttons in einen Formular die enthaltenen Worddokumente(in einem OLE-Object)einer Tabelle in einem Ordner zu speichern soll. Dies soll für die ganze Tabelle möglich sein. Das funktioniert so weit auch, allerdings überschreibt er vorhandene Dateien gnadenlos.
Hier mal der Code, falls das jemandem weiter hilft:

Option Compare Database

Private Sub Word_öffnen_Click()
    Dim d As Object
    Dim name As String
    Dim anzahl As Long
    Dim wert As Integer

    anzahl = DCount("*", "TabXJ2006")
    wert = 0
    On Error Resume Next
    
    Do While anzahl > wert
        With Me!Dokument
            name = Me!CRM_Ansprechpartnernummer
            Set d = .Object
            d.SaveAs "Q:\Team\blabla" & name
            Debug.Print name
            Set d = Nothing
            DoCmd.GoToRecord , , acNext
             wert = wert + 1
        End With
    Loop
End Sub

Und jetzt meine Frage: Wie kann ich das verhindern? Gibt es Fehlermeldungen, die ich abfangen kann? oder soll ich eine extra routine dafür einbauchen? Meine bisherigen Versuche sind bis jetzt leider gescheitert.

Schon mal danke im Voraus
Gruß Yilva

 

[Shakie]

Du könntest beispielsweis prüfen, ob die Datei bereits existiert.
Wie du das machst, kannst du in diesem Thread nachlesen.

 

[Yilva]

Danke,
hat mir sehr geholfen.

Gibt es auch die Möglichkeit, das wenn die Datei bereits existiert der Speichern Unter Dialog geöffnet wird?

Sieht jetzt bei mir so aus:

...
         If Dir("Q:\Team\blabla\" & name & ".doc") = "" Then
                d.SaveAs "Q:\Team\blabla\" & name
                Else
                    MsgBox "Datei schon vorhanden!"
                    'Hier würde ich gerne den Speichern unter dialog öffnen
        End If
...

Habe es jetzt schon mehrmals versucht, aber irgendwie bekomm ich das nicht hin.

Gruß Yilva

 

[Yilva]

Danke,
hat sich erledigt hab eine Lösung gefunden

Gruß Yilva