OpenOffice - Error metodo DrawPages

Hola.

Estoy creando una macro en OpenOffice, adjunto ejemplo:
Sub Macro1
Dim Doc As Object
Dim Pagina As Object
Dim FormaObjetoGrafico As Object
Dim Punto As New com.sun.star.awt.Point
Dim Tamano As New com.sun.star.awt.Size

Punto.x = 1000

Punto.y = 1000
Tamano.Width = 10000
Tamano.Height = 10000

Doc = StarDesktop.CurrentComponent
Pagina = Doc.drawPages(0)

FormaObjetoGrafico = Doc.createInstance("com.sun.star.drawing.GraficoObjectShape")

FormaObjetoGrafico.Size = Tamano
FormaObjetoGrafico.Position = Punto

FormaObjetoGrafico.GraphicURL = "file:///c:/esperanza/Catalogo_Peggy_Sage/fotos/portada.jpeg"
FormaObjetoGrafico.AdjustBlue = -50
FormaObjetoGrafico.AdjustGreen = 5
FormaObjetoGrafico.AdjustBlue = 10
FormaObjetoGrafico.AdjustContrast = 20
FormaObjetoGrafico.AdjustLuminance = 50
FormaObjetoGrafico.Transparency = 40
FormaObjetoGrafico.GraphicColorMode = com.sun.star.drawing.ColorMode.STANDARD

Pagina.add(FormaObjectoGrafico)
End Sub

y al ejecutarla me da el siguiente error:

'Property or method not found para el metodo drawPages(0), ¡que necesito hacer'

gracias