#1
|
|||
|
|||
Looping/Update BookMark Crashes.
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 http://gregmaxey.com/word_tip_pages/..._bookmark.html |
#2
|
|||
|
|||
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 |