Delete text within two bookmarks

[tiredofit]

Assuming I have the following text:

Hello,

"BOOKMARK_START"

What are you doing

'BOOKMARK_END"

Call me

I want to delete the text within two bookmarks in Word to end up with:

Hello,

Call me

I found this code:

Dim pRange
Dim dRange
Dim myrange

pRange = ActiveDocument.Bookmarks("BOOKMARK_START").Range.Start
dRange = ActiveDocument.Bookmarks("BOOKMARK_END").Range.End
Set myrange = ActiveDocument.Range(Start:=pRange, End:=dRange)
myrange.Cut

What happens when the code is run is BOOKMARK_START and BOOKMARK_END point to the same place, (which is BOOKMARK_START), ie:

Hello,

BOOKMARK_START / BOOKMARK_END

Call me

Next time I insert something into BOOKMARK_START (and then try to delete it), it won't recognise BOOKARK_END (because it's the same location as BOOKMARK_START).

How can I get round this?

Thanks

 

[smozgur]

You need to create the same bookmarks right after destroying them. The sample implementation could be the following for deleting or replacing the content. (By the way, if you create the bookmarks before and after the content to be deleted, then recreating bookmarks might not be necessary. However, this is also a good approach.

Sub DeleteContent()
Dim pRange
Dim dRange
Dim myrange

pRange = ActiveDocument.Bookmarks("BOOKMARK_START").Range.Start
dRange = ActiveDocument.Bookmarks("BOOKMARK_END").Range.End
Set myrange = ActiveDocument.Range(Start:=pRange, End:=dRange)
myrange.Cut

With ActiveDocument.Bookmarks
    .Add Range:=ActiveDocument.Range(myrange.Start, myrange.Start), Name:="BOOKMARK_START"
    .Add Range:=ActiveDocument.Range(myrange.End, myrange.End), Name:="BOOKMARK_END"
End With

End Sub

Sub ChangeContent()
Dim pRange As Long
Dim dRange As Long
Dim myrange As Range

pRange = ActiveDocument.Bookmarks("BOOKMARK_START").Range.Start
dRange = ActiveDocument.Bookmarks("BOOKMARK_END").Range.End
Set myrange = ActiveDocument.Range(Start:=pRange, End:=dRange)
myrange.Text = "test"

With ActiveDocument.Bookmarks
    .Add Range:=ActiveDocument.Range(myrange.Start, myrange.Start), Name:="BOOKMARK_START"
    .Add Range:=ActiveDocument.Range(myrange.End, myrange.End), Name:="BOOKMARK_END"
End With

End Sub

 

[tiredofit]

You need to create the same bookmarks right after destroying them. The sample implementation could be the following for deleting or replacing the content. (By the way, if you create the bookmarks before and after the content to be deleted, then recreating bookmarks might not be necessary. However, this is also a good approach.

Sub DeleteContent()
Dim pRange
Dim dRange
Dim myrange

pRange = ActiveDocument.Bookmarks("BOOKMARK_START").Range.Start
dRange = ActiveDocument.Bookmarks("BOOKMARK_END").Range.End
Set myrange = ActiveDocument.Range(Start:=pRange, End:=dRange)
myrange.Cut

With ActiveDocument.Bookmarks
    .Add Range:=ActiveDocument.Range(myrange.Start, myrange.Start), Name:="BOOKMARK_START"
    .Add Range:=ActiveDocument.Range(myrange.End, myrange.End), Name:="BOOKMARK_END"
End With

End Sub

Sub ChangeContent()
Dim pRange As Long
Dim dRange As Long
Dim myrange As Range

pRange = ActiveDocument.Bookmarks("BOOKMARK_START").Range.Start
dRange = ActiveDocument.Bookmarks("BOOKMARK_END").Range.End
Set myrange = ActiveDocument.Range(Start:=pRange, End:=dRange)
myrange.Text = "test"

With ActiveDocument.Bookmarks
    .Add Range:=ActiveDocument.Range(myrange.Start, myrange.Start), Name:="BOOKMARK_START"
    .Add Range:=ActiveDocument.Range(myrange.End, myrange.End), Name:="BOOKMARK_END"
End With

End Sub

Thanks, I'll try that.