Kontrollerer Save

Mangler du = Mangler dog

Lidt længere ned i spørgsmålet du rerererer til står løsningen *S*

Du må nemig også lave en kode på GemSom for at det virker:

Sub SaveAs
  din kode
End Sub

Hmmmmmmmmmmmmmm

Den har jeg siddet og bakset med...

og kunne ikke få det til at virke fordi jeg havde kaldt modulet det samme som function... hmmmmmmmmmmmmmmmmmmm.....

Men tak for hjælpen

Ja - sådan kan det gå *S'

Kan du ikke lige fortælle mig om det skal ligge et bestemt sted

Når jeg putter den ind i min skabelon under thisdocument - så fryser den...?

Den må ikke ligge i ThisDocument. Den skal ligge i et almindeligt af dig oprettet modul.

men - ja undskyld at jeg skal have det i pap - så virker det da ikke, gør det?

Jo - så virker det netop *S*

ThisDocument er "kun" til de forudprogrammerede hændelser - såsom Document_New eller Document_Open

altså jeg mener - nu har jeg lagt den i et modul - men den gemmer bare på alm. vis...

Skal subben hedde fileSaveAs eller bare SaveAs ???

SaveAs

Virker den anden Save som du refererer til ?

Du kan også arbejde med DisplayAllerts = False (bare et forslag lige fra hoften *S*)

Nu lagde jeg lige en break både på saveas og save - men den fanger ingen af dem - den lukker bare dokumentet og gemmer det...

Altså det jeg har gjort er at oprette

Public Sub SaveAs()
Call SaveOrder
End Sub

Men den fanger det ikke ....???????

Den skal jo ligge i ThisDocument...

Og navnene er:

Public Sub FileSave()
    MsgBox "Save"
End Sub
Public Sub FileSaveAs()
    MsgBox "SaveAs"
End Sub

Det virker ikke....

Men kan jeg så fange den på Close?

jep - Document_Close

men det burde virke - det gør det hos mig...

og det er ikke fordi de skal hedde Public Sub Document_SaveAS...?

Tester lige

Nej - det skal ikke hedde "Public Sub Document_SaveAS"

kun

"Public Sub FileSaveAs"

Hmmmmmmm... fejlen sad 40 cm fra skærmen (endnu engang hahahha)

Jeg havde jo også indsat koden fra det spørgsmål jeg omtaler andetsteds...

Klart nok - der disabler jeg jo save og saveas (tror i hvertfald det var problemet)

men når jeg nu lige har dig så har jeg et lille problem mere - (opretter gerne et spørgsmål hvis du ønsker det)...

Nu har jeg lagt min kode ind i Save og SaveAs - men ønsker ikke at koden skal kører hver gang brugeren bare lukker vinduet - kan jeg under Document_Close teste på om der er lavet ændringer i dokumentet og hvis der er så fyrer min kode af i stedet for Word's Standard Gem - for den bruger nemlig ikke min kode under Save....

Var det forståeligt?

FilSave  skulle kun køre, når der er lavet ændringer i dokumentet...

Hvis din kode ikke køre under Save, så er et nok fordi det skal hedde FileSave *S*

Sådan her ser ThisDocument ud i den skabelon jeg bruger:

Private Sub Document_Close()

End Sub

Public Sub FileSaveAs()
  Call saveOrder
End Sub
Public Sub FileSave()
  Call saveOrder
End Sub


Det jeg ønsker er at når brugeren lukker dokument og har lavet ænderinger så skal den bruge min egen gem-funktion og ikke Word´s - men sådan fungerer det ikke....

Prøv denne:

Sub filesave()
Call saveOrder
End Sub

Sub fileSaveAs()
Call saveOrder
End Sub

Sub Document_close()
ActiveDocument.SaveAs , False
Call saveOrder
End Sub

Tak - det virker

Håber du er der RVM...

Der er yderligere stødt problemer til....

Det virker fint med at ligge den på Close - men for at skabe disse dokumenter kører der en makro som mange gange åbner og lukker det dokument hvor ovenstående kode er indsat - dvs. at brugeren spørges og spørges og......

Det var ikke hensigten - så nu er mit spørgsmål kan man deaktiverer funktionen når der køres en mailmerge eller kan man "smage" på om brugerne fysisk klikker på Luk dokument/lukker på krydset i højre øverste hjørne sådan at funktionen kun kører når det er brugeren som aktiverer Luk...??????

Du kan godt smage på om der kører en mailmerge og derved sætte en variabel, der midlertidigt deaktiverer koden i "Document_close", men det kræver at du mindst bruger word 2000 og så en del kode *S*

Jeg har koden i en Wordskabelon, så hvis du skriver din email, så kan jeg sende den til dig.

Jeg bruger word 2000 så den er fjong

morten.frederiksen@crawford.dk

Flere point gives når skidtet kører.... ;O)