如何使用Vb.net

Question

第5題和一個分開的，我沒有得到來自專家的響應....

希望這個時間做郵件合併中OpenOffice的我將得到援助之手。

我想用Vb.net做郵件合併中OpenOffice和我與OpenOffice的全新的。 我搜索網上的一些幫助，瞭解如何使用OpenOffice與vb.net，但我得到的是半信息.....所以，你能幫幫我，給我的代碼在vb.net OpenOffice的郵件合併。

Answer 1

嗯，我在DB工人的名單，有這個設施，如果他們想郵寄給職工的全部或部分，然後他們可以做它。我已經完成了使用Microsoft Office現在的添加在我們這個任務正在提供使用Open Office執行相同任務的工具。

，他們要做的只是選擇工人的列表，點擊一個按鈕，它會使用來自DB這些工人的數據領域自動化郵件合併。我的代碼如下所示

Public Sub OpenOfficeMail(ByVal StrFilter As String) 
    Dim oSM ''Root object for accessing OpenOffice from VB 
    Dim oDesk, oDoc As Object ''First objects from the API 
    Dim arg(-1) ''Ignore it for the moment ! 

    ''Instanciate OOo : this line is mandatory with VB for OOo API 
    oSM = CreateObject("com.sun.star.ServiceManager") 
    ''Create the first and most important service 
    oDesk = oSM.createInstance("com.sun.star.frame.Desktop") 

    ''Create a new doc 
    oDoc = oDesk.loadComponentFromURL("private:factory/swriter", "_blank", 0, arg) 
    ''Close the doc 
    oDoc.Close(True) 
    oDoc = Nothing 

    ''Open an existing doc (pay attention to the syntax for first argument) 
    oDoc = oDesk.loadComponentFromURL("file:///C:\Users\Savan\Documents\1.odt", "_blank", 0, arg) 
    Dim t_OOo As Type 
    t_OOo = Type.GetTypeFromProgID("com.sun.star.ServiceManager") 
    Dim objServiceManager As New Object 
    objServiceManager = System.Activator.CreateInstance(t_OOo) 
    Dim oMailMerge As New Object 
    oMailMerge = t_OOo.InvokeMember("createInstance", Reflection.BindingFlags.InvokeMethod, Nothing, _ 
objServiceManager, New [Object]() {"com.sun.star.text.MailMerge"}) 'com.sun.star.text.MailMerge"}) 
    oMailMerge.DocumentURL = "file:///C:\Users\Savan\Documents\1.odt" 
    oMailMerge.DataSourceName = CreateSource(StrFilter)''Function that will return the datasource name which will be a text file's path 
    oMailMerge.CommandType = 0 
    oMailMerge.Command = "file:///C:\Mail.txt" 
    oMailMerge.OutputType = 2 
    oMailMerge.execute(New [Object]() {})**---->I am getting Error here** 
End Sub