|
Option Explicit
Function Strip_Hyperlinks_Bookmarks_Fields()
Dim myLink As Hyperlink
Dim myBookmark As Bookmark
Dim myField As Field
With ActiveDocument
For Each myLink In .Hyperlinks
myLink.Delete
Next myLink
For Each myBookmark In .Bookmarks
myBookmark.Delete
Next myBookmark
For Each myField In .Fields
myField.Unlink
Next myField
End With
End Function
|