Niet gebruikte bookmarks verwijderen

[sandervkn]

Hallo,

Wanneer ik mijn formulier heb ingevuld, en niet alle bookmarks vol heb staan, houd Word die regels wit, en begint met tekst een paar regels eronder.

Is er een manier om de niet ingevulde bookmarks weg te halen?

Alvast bedankt,
Sander

 

[OctaFish]

Met een macrootje bijvoorbeeld:

Sub testBM()
Dim bm As Bookmark
Dim BMRange As Range

' Routine om lege bladwijzers te verwijderen
For Each bm In ActiveDocument.Bookmarks
    If bm.Empty = True Then
        Set BMRange = ActiveDocument.Bookmarks(bm).Range
        BMRange.Delete
    Else
        MsgBox bm.Range
    End If
Next
End Sub

 

[sandervkn]

Precies, zoiets bedoel ik! . Ik dank u vriendelijk.

Dit moet je alleen niet in het sjabloon doen, want dan zijn ze ook echt weg....