Sub Gesamt()
ActiveDocument.FormFields("Text4").Result = ActiveDocument.FormFields("Gerichtskosten").Result * 1 + ActiveDocument.FormFields("AnspruchGläubiger").Result * 1
End Sub
Sub Zahlt()
'abhängig vom Status eines Kontrollkästchens wird ein Wert von einem Feld zum anderen übertragen
If ActiveDocument.FormFields("Zahlen").Result = 1 Then
ActiveDocument.FormFields("Schuld").Result = ActiveDocument.FormFields("Gesamt").Result
Else
ActiveDocument.FormFields("Schuld").Result = 0
End If
End Sub
Sub Gerichtskosten()
'abhängig vom Status eines Dropdown-Feldes wird ein Feld mit unterschiedlichen Werten besetzt.
If ActiveDocument.FormFields("Zustellung").Result = "..durch Gerichtsvollzieher" Then
ActiveDocument.FormFields("Gerichtskosten").Result = 50
Else
ActiveDocument.FormFields("Gerichtskosten").Result = 25
End If
End Sub