如何将域批量转化为文本？

Word文档中图表公式编号都使用的是域，需要全部转换成文本，现在有这样的问题：
如果全选整个文档Ctrl+A ，再Ctrl+Shift+F9，则连输入的公式（用Mathtype输入的）也转换成图片不能编辑了。
所以想只将正文和图表部分的编号去掉域属性，但通过样式和格式窗格全选正文后是不能用Ctrl+Shift+F9的，该键失效了。
只能选一段，Ctrl+Shift+F9，再选一段，再Ctrl+Shift+F9……，
不知能有一次性的方法不？

Sub test()
   Dim myF As Field
      For Each myF In ActiveDocument.Fields
      If myF.Type = wdFieldSequence Then
         myF.Unlink
      End If
   Next
End Sub