VBA-kode til at bestemme filnavn - MS Word

"...dokument i MS Word."

...skulle det have været.

Brug evt. dette som udgangspunkt:

Sub FileSave()
    Dim dlgSaveAs As FileDialog
    Set dlgSaveAs = Application.FileDialog(FileDialogType:=msoFileDialogSaveAs)
    dlgSaveAs.Title = "SpecialForYou:SaveAs"
    dlgSaveAs.InitialFileName = "GemMigMedDetteNavn.doc"
    dlgSaveAs.Show
    Set dlgSaveAs = Nothing
End Sub
Sub FileSaveAs()
    Dim dlgSaveAs As FileDialog
    Set dlgSaveAs = Application.FileDialog(FileDialogType:=msoFileDialogSaveAs)
    dlgSaveAs.Title = "SpecialForYou:SaveAs"
    dlgSaveAs.InitialFileName = "GemMigMedDetteNavn.doc"
    dlgSaveAs.Show
    Set dlgSaveAs = Nothing
End Sub

Hej learningvba,
Beklager den lange svartid.
Det ser meget lovende ud, meeen....
Den kommer med "Save as"-dialogen også efter at filen er gemt første gang og det er jo ikke meningen.
Det skulle gerne være sådan at hvis der "saves" efter at filen er gemt første gang gemmes den uden at der fremkommer dialogboks - har du en løsning på den?

Beklager, jeg havde overset dit indlæg.

Slet indholdet indholdet i Sub FileSave, det burde hjælpe.

Hjalp det?

>>learningvba
Beklager at jeg har glemt dette spørgsmål - det er ikke længere aktuelt, men hvis du smider et svar skal du få point for din ulejlighed.

30 points er bedre end 1 is på en overskyet dag, og feder ikke nær så meget :-)

(Havde også glemt dette spørgsmål)