Niet opslaan bij afsluiten - VBA code

[Jaydenluca]

Goede middag,

Ik ben op zoek naar een VBA code die het word2010 document afsluit zonder de vraag of het opgeslagen moet worden.
Ik heb onderstaande code gebruikt in ThisDocument maar die werkt niet.

Private Sub Document_Close()

ActiveDocument.Close SaveChanges:=False

End Sub

heeft iemand hier een oplossing voor.
Ik ben op internet aan het zoeken geweest maar kom niet echt verder.

Mvg,
Michel

 

[ScorpionX]

voordat je het document sluit run je dit:
Application.DisplayAlerts = False

na het sluiten zet je hem weer aan:

Application.DisplayAlerts = True

suc6!

 

[Jaydenluca]

Dat is niet precies wat ik zoek.
ik zoek de optie om het document te sluiten zonder op te slaan.

 

[ScorpionX]

dat is precies wat hij doet:

Private Sub Document_Close()
Application.DisplayAlerts = False
ActiveDocument.Close
Application.DisplayAlerts = True
End Sub

test het maar.

 

[OctaFish]

Nee hoor. Werkt niet. Doe er anders een werkend voorbeeldje bij, want dat wil ik dan wel eens van dichtbij zien.

 

[ScorpionX]

vergeet bovenstaande, als je deze regel gebruikt werkt het ook al:

ActiveWorkbook.Close False

bij mij sluit hij het document en slaat hij de wijzigingen niet op.

 

[Jaydenluca]

Het werkt niet,

VBA slaat vast op ActiveDocument.Close.
ActiveWorkbook.Close False werkt ook niet, maar dat kan, het is een word document en geen excel sheet

 

[ScorpionX]

my bad

probeer deze eens:
ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges

 

[ScorpionX]

of deze:
'now mark your document as saved (you *did* save it elsewhere? Or do you never want to save it?)
ActiveDocument.Saved = True
'and close it
ActiveDocument.Close

 

[Haaren101]

Ik ben op zoek naar een VBA code die het word2010 document afsluit zonder de vraag of het opgeslagen moet worden

Wil je het document sluiten met de veranderingen maar zonder de vraag of
Wil je het document sluiten zonder de veranderingen en zonder de vraag

ron

 

[Jaydenluca]

ScorpionX, werken geen van twee.

Haaren101, optie 2 is de bedoeling. document moet ingevuld wordt waarna deze gemaild wordt (dit werkt)
daarna mag het document niet opgeslagen worden bij het afsluiten.

 

[Haaren101]

Met "ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges" doet het precies wat je wil (in Word2007) in optie 2

Ron

 

[OctaFish]

Wellicht handig om aan te geven waar je die code moet zetten. De code doet het namelijk niet in de ThisDocument van het specifieke document, en ook niet in de ThisDocument van de Normal. Dus je zet hem waarschijnlijk ergens anders neer.

 

[Haaren101]

Gewoon met een macro in ThisDocument werkt dit. Wilde hier een bijlage zetten maar kan geen .docm uploaden

Ron

 

[Jaydenluca]

Oplossing is gevonden in:

Private Sub Document_Close()
Me.Saved = True
End Sub

hartelijk dank voor de hulp