Opslaan als... maar sluiten indien het reeds bestaat

[MBBS]

Is het mogelijk om bij onderstaande code iets bij te voegen/
Namelijk :
Indien het bestand reeds bestaat dan moet hij vragen of dit mag overschreven worden..
Eventueel de opties :
Ja = overschrijven
Nee = input clear (mogelijkheid andere optie in te vullen).

Sub BestandOpslaan()
Dim NR As String
 
BestandsNaam:
NR = InputBox("Typ de bestandsnaam", "Bestandsnaam")
If Not NR = "" Then
    ChangeFileOpenDirectory "C:\Convert\tests\"
    ActiveDocument.SaveAs FileName:=NR & ".doc", FileFormat:=wdFormatDocument, AddToRecentFiles:=True
Else
    GoTo BestandsNaam
End If

 

[OctaFish]

Met DIR kun je controleren of een bestandnaam al bestaat. Dus iets als:

If Not Dir("C:\Convert\tests\" & NR)= "" THEN