There must be a "invisible" connection kept between my VB-form an LibreOffice-Writer even if the odt-document is closed already. The "invisible" connection gets only terminated if I close the VB.net-form. Can anybody help me?
Code: Select all
Sub letter_libreoffice()
Try
Dim oSM, oDesk, oDoc, oReplace As Object
Dim aNoArgs(-1) As Object
oSM = CreateObject("com.sun.star.ServiceManager")
oDesk = oSM.createInstance("com.sun.star.frame.Desktop")
oDoc = oDesk.loadComponentFromURL("file:///" & Replace(var_pfad_musterbriefe, "\", "/") & "/" & var_Dokumenten_Art, "_blank", 0, aNoArgs)
oReplace = oDoc.createReplaceDescriptor
oReplace.SearchString = "{Vorname}"
oReplace.ReplaceString = CStr(var_vorname)
oDoc.replaceAll(oReplace)
oReplace.SearchString = "{Nachname}"
oReplace.ReplaceString = CStr(var_nachname)
oDoc.replaceAll(oReplace)
If System.IO.File.Exists(CStr(var_worddokument_pfad_doc)) = False Then
var_worddokument_pfad_doc = Replace(var_worddokument_pfad_doc, "\", "/")
oDoc.storeAsURL("file:///" & var_worddokument_pfad_doc, aNoArgs)
Else
Me.Focus()
Me.Activate()
MsgBox("Document allready exists")
End If
oDoc = Nothing
oDesk = Nothing
oSM = Nothing
oReplace = Nothing
Catch ex As Exception
MsgBox("An exception occurred:" & vbCrLf & ex.Message)
End Try
End Sub