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