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)，在该程序的基础上，利用EquationProfessionAll命令，将公式自动转化为专业格式。

对不起，我之前的回答有误，Word 中没有 `EquationProfessionAll` 命令。如果想要将公式转化为专业格式，可以使用 `ConvertToMathText` 方法，具体代码如下：

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) 
objRange.Range.Select() 
app.Selection.OMaths.Item(1).ConvertToMathText()

其中 `ConvertToMathText()` 方法可以将公式转化为专业格式。