用于Openoffice spreardsheet的MDSheet附加插件。面对运行时错误

我已经安装了插件（旧版本），并尝试创建类，但面临运行时错误。 http://ssaapp.di.uminho.pt/twiki/bin/view/Main/Software 这是网站链接。用于Openoffice spreardsheet的MDSheet附加插件。面对运行时错误

Sub btn_add_class_click 
    Dim oDoc As Object 
    oDoc = ThisComponent 
    Dim oRange As Object 
    oRange = GetSelectedRange(oDoc) 
    If (Not IsNull(oRange)) Then 
    Dim MDSheetService As Object 
    MDSheetService = createUnoService("MDSheet.ClassSheet") 
    'MDSheetService.modelAddColumn(0,oRange.RangeAddress.StartColumn) 
    'MsgBox "Cell (" & oRange.RangeAddress.StartColumn & "," & oRange.RangeAddress.StartRow & ")" 
    Dim oResult As Object 
    oResult = ShowAddClassDialog(oDoc) 
    If (Not IsNull(oResult)) Then 
     Dim oAddr As Object 
     oAddr = oRange.RangeAddress 
     If (oResult(2) = 0) Then ' no expansion 
     **MDSheetService.modelAddClass(oResult(0),oResult(1), _** 
      oAddr.StartColumn, oAddr.StartRow, _ 
      oAddr.EndColumn, oAddr.EndRow) 
     Else ' expansion 
     MDSheetService.modelAddExpClass(oResult(0),oResult(1), _ 
      oAddr.StartColumn, oAddr.StartRow, _ 
      oAddr.EndColumn, oAddr.EndRow, _ 
      oResult(2) - 1) 
     End If 
    End If 
    Else 
    MsgBox "No valid selection." 
    End If 
End Sub

错误标记为**。

我使用这个插件在Linux操作系统Ubuntu 14.04和OpenOffice版本4.1.1

请抛出一些建议，我怎么可以调试这个错误？

来源

2015-09-06 Haris Ansari