Sub ServicesDokumentieren(objObjekt As Object)
  Dim objDesktop As Object
  Dim objTextDokument As Object
  Dim vntNoArgs() As Variant
  Dim vntServiceNames As Variant
  Dim objText As Object
  Dim objCursor As Object
  Dim intI As Integer

  objDesktop = createUnoService("com.sun.star.frame.Desktop")
  objTextDokument = objDesktop.loadComponentFromURL §§
  ("private:factory/swriter", "_blank", 0, vntNoArgs())
  If Not IsNull(objTextDokument) Then
     vntServiceNames = objObjekt.getAvailableServiceNames()
     objText = objTextDokument.Text
     objCursor = objText.createTextCursor
     For intI = LBound(vntServiceNames) To §§
     UBound(vntServiceNames)
        With objText
           .insertString(objCursor, vntServiceNames(intI), False)
           .insertControlCharacter(objCursor, com.sun.star §§
           .text.ControlCharacter.PARAGRAPH_BREAK, False)
        End With
     Next
  End If
End Sub

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.