BITTE helfen Sie uns HEUTE mit einer SPENDE
Helfen Sie das LibreOffice Forum zu erhalten!

❤️ DANKE >><< DANKE ❤️

> KEINE WERBUNG FÜR REGISTRIERTE BENUTZER!<
Ihre Spende wird für die Deckung der laufenden Kosten sowie den Erhalt und Ausbau 🌱 des LibreOffice Forums verwendet.
🤗 Als Dankeschön werden Sie im Forum als LO-SUPPORTER gekennzeichnet. 🤗

Makros

Alles zur Programmierung im LibreOffice.
Antworten
BritzFox
Beiträge: 10
Registriert: Fr 17. Mär 2017, 17:49

Makros

Beitrag von BritzFox » Fr 17. Mär 2017, 18:01

Hi,
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 

musikai
Beiträge: 262
Registriert: Do 14. Mai 2015, 17:53

Re: Makros

Beitrag von musikai » Fr 17. Mär 2017, 18:52

OO und LO sind makro-technisch ja im Grunde fast identisch. Was funktioniert denn nicht?
Win7 Pro, Sibelius 7.1.3, Lubuntu 15.10, LibO 4.4.7, OO 4.1.3
Free Project: LibreOffice Songbook Architect (LOSA)
http://struckkai.blogspot.de/2015/04/li ... itect.html

Benutzeravatar
karolus
Beiträge: 2170
Registriert: Fr 10. Dez 2010, 10:01

Re: Makros

Beitrag von karolus » Sa 18. Mär 2017, 00:58

Hallo
1. Sind deine Makros bereits umgezogen zu ihrem neuen "Arbeitsplatz" ?? falls nein… hilf ihnen ein wenig beim Umzug! … soll heissen AOO und LO benutzen unterschiedliche Pfade für die Benutzerkonfiguration.

2. auch die evtl. von dir angelegten Tastaturkürzel müssen neu zugewiesen werden.

LO7.4.7.2 debian 12(bookworm) auf Raspberry4b 8GB (64bit)
LO7.6.3.2 flatpak debian 12(bookworm) auf Raspberry4b 8GB (64bit)

BritzFox
Beiträge: 10
Registriert: Fr 17. Mär 2017, 17:49

Re: Makros

Beitrag von BritzFox » Sa 18. Mär 2017, 10:44

So, die Fehler konnte ich beseitigen.
Da war ein fehlerhaftes Makro, keine Ahnung wo das her war...

Aber...
Die Makros laufen in Dokument 1.
Dokument 1 öffnet mit Makro Dokument 2
Und schon gehen die Makros nicht mehr ???

Und ich bekomme die Makros nicht als Symbol in die Menüzeile, sondern nur als Text.

BritzFox
Beiträge: 10
Registriert: Fr 17. Mär 2017, 17:49

Re: Makros

Beitrag von BritzFox » Sa 18. Mär 2017, 12:00

So, hat sich alles aufgelöst.
Die Makros habe ich einfach kopiert nach LO-Makros.
Symbole gingen nicht in der Portable Version.
Scripte hatten Fehler wegen einem fehlerhaften Eintrag.
1000 Dank trotzdem

An alle, die das LibreOffice-Forum nutzen:


Bitte beteiligen Sie sich mit 7 Euro pro Monat und helfen uns bei unserem Budget für das Jahr 2024.
Einfach per Kreditkarte oder PayPal.
Als Dankeschön werden Sie im Forum als LO-SUPPORTER gekennzeichnet.

❤️ Vielen lieben Dank für Ihre Unterstützung ❤️

Antworten