Dim objServiceManager As Object = CreateObject( _
          "com.sun.star.ServiceManager")
        Dim objDesktop As Object = objServiceManager.createInstance( _
        "com.sun.star.frame.Desktop")
        Dim args() As String = New String() {}
        Dim url As String = "file:///D:/dokument_leer.doc"
        Dim objDocument As Object = objDesktop.loadComponentFromURL(url, _
          "_blank", 0, args)
        Dim objText As Object = objDocument.getText
        Dim objCursor As Object = objText.createTextCursor
 
        objText.insertString(objCursor, "Überschrift", False)

 
dim args1(2) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Kind"
args1(0).Value = 3
args1(1).Name = "TemplateName"
args1(1).Value = ""
args1(2).Name = "PageNumber"
args1(2).Value = 0
 
dispatcher.executeDispatch(document, ".uno:InsertBreak", "", 0, args1())