View Single Post
 
Old 07-31-2017, 04:44 AM
gmaxey gmaxey is offline Windows 7 32bit Office 2016
Expert
 
Join Date: May 2010
Location: Brasstown, NC
Posts: 1,440
gmaxey is a jewel in the roughgmaxey is a jewel in the roughgmaxey is a jewel in the roughgmaxey is a jewel in the rough
Default

Try this on a copy of your file:

Code:
Sub ScratchMacro()
Dim oXMLSR As XMLSchemaReference
  For Each oXMLSR In ActiveDocument.XMLSchemaReferences
    If InStr(oXMLSR.NamespaceURI, "ActionsPane") > 0 Then
      oXMLSR.Delete
    End If
  Next
lbl_Exit:
  Exit Sub
End Sub
__________________
Greg Maxey
Please visit my web site at http://www.gregmaxey.com/
Reply With Quote