Afsluiten word

[fwalraven]

Hallo allemaal,

Via access word er een word-sjabloon geopend en gevuld via bookmarks.
De gebruiker krijgt dit kant en klaar als een word document te zien.
Is het mogelijk om bij afsluiten van dit document word zelf ook gelijktijdig mee wordt afgesloten?
Via een macro of nog liever met behulp van vba?
Frans

 

[Axel Hagg]

Dag Frans,

Activedocument.close SaveChanges:=wdSaveChanges eventueel kun je met SaveAs het document ook nog in een bepaalde map opslaan en/of met een bepaalde naam.

Gegroet,

Axel

 

[fwalraven]

Axel,

In het bijgevoegde bestand de opdracht waarmee ik de opdrachten uitvoer.

Ondertussen heb ik nog wat ontdekt.

Bij 1 formulier van de 5 word Word direct ook afgesloten als ik het het kruisje van het document aanklik.
Maar eventuele wijzigingen in het document worden niet opgeslagen.

Bij de andere 4 blijft Word op de taakbalk staan en worden wijzigingen wel aangepast.

Lijkt mij nu dat ik het niet in de code onder de opdrachtknop moet zoeken, maar in het betreffende sjabloon zelf of mogelijk nog ergens anders.

Frans

 

[Axel Hagg]

Dag Frans,

Ik heb in je code zitten spitten. Zie het resultaat in de code bij de userform.

Gegroet,

Axel.

 

[fwalraven]

Axel,

Met de code gebeurd nu het volgende:

1) Als er nog geen document aanwezig is
Dan komt de foutmelding:

Fout 91 tijdens uitvoering:
Objectvariabele of blokvariabele With is niet ingesteld.

Bij foutopsporing is: .Visible = true (onder With ObjWrd) geel gearceerd.

2) Er is al wel een document aanwezig.

Dan verschijnt de Msgbox: Bestand bestaat reeds.
Bij de keuze annuleren, verschijnt dezelfde foutmelding 91.

Bij de keuze Nee, verschijnt eveneens de foutmelding 91.
Het document komt wel onder op de taakbalk te staan.

Bij de keuze Ja, verschijnt de foutmelding:
Fout 4248 tijdens uitvoering:
Deze opdracht is niet beschikbaar omdat er geen document geopend is.

With ActiveDocument is hierbij geel gearceerd.

Hopelijk begrijpbaar voor je.

Groeten Frans

 

[Axel Hagg]

Dag Frans,

Ik zal m'n code nog eens goed nakijken. Je hoort nog van me.

Gegroet,

Axel.

 

[fwalraven]

Axel,

Dit is mischien niet de oplossing die de schoonheidsprijs verdient, maar zover ik het kan bekijken werkt het wel.

Bij "kiezen" van de betrefffende opdrachtknop heb ik dit gezet:
On Error Resume Next
Dim Word As Object
Set Word = GetObject(, "Word.Application")

If Word Is Nothing Then
Exit Sub
Else
Word.Quit
End If

Mocht Word nog op de taakbalk staan dan word hij eerst afgesloten.

Frans

 

[Axel Hagg]

Dag Walraven,

Prima oplossing. On Error is niet nodig.

Gegroet,

Axel.

 

[fwalraven]

Axel,

In iedergeval bedankt voor de gedane moeite.

Groeten Frans.

 

[Axel Hagg]

Dag Walraven,

Ik heb van het weekend de code nog eens bekeken en er zaten nog wat foutjes in. Hierbij de nieuwe.

Gegroet,

Axel.