VBA Code to Remove XE Codes

VBA Code to Remove XE Codes

September 24, 2019

I tested it out this week and the below VBA code posted by Graham Mayor here, will successfully remove XE codes from a Word document. 

 

 

 

 

Sub Macro1()
Dim oFld As Field
Dim strFldText
Dim strAsk As String
Dim bHidden As Boolean
    With ActiveWindow.View
        bHidden = .ShowHiddenText
        .ShowHiddenText = True
    End With
    For Each oFld In ActiveDocument.Range.Fields
        If oFld.Type = wdFieldIndexEntry Then
            oFld.Select
            strFldText = Replace(oFld.Code, "XE ", "")
            strAsk = MsgBox("Delete " & strFldText, vbYesNoCancel)
            If strAsk = vbYes Then
                oFld.Delete
            ElseIf strAsk = vbCancel Then
                GoTo Finish
            End If
        End If
    Next oFld
Finish:
    With ActiveWindow.View
        .ShowHiddenText = bHidden
    End With
End Sub
 

Please reload

Contact Me With Your Litigation Support Questions:

seankevinoshea@hotmail.com

  • Twitter Long Shadow

© 2015 by Sean O'Shea . Proudly created with Wix.com