如何用vb.net中的单词在不同的行中编写两个方程式

时间:2017-08-11 08:18:21

标签: vb.net ms-word

我正在努力从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()

0 个答案:

没有答案