ich wollte umsteigen von OO zu LO
Leider gehen dann meine Makros nicht.
Ich habe aber nur 5 Makros.
Kann mir da jemand helfen bei der Umstellung ?
Ich bekomme das nicht hin...
Code: Alles auswählen
' Neue Datei öffnen ###################################################
Sub Form_oeffnen
Dim vDoc 'die geladene Komponente
Dim Arg() 'ein leeres Array der Argumenteliste
Dim sURL as String, Sframe As String, lSearch As Long
sUrl = convertToURL("d:\Daten\Firma\rechnungen\vorlage\vorlage2017.ots")
vDoc=StarDesktop.loadComponentFromURL (sURL, "_blank", 63, Arg())
end sub
Code: Alles auswählen
' Datei speichern unter M13 ###########################################
sub save2
oDoc=thisComponent
Sheet = oDoc.Sheets(0) '[erstes Arbeitsblatt]
Cell = Sheet.getCellByPosition(12, 12) '[Zelle A1]
Filename = Cell.String
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "FilterName"
args1(0).Value = "calc8"
arg = Array(com.sun.star.ui.dialogs.TemplateDescription.FILESAVE_AUTOEXTENSION)
dialog = CreateUnoService("com.sun.star.ui.dialogs.OfficeFilePicker")
'Hinweis: der Dialog "com.sun.star.ui.dialogs.FilePicker" hat einen Bug bei .DisplayDirectory
' deshalb muss hier der OO-eigene Dialog .OfficeFilePicker genutzt werden
dialog.Initialize(arg())
dialog.appendFilter( "ODF Tabellendokument (*.ods)", "*.ods" )
dialog.SetMultiselectionMode(False)
dialog.DisplayDirectory = ConvertToURL("D:\Daten\Firma\rechnungen\2017\")
dialog.DefaultName = Filename
ok = dialog.execute()
if ok = 1 Then
datei = dialog.getFiles()
URL = datei(0)
oDoc.storeasurl(URL, args1())
end if
end sub
Code: Alles auswählen
' Datum per Strg+9 ####################################################
Sub AktuellesDatumEinfuegen
' thisComponent.CurrentSelection().setString(date())
thisComponent.CurrentSelection().setValue(date())
End Sub
Code: Alles auswählen
' Vorlage speichern ##################################################################
sub savevorlage
msg = msgbox("Vorlage überschreiben ?",4)
if msg = 6 then
oDoc=thisComponent
Sheet = oDoc.Sheets(0) '[erstes Arbeitsblatt]
Filename = "vorlage2016"
mycell01 = Sheet.getCellRangeByName("$M$11")
mycell01.string = ""
Path = "file:///d:/daten/firma/rechnungen/vorlage/" '[Pfad anpassen bei Windows]
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "FilterName"
args1(0).Value = "StarOffice XML (Calc)"
oDoc.storeasurl(Path & Filename & ".ots",args1())
end if
end sub
Code: Alles auswählen
' PDF Drucken ########################################################################
sub DruckerX
dim document as object
dim dispatcher as object
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Printer"
args1(0).Value = "FreePDF"
dispatcher.executeDispatch(document, ".uno:Printer", "", 0, args1())
dim args2(1) as new com.sun.star.beans.PropertyValue
args2(0).Name = "Copies"
args2(0).Value = 1
args2(1).Name = "Collate"
args2(1).Value = false
dispatcher.executeDispatch(document, ".uno:Print", "", 0, args2())
end sub