Подскажите, пожалуйста как переделать макрос чтобы он работал в Libreoffice

Sub Адрес()


dosyaadil=Cells(1,14)
donbass:
Setklasor=CreateObject(“she’ll.application).Browseforfolder(0,”введите адрес”,100,&HO)

If klasor Is Nothing Then GoTo donbasa
kaynak=klasor.self.Path
Cells(1,14)=kaynak
kayityeri=Cells(1,14)


End Sub


Sub Печать



reportno=Cells(8,3)
dosyayolu=Cells(1,14)
AA=Cells(6,3)
BB=Cells(6,4)
If AA>BB Then
   Cells(6,3)=AA
   BB=Cells(6,3)

Else
End if
If dosyayolu=“”Then
   MsgBox “Lutfen klasor Secimini Yapiniz!”,vblnformation, “Uyari”
   Call Адрес
   dosyayolu=Cells(1,14)
Else
End if
Application.ScreenUpdating=False
For its=AA To BB Step1
    Cells(6,3)=it’s
    Sheets(“Данные”).Calculate
    reportno=Cells(5,6)

ChDir dosyayolu

Sheets(“РД”).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True,_
IgnorePrintAreas:=False

Worksheets(Array(“РД”)).Select
ФИО=Sheets(“РД”).Cells(2,12)
Способ=Sheets(“РД”).Cells(5,12)
Имя=ФИО & “ “ & Способ
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=_
Имя, Quality:=xlQualityStandard,_
InvludeDocProperties:=True,IgnorePrintAreas:=Fals,OpenAfterPublish:=False
Sheets(“Данные”).Select
Next jts

Application.ScreenUpdating=True


End Sub