[word 2007/vba] opslaan van een document

[alexbl69]

Ik ben bezig een Word vba macro te schrijven en loop tegen het volgende probleem aan:

Als een gebruiker het document sluit moet de vraag worden gesteld of het document opgeslagen moet worden. Is dit het geval, dan moet het document onder een door mij gespecificeerde naam en plaats opgeslagen worden.

Aangezien het document gesloten wordt gebeurt e.e.a. in de routine Document_Close(). Dit betekent ook dat ik het commando ActiveDocument.Close.... niet kan gebruiken, aangezien hij dan zijn eigen routine weer aanroept.

Tevens heb ik geprobeert met een eigen MsgBox de keuzes te splitsen. Het opslaan (SaveAs.., Application.Quit) werkt dan zonder problemen, maar het niet opslaan werkt niet. Het commando Application.Quit geeft dan een foutmelding dat mijn MsgBox form nog openstaat.

Er zal wel een heel eenvoudige oplossing voor zijn, maar ik zie hem even niet .

[alexbl69]

Gelukkig, heb het zelf al opgelost. Code:

VBScript:

Private Sub Document_Close()
    ActiveDocument.Saved = True
    
    'Document opslaan indien gevuld
    If MsgBox("Document opslaan ?", vbYesNo) = vbYes Then
        Dim FileNaam As String
        FileNaam = Nummer & " " & ActiveDocument.ContentControls(2).Range.Text
        FileNaam = RemoveIllegal(FileNaam)
        ActiveDocument.SaveAs FileName:=SaveDir & FileNaam
    End If
    
    Application.Quit savechanges:=wdDoNotSaveChanges
End Sub

Probleem was dat de standaard Word save dialoog box bleef verschijnen. Middels 'ActiveDocument.Saved = True' vertel je Word dat het document al gesaved is en dat de dialoogbox niet meer nodig is.

[pedorus]

Misschien is een ander event handiger. Even vrij naar het voorbeeld van DocumentBeforeClose:

Visual Basic:

Public WithEvents appWord As Word.Application

Private Sub appWord_DocumentBeforeClose _
        (ByVal Doc As Document, _
        Cancel As Boolean)

    Dim intResponse As Integer

    intResponse = MsgBox("Do you really " _
        & "want to close the document?", _
        vbYesNo)

    Cancel = True

    If intResponse = vbYes Then
        Application.Quit WdSaveOptions.wdDoNotSaveChanges
    End If
End Sub

Private Sub Document_Open()
    Set appWord = Word.Application
End Sub