title image


Smiley Re: Im AutoClose-Makro das Schließen des Dokumentes umgehen
als erstes würde ich mal nicht mit dieser Variable var arbeiten, sondern die FUNCTION Pflichtfelder soll gleich mal das Ergebnis liefern



Function Pflichtfelder() As Boolean



Pflichtfelder = True

MA = ActiveDocument.FormFields("MA").Result

OE = ActiveDocument.FormFields("OE").Result



If MA = "" Then

MsgBox "Bitte geben Sie einen Ansprechpartner an!", vbInformation + vbOKOnly, "Hinweis"

Selection.GoTo what:=wdGoToBookmark, Name:="MA"

Pflichtfelder = False

ElseIf OE = "" Then

MsgBox "Bitte geben Sie das OE-Kürzel des Ansprechpartners an!", vbInformation + vbOKOnly, "Hinweis"

Selection.GoTo what:=wdGoToBookmark, Name:="OE"

Pflichtfelder = False

End If

End Function





Sub autoclose()

If Pflichtfelder = True Then

ActiveDocument.Save

End If

End Sub







eine Frage noch : die Sub AutoClose, ist das eine Event des Documents , oder eine von dir programmierte "normale" Sub.

Welches Document (Word , Excel, Access)



Wenn es ein Event des Documents ist, müsste man erst scheuen, wie man das Schliessen usw. wirklich unterbinden kann.
Fuchsi

Alkohol ist keine Antwort, aber man vergisst beim Trinken die Frage !

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: