Makro til at slette formfield eller formfield + det efterfølgende afsnit i Word
Jeg har en makro, som jeg gerne vil have udvidet. Makroen sletter et tekstfelt, hvis der tastes minus (-) i feltet.Makroen ser sådan ud:
Sub SletKunFeltet()
Dim f As FormField
Set f = ActiveDocument.FormFields("SletKunFeltet2")
If f.Result = "-" And f.Type = wdFieldFormTextInput Then
f.Delete
End If
End Sub
Jeg kunne godt tænke mig, at tekstfeltet og det efterfølgende afsnit slettes, hvis man taster plus (+) i feltet.
Jeg har en anden kode, som jeg har prøvet at flette ind, men jeg kan ikke få det til at virke. Koden er flg.:
If f.Result = "+" Then
'fjern beskyttelse
UnprotectForFormFields ActiveDocument
f.Range.Paragraphs(1).Range.Delete
'beskyt igen
ProtectForFormFields ActiveDocument
End If