Error with exit macro

brent chadwick · #1 01-26-2017, 06:40 AM

Hey guys,

I have this exit macro which has worked flawlessly in both Mac and Windows until yesterday when I used it in a Windows table (Mac works flawlessly in tables). The code stalls on the fourth line "Selection.Fields.Unlink." If I reverse the sequence of the third (ActiveDocument.Unprotect) and fourth lines, it works for the tables but stalls in the body of the text. I'm stumped. Suggestions?

Code:

Sub UnlinkFieldsCensus()
' Unlink Fields Macro
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.MoveUp Unit:=wdParagraph, Count:=1, Extend:=wdExtend
    ActiveDocument.Unprotect
    Selection.Fields.Unlink
    Selection.MoveRight Unit:=wdCharacter, Count:=2
          Dim Bookmark As Bookmark
      ActiveDocument.Bookmarks.ShowHidden = True
      If ActiveDocument.Bookmarks.Count >= 1 Then
         For Each Bookmark In ActiveDocument.Bookmarks
            Bookmark.Delete
         Next Bookmark
      End If
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Help with Macro error	jar208	Excel Programming	2	12-06-2016 03:57 PM
Pictures animated exit	abc3132	PowerPoint	0	02-26-2015 12:27 AM
VBA error Content Control On Exit	jec1	Word VBA	5	08-16-2014 08:14 PM
Drop-Downs: Run Macro on Exit	Andrew H	Word VBA	15	11-16-2012 08:34 AM
Is there an exit on close ?	mhdadmh	Word	0	10-12-2006 04:28 PM