我正在努力从VB.net自动化word文档,我无法在另外两个不同的行中编写一个等式。我的代码在这里,它将以单行编写方程式(合并为一个),但我希望它们在不同的行中请帮助。
我正在使用2016年和2017年的vb.net
Imports Microsoft.Office.Interop.Word
'**************Intializing Word Document****************************
Dim oWord As Microsoft.Office.Interop.Word.Application
Dim oDoc As Microsoft.Office.Interop.Word.Document
'Start Word and open the document template.
oWord = CreateObject("Word.Application")
oWord.Visible = True
oDoc = oWord.Documents.Add
'*******************************************************************
'**************************eq 1*****************************************
Dim objRange As Range
Dim objEq As OMath
objRange = oDoc.Bookmarks.Item("\endofdoc").Range
objRange.InsertParagraphAfter()
objRange.Text = "σ_1 (L_x/2,L_y/2)=N_sd/(L_x L_y )+(M_x (L_y/2))/I_x +(M_y (L_x/2))/I_y = "
objRange = oDoc.OMaths.Add(objRange)
objEq = objRange.OMaths(1)
objEq.BuildUp()
'**************************eq 2*****************************************
Dim objRange1 As Range
Dim objEq1 As OMath
objRange1 = oDoc.Bookmarks.Item("\endofdoc").Range
objRange1.InsertParagraphAfter()
objRange1.Text = "σ_2 (L_x/2,L_y/2)=N_sd/(L_x L_y )+(M_x (L_y/2))/I_x +(M_y (L_x/2))/I_y = "
objRange1 = oDoc.OMaths.Add(objRange1)
objEq1 = objRange1.OMaths(1)
objEq1.BuildUp()