import win32com.client as win32 app=win32.Dispatch("Word.Application") doc = app.Documents.Add() app.visible=True s = app.Selection objRange = s.Range c1 = 10 c2 = 12 y1='y=\sqrt(a^2+b)='+str(c1)+'+'+str(c2)+'='+str(c1+c2)+'^p' objRange.Text = y1 objRange = s.OMaths.Add(objRange)，在该程序的基础上，将线性的公示格式自动转化为专用格式。请给我完整的程序。

好的，以下是将线性的公式转换为专用格式的完整程序：

import win32com.client as win32

app = win32.Dispatch("Word.Application")
doc = app.Documents.Add()
app.visible = True
s = app.Selection
objRange = s.Range

c1 = 10
c2 = 12
y1 = 'y=\sqrt(a^2+b)=' + str(c1) + '+' + str(c2) + '=' + str(c1 + c2) + '^p'

objRange.Text = y1   # 插入公式文本
objRange = s.OMaths.Add(objRange)   # 将公式转换为 OMATH 对象
objRange.OMaths(1).ConvertToMathText()   # 将 OMATH 对象转换为 MathText 格式

objRange.OMaths.Linearize()   # 将所有公式转换为专用格式

doc.Close()
app.Quit()

这个程序首先创建一个 Word 应用程序对象，然后创建一个新的文档，并将其设置为可见。然后，使用 Selection 对象选择当前光标所在位置的范围，并将其赋值给 Range 对象 objRange。

接下来，定义两个变量 c1 和 c2，然后使用它们生成一个数学公式 y1。使用 objRange.Text 将公式文本插入到 objRange 中，然后使用 OMaths 对象的 Add() 方法将 objRange 中的公式转换为 OMATH 对象。

接着，使用 ConvertToMathText() 方法将 OMATH 对象转换为 MathText 格式，然后使用 Linearize() 方法将所有公式转换为专用格式。

最后，关闭文档和应用程序。