Looping/Update BookMark Crashes.

ptmuldoon · #1 12-30-2014, 11:27 AM

I'm working to create a small script that will 'reset' my bookmarks back to default comments. However, Word keeps crashing each time it attempts to run and I can't seem to figure out why.

This is the sample code, I'm currently working with.

Code:

Sub ResetBookMarks()
    Dim BMName, DefaultComment As String
    Dim oRng As Word.Range
    
    DefaultComment = "XXXXXX"

    For Each Bmk In ActiveDocument.Bookmarks    
        'MsgBox Bmk.Name
        BMName = Bmk.Name
        Set oRng = ActiveDocument.Bookmarks(Bmk.Name).Range
        oRng.Text = ActiveDocument.Bookmarks(Bmk.Name).Range.Text & "Some text here."
        ActiveDocument.Bookmarks.Add BMName, oRng
    Next
    
    ActiveDocument.Bookmarks.ShowHidden = True
    ActiveWindow.View.ShowBookmarks = False
End Sub

FYI.. I'm mainly learned the above so far from Greg Maxey's MVP help here.
http://gregmaxey.com/word_tip_pages/..._bookmark.html

gmaxey · #2 12-31-2014, 07:19 AM

Try something like:

Code:

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim lngIndex As Long
Dim oBM As Bookmark
Dim oRng As Range
Dim strName As String
For lngIndex = ActiveDocument.Bookmarks.Count To 1 Step -1
Set oBM = ActiveDocument.Bookmarks(lngIndex)
strName = oBM.Name
Set oRng = oBM.Range
oRng.Text = oBM.Name
ActiveDocument.Bookmarks.Add strName, oRng
Next
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Need help on macro for looping	kilosub	Word VBA	31	07-27-2011 01:37 PM
Looping Question	Steve B	PowerPoint	0	01-19-2011 10:44 AM
Looping video	tomasball	PowerPoint	0	10-30-2010 02:38 PM
Unbreakable looping	Dixon	Outlook	0	09-23-2009 02:10 PM
Looping though Custom Properties in VBA	suekay	Misc	0	05-19-2006 06:10 AM