What kind of entry? If it is an index entry, delete the corresponding XE field inserted by Word. To see XE fields as well as other hidden fields, display nonprinting marks; you can click the ¶ button on the Home tab. When you are done, update the index.
Stefan Blom Word MVP Volunteer Moderator ~~~~ Please note that I do not work for Microsoft MVP program info: https://mvp.microsoft.com/ ~~~~
175 people found this reply helpful
Was this reply helpful?
Sorry this didn't help.
Great! Thanks for your feedback.
How satisfied are you with this reply?
Thanks for your feedback, it helps us improve the site.
Dim oFld As Field
Dim strAsk As String
Dim bHidden As Boolean
bHidden = .ShowHiddenText
.ShowHiddenText = True
For Each oFld In ActiveDocument.Range.Fields
If oFld.Type = wdFieldIndexEntry Then
strFldText = Replace(oFld.Code, "XE ", "")
strAsk = MsgBox("Delete " & strFldText, vbYesNoCancel)
If strAsk = vbYes Then
ElseIf strAsk = vbCancel Then
.ShowHiddenText = bHidden