word中数学公式Eq域如何转换成普通文本

文人慕

整理试卷发现有部分的数学公式是用Eq域编写的，由于公式不统一，能否将全部的Eq域公式转换成普通的文本，注意不是使用Alt+F9转换，而是打算转换成普通的文本，将来方便查找替换。

sylun

可以试试如下宏代码处理

1. Sub test()
   
2.     Dim i As Integer
   
3.     Dim TF As Boolean
   
4.     Dim curDoc As Document
   
5.     Dim aField As Field
   
6.     Dim fieldtext As String
   
7.    
   
8.     Application.ScreenUpdating = False
   
9.     Set curDoc = ActiveDocument
   
10.     TF = ActiveDocument.ActiveWindow.View.ShowFieldCodes
    
11.     If TF = False Then ActiveDocument.ActiveWindow.View.ShowFieldCodes = True
    
12.     For Each aField In Documents.Add(curDoc.FullName).Content.Fields
    
13.         If aField.Type = wdFieldFormula Then
    
14.             aField.Select
    
15.             fieldtext = Replace(Selection.Text, Chr(19), "{")
    
16.             fieldtext = Replace(fieldtext, Chr(21), "}")
    
17.             aField.Result.InsertAfter fieldtext
    
18.             aField.Delete
    
19.             i = i + 1
    
20.         End If
    
21.     Next
    
22.     MsgBox "共处理了" & i & "个EQ域。处理结果见新文档"
    
23.     ActiveDocument.ActiveWindow.View.ShowFieldCodes = TF '恢复原来的文档域代码显示设置
    
24.     curDoc.ActiveDocument.ActiveWindow.View.ShowFieldCodes = TF
    
25.     Application.ScreenUpdating = True
    
26. End Sub

复制代码