1.word-视图-宏 2.自己随便输入一个宏名,比如就叫InsertEqua,然后将 Sub InsertEqua() Selection.OMaths.Add Range:=Selection.Range Selection.OMaths(1).ConvertToMathText Selection.OMaths(1).ConvertToMathText End Sub 这几行代码复制到里边去.注意这里会根据你起的宏名称自动生成sub和end sub这部分,所以真正复制的部分是中间的3行 3