用於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