Cerrar documento Calc desde un dialogo

Saludos. Ayer actualize LibreOffice a la versión 5, ya que antes trabajaba con la versión estable 4, y tengo problemas para cerrar un documento de Calc desde un cuadro de dialogo. Con la versión anterior iba perfecto pero con esta nueva versión me cierra todos los documentos que hay abiertos dando el error:
SEH Exception: ACCES VIOLATION.

El código que he ulizado es muy simple:

Dim Dialog1 As Object

Sub cargadialogo1

	DialogLibraries.LoadLibrary("Standard")
	Dialog1=createUnoDialog(DialogLibraries.Standard.Dialog1)
	Dialog1.execute()
	Dialog1.dispose()
End sub

Sub cerrardocumento

    Dim oDoc As Object
    Dialog1.EndExecute()
    oDoc=ThisComponent.CurrentController.Frame
    oDoc.close(True)
    
    End Sub

La macro es muy simple. Se carga el diálogo al abrir el documento. El diálogo es muy simple con solo el boton para cerrar el documento. Cuando pulso el botón ocurre el problema comentado anteriormente. Sin embargo si cierro el cuadro de dialogo con la x y luego cierro el documento sin grabar no me ocurre.

¿Alguien sabe solución al problema? .Gracias de antemano

Por favor comprueba si este hilo en el foro de Aoo te ayuda a resolver la cuestión.

https://forum.openoffice.org/es/forum/viewtopic.php?f=50&t=10890&p=46724&hilit=macro+cerrar+documento#p46724

Voy a intentarlo. Gracias