Function NeuesDokument(Optional intTyp As Integer) As Object
  Dim objDesktop As Object
  Dim objDokument As Object
  Dim strModul As String

  If IsMissing(intTyp) Then
     intTyp = 1
  End If

  Select Case intTyp
  Case 2
     strModul = "scalc"
  Case 3
     strModul = "sdraw"
  Case Else
     strModul = "swriter"
  End Select

  objDesktop = createUnoService("com.sun.star.frame.Desktop")
  NeuesDokument = objDesktop.loadComponentFromURL _
  ("private:factory/" & strModul, "_blank", 0, mNoArgs())
End Function

You are viewing proxied material from gopher.rbfh.de. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.