Function WordDokOeffnen(strURL As String) As Object
   Dim objDesktop As Object
   Dim objDokument As Object
   Dim prvFileProperties(1) As New §§
   com.sun.star.beans.PropertyValue

   prvFileProperties(0).Name="FilterName"
   prvFileProperties(0).Value="MS Word 97"
   prvFileProperties(1).Name="AsTemplate"
   prvFileProperties(1).Value=False

   objDesktop = createUnoService("com.sun.star.frame.Desktop")
   objDokument = objDesktop.loadComponentFromURL(strURL, §§
   "_blank", 0, prvFileProperties())
   If Not IsNull(objDokument) Then
      WordDokOeffnen = objDokument
   End If
End Function