Regel wissen

[Sjoef]

Hallo, ik heb 2 stukken tekst in een bookmark staan. Naar aankeiding van een true of false verwijder ik 1 van de 2 bookmarks. Bijv:

[bookmark1]
[bookmark2]

de volgende regel tekst

als ik nu (range) bookmark2 verwijder dan heb ik tussen bookmark 1 en de volgende regel tekst een lege regel teveel. Hoe kan ik die vanuit VB wissen? Sendkeys stuurt de code pas naar het documentbij het vullen van de laatste invoerveld, waarvan dan die gegevens gewist worden. Hoe los ik dit op?

Jos

 

[DCWDPT]

Het wordt in elk geval sneller opgelost als je een voorbeeldje of je VBA-code plaatst.

 

[Sjoef]

Ok DCWDPT, ik heb een subje die de bookmark verwijderd.

Public Sub Verwijder_BookMark(bmk As String)
If ActiveDocument.Bookmarks.Exists(bmk) Then
ActiveDocument.Bookmarks(bmk).Range.Delete
End If
End Sub

In het document staat het volgende:
[bookmark1]
[bookmark2]

tekst

code is dan:

Verwijder_Bookmark ("bookmark2")

resultaat is dan:

[bookmark1]


tekst

nu wil ik de blanco regel waar [bookmark2] stond ook weg hebben.

Ik hoop dat dit duidelijk is.

Jos

 

[DCWDPT]

Is dit de oplossing?

Sjoef,

Je moet er dan voor zorgen dat het regeleinde dat na het bookmark staat is opgenomen in je bookmark. Regeleinden kun je zichtbaar maken door te klikken op ¶ in de werkbalk. Waarschijnlijk zul je dan zien dat het regeleinde niet in het bookmark staat. Als je dat wel doet, wordt bij het verwijderen van het bookmark, ook het regeleinde verwijderd en ontstaat er geen extra lege regel.

Ik hoop dat het de juiste oplossing is.

:thumb:

PS: Ik moest trouwens jouw subje wel wat aanpassen wilde ik het aan het werken krijgen. Bij mij ziet het er zo uit:

Sub HaalBookmarkWeg()

Dim bmk1, bmk2 As Bookmarks
    If ActiveDocument.Bookmarks.Exists("bmk2") Then
        ActiveDocument.Bookmarks("bmk2").Range.Delete
    End If
End Sub

 

[snb]

of

Sub tst()
  With activedocument
    If .Bookmarks.Exists("bmk") Then 
      .Bookmakrs("bmk").Select
      Selection.MoveEnd wdParagraph, 3
      Selection.delete
    End If
  End With
End Sub