VBA koder til Word97

Her er et forslag *S*

Indsæt de formularfelter der eventuelt skal slette i et bogmærke og så så nedenstående kode på rullelisten som udgangsmakro:

Husk at omdøbe bogmærkerne i koden, så de passer til dine bogmærker i dokumentet!!

Sub MakroPåFormularfelt()
Dim Indhold As String

'Giver indholdet fra rullelisten
Indhold = ActiveDocument.FormFields("Formularfeltetsbogmærke").Result

'Afbeskytter dokumentet
If ActiveDocument.ProtectionType <> wdNoProtection Then
    ActiveDocument.Unprotect
End If

'Sletter indholdet i bogmærker (alle formularfelterne), hvis
If Indhold = "H24" Then
    ActiveDocument.Bookmarks("Bogmærke").Select
    Selection.Delete
End If

'Beskytter dokumentet igen
If ActiveDocument.ProtectionType = wdNoProtection Then
    ActiveDocument.Protect wdAllowOnlyFormFields, True
End If

End Sub

Se lige bort fra alle slåfejlene - sidder ved min bærbare og tastaturet driller *S*

Tak det virker