Sub FileSave()
Dim oDoc As Document
Dim oVar As Variable
Dim bVar As Boolean
Dim lngID As Long
Dim lngAsk As Long
Dim vbCancel As Boolean, vbNo As Boolean, vbYes As Boolean
Set oDoc = ActiveDocument
If Checkfields = True Then
If oDoc.Path = "" Then
FileSaveAs
End If
For Each oVar In oDoc.Variables
If oVar.Name = "varID" Then
lngAsk = MsgBox("Das Prüfprotokoll wurde bereits in die Geräteliste exportiert." & vbCr & _
"Wurden Daten im Protokoll geändert, kann der Eintrag in der Geräteliste aktualisiert werden!" & vbCr & _
vbCr & _
"Wähle 'Ja' um den Eintrag zu aktualisieren!" & vbCr & _
"Wähle 'Nein' um das Dokument ohne aktualisierung zu speichern!" & vbCr & _
"Wähle 'Abbrechen' um den Vorgang zu beenden!", vbYesNoCancel)
Select Case lngAsk
Case 6
MsgBox ("Daten werden überschrieben")
lngID = oVar.Value
bVar = True
Exit For
Case 7
MsgBox ("Dokument gespeichert")
bVar = False
Exit For
Case 2
MsgBox ("Speichervorgang abgebrochen!")
GoTo lbl_Exit
Case Else
MsgBox "es ist etwas schief gelaufen"
GoTo lbl_Exit
End Select
End If
Next oVar
If Not bVar Then
oDoc.Variables("varID").Value = "0"
oDoc.Save
End If
DataTransfer CStr(lngID)
If Not oDoc.Saved Then oDoc.Save
End If
lbl_Exit:
Exit Sub
End Sub