Microsoft Office Forums - View Single Post - [Solved] Newb needing VBA solution to change formatting

derekcentrico · 12-06-2016, 05:36 AM

Sadly, I don't know enough about scripting to figure this out.

The only hyperlinks and data referenced as a potential side effect are the bookmarks and cross references that I want to defeat, so whatever I do wouldn't be a negative to anything like that.

I found this online:

Code:

Sub UnlinkBookmarks()
    Dim aFld As Field
        For Each aFld In ActiveDocument.Fields
            If InStr(1, aFld.Code.Text, "LSU_", 1) Then
                'Debug.Print aFld.Code.Text
                aFld.Unlink
            End If
    Next aFld
End Sub

Now I don't care about looking for specific codes.

Anyway, I just stripped down the code to remove the field LSU_ stuff to something like this below to remove any and all cross-references. But, it didn't work. What am I missing to do the removal of the cross-reference while keeping the original data from the bookmark intact at that spot?

Code:

Sub UnlinkBookmarks()
    Dim aFld As Field
        For Each aFld In ActiveDocument.Fields
                aFld.Unlink
            End
    Next aFld
End Sub

Also, just a FYI. I do not have the fields checked to update fields or linked data before printing. The error still occurs.