word宏定义记录

Sub main()
'
' 删除全部mathtype公式 宏
'
'
    ViewFieldCodes 1
    StartOfDocument         '到文档开头
    'EditFindStyle.Style = "公式”'设定修改的公式样式
    EditFind.Find = "EMBED Equation"
    EditFind.Direction = 0
    EditFind.Format = 1
    While EditFindFound()
    'EditObject     '打开公式编辑器修改公式
    'SendKeys"%{F4}".-1
    EditFind
    Wend
    ViewFieldCodes 0
    End Sub
    
    
End Sub
 

期待有人编出来。。。