Date: prev next · Thread: first prev next last
2019 Archives by date, by thread · List index


Hallo Juergen & *,

nachdem Gerhard festgestellt hatte (https://listarchives.libreoffice.org/de/users/msg21491.html), dass Dein Makro bei direktem Start von "StartKopfzeile" in der BASIC-IDE (interner Start) fehlerfrei läuft im Gegensatz zum Start über die Schaltfläche "Start Texte eintragen" in der Datei "Musterbuch mit Makro_06.odt" (externer Start), habe ich mir überlegt zu schauen, was passiert, wenn man Dein Makro über ein Windows-CMD extern startet, was ja auch eine Form des externen Makro-Starts darstellt.

Da mir Dein Makro (für eventuelle Fehlersuche) durch die vielen SUBs und FUNCTIONs zu unübersichtlich ist, habe ich es mal neu geschrieben auf Basis des von Dir verwendeten Algorithmus.

Das (neue) Makro läuft fehlerhaft, wenn man den Betriebssystem-FilePicker "com.sun.star.ui.dialogs.FilePicker" auswählt.

Im Kontext der von Oliver und mir festgestellten Probleme mit dem Betriebssystem-FolderPicker "com.sun.star.ui.dialogs.FolderPicker" scheint es mir doch nun sehr wahrscheinlich, dass da ein Problem mit der Picker-Software vorliegt, wenn man die Betriebssystem-Versionen der Picker-Software verwendet - also auch Deine Probleme mit Deinem Makro wohl damit zusammenhängen.

Gruß
Hans-Werner

[1] Ergebnis (Systemumgebung: LO 6.2.2.2 (x64) @ Windows 7 Home Premium 64-bit)

[1.1] Verwendet man für die Dateiauswahl den Betriebssystem-FilePicker ("com.sun.star.ui.dialogs.FilePicker"), bleibt das Makro nach der Dateiauswahl hängen.

[1.2] Verwendet man für die Dateiauswahl den Office-FilePicker ("com.sun.star.ui.dialogs.OfficeFilePicker"), läuft das Makro fehlerfrei durch.

[1.3] Verwendet man in Deinem Makro den Office-FilePicker ("com.sun.star.ui.dialogs.OfficeFilePicker"), hat dies keine Auswirkung auf das Hängenbleiben bei dem MsgBox-Aufruf. Ich spekuliere mal, dass da wohl vielleicht noch andere ungünstige Randbedingungen auftreten, die den FilePicker-Fehler kaschieren oder auch der FilePicker-Fehler selbst andere Fehler verursacht.

[2] Das "neue" Makro

[2.1] Die Dialog-Sachen (Schaltfläche "Start Texte eintragen") habe ich durch eine einfache InputBox ersetzt.

[2.2] Die Datei "CALC.ods" ist eine unveränderte Kopie Deiner Datei "Kopfzeilen_Texte.ods".

[2.3] Die Datei "WRITER.odt" ist eine Kopie Deiner Datei "Musterbuch mit Makro_06.odt", wobei ich lediglich

+ Dein Makro "modKopfzeile" entfernt habe.
+ die Schaltfläche "Start Texte eintragen" entfernt habe.

[2.4] Soweit ich es überschaut habe, liefert mein Makro das gleiche Ergebnis wie Dein Makro (identische Seitenzahl von 249 Seiten und entsprechende Kopfzeilen-Einträge, aber auf der letzten Seite (249) gibt es eine (kleine) Abweichung:

+ Dein Makro: "Mein Text Links 10" und "Mein Text Rechts 10Mein Text Rechts 10Mein Text Rechts 10"
+ Mein Makro: "Mein Text Links 10" und "Mein Text Rechts 10"

[2.5] Falls Du weitere Abweichungen oder Fehlfunktionen in dem (neuen) Makro feststellen solltest, so melde Dich bitte.

[3] Hinweise:

[3.1] Makro (Download-Datei: Kopfzeilen.txt)

Das (neue) Makro besteht aus der "Sub Kopfzeilen" und der "Function DateiAuswahl".

[3.2] Windows-CMD (Download-Datei: Kopfzeilen.cmd)

Damit kann man das Makro (unter Windows) extern starten (für Linux entsprechend BASH-Syntax):

SET L="C:/Program Files/LibreOffice/program/soffice.exe"
SET M="macro:///Standard.Kopfzeilen.Kopfzeilen()"
%L% --nologo %M%

Mit:

+ Der Speicherpfad von "soffice.exe", muss gegebenenfalls angepasst werden:

SET L="C:/Program Files/LibreOffice/program/soffice.exe"

+ Der Speicherpfad des Makros:

SET M="macro:///Standard.Kopfzeilen.Kopfzeilen()"

+ Standard = Bibliothek = "[Meine Makros & Dialoge].Standard"
+ Kopfzeilen = Modul = "Kopfzeilen"
+ Kopfzeilen() = Makro (im Modul "Kopfzeilen")

Wenn Du das Makro in der BASIC-IDE nicht in einem Modul abspeicherst, dann nur: SET M="macro:///Standard.Kopfzeilen()"

[3.3] CALC.ods

Siehe [2.2] !

[3.4] WRITER.odt

Siehe [3.2] !

[3.5] Download-Link

https://www.magentacloud.de/share/r8eyn.v.s0

enthält:

Kopfzeilen.txt
Kopzeilen.cmd
WRITER.odt
CALC.ods

[4] Marko-Code

Dies nur zur Vorschau. Der eMail-Server wird wohl wieder aufeinanderfolgende Leerzeichen reduzieren, wodurch die Struktur vermurkst wird. Deshalb besser "Kopfzeilen.txt" anschauen und nutzen, aber für einen ersten Einblick reicht das schon:

  Sub Kopfzeilen

     Dim AAM  as Integer ' Anzahl Arrayelemente Maximum
     Dim ASM  as Integer ' Anzahl Seiten Maximum
     Dim AFGR as String  ' Absatz Formatierung Gerade   Rechtsbündig
     Dim AFUL as String  ' Absatz Formatierung Ungerade Linksbündig
     Dim DAC  as String  ' Datei Art CALC
     Dim DAW  as String  ' Datei Art WRITER
Dim DC as String ' Document CALC: "" = interaktive Dateiauswahl ' "/'pfad'/'datei'" = keine ineraktive Dateiauswahl
     Dim DF   as String  ' Dialog Form: "B" = Betriebssystem
                         '              "O" = Office
     Dim DTC  as String  ' Dialog Text CALC
     Dim DTW  as String  ' Dialog Text WRITER
Dim DW as String ' Document WRITER: "" = interaktive Dateiauswahl ' "/'pfad'/'datei'" = keine ineraktive Dateiauswahl
     AAM  = 10
     ASM  = 240
     AFGR = "_Gl_Text-8_pt_Kopf_Gerade_Rechts bündig"
     AFUL = "_Gl_Text-8_pt Kopf_Ungerade_Links bündig"
     DAC  = "ods"
     DAW  = "odt"
     DC   = ""
     DF   = "O"
     DTC  = "Bitte die Datei ""CALC.ods"" auswählen ..."
     DTW  = "Bitte die Datei ""WRITER.odt"" auswählen ..."
     DW   = ""

     Dim oDC   as Object  ' [object] Document CALC
     Dim oDW   as Object  ' [object] Document WRITER
     Dim oCC   as Object  ' [object] Current Controller
     Dim oVC   as Object  ' [object] View Cursor
     Dim aKTLS            ' [array]  Kopfzeilen Texte Linke  Seite
     Dim aKTRS            ' [array]  Kopfzeilen Texte Rechte Seite
     Dim idxA  as Integer ' [index]  A
     Dim idxB  as Integer ' [index]  B
     Dim AAF   as String  '          Aktuelles Absatz Format
     Dim BE    as String  '          Benutzer Eingabe
     Dim KT    as String  '          Kopfzeilen Text

Dim aPVDW(0) as New com.sun.star.beans.PropertyValue ' [array] Property Value Document WRITER Dim aPVDC(0) as New com.sun.star.beans.PropertyValue ' [array] Property Value Document CALC

' Nur für Testzwecke zur interaktiven Festlegung der Dateiauswahl-Dialogform ============ BE = UCase(InputBox("B = Dateiauswahl-Dialogform Betriebssystem" & Chr(10) &_ "O = Dateiauswahl-Dialogform Office" & Chr(10) &_ " " & Chr(10) &_
                         "Bitte Eingabe:"))
     If ((BE = "B") Or (BE = "O")) Then
        DF = BE
     Else
MsgBox ("Die Dateiauswahl-Dialogform """ & BE & """ ist nicht erlaubt." & Chr(10) &_
                "Das Makro wird beendet.")
        End
     End If
' =======================================================================================

     BE = InputBox("1 = Kopfzeilen erstellen" & Chr(10) &_
                   "2 = Kopfzeilen löschen"   & Chr(10) &_
                   "3 = Makro abbrechen"      & Chr(10) &_
                   " "                        & Chr(10) &_
                   "Bitte Eingabe:")

     Select Case BE
'       Kopfzeilen bearbeiten:
        Case "1","2"
' Dateiauswahl anzeigen, da kein Pfad/Datei wurde vorbelegt (s.o.):
           If (DW = "") Then
              DW = DateiAuswahl(DTW,DAW,DF)
           End If
           aPVDW(0).name  = "Hidden"
           aPVDW(0).value = False
oDW = StarDesktop.loadComponentFromURL(ConvertToURL(DW),"_blank",0,aPVDW())
           oDW = ThisComponent
           oCC = oDW.CurrentController
           oVC = oCC.getViewCursor
           oVC.jumpToPage(2)
'          Kopfzeilen erstellen
           If (BE = "1") Then
' Dateiauswahl anzeigen, da kein Pfad/Datei vorbelegt Wurde (s.o.):
              If (DC = "") Then
                 DC = DateiAuswahl(DTC,DAC,DF)
              End If
              aPVDC(0).name  = "Hidden"
              aPVDC(0).value = False
oDC = StarDesktop.loadComponentFromURL(ConvertToURL(DC),"_blank",0,aPVDC()) aKTRS() = oDC.Sheets().getByName("KopfZeilenTexte").getCellRangeByName("A1:B10").getDataArray() aKTLS() = oDC.Sheets().getByName("KopfZeilenTexte").getCellRangeByName("A11:B20").getDataArray()
              oDC.Close(True)
              For idxA = 0 To AAM-1 Step 1
                 For idxB = 0 to ASM/AAM Step 1
                    AAF = IIf(oVC.Page Mod 2 = 0,AFGR,AFUL)
KT = IIf(oVC.Page Mod 2 = 0, aKTRS(idxA)(1),aKTLS(idxA)(1))
                    With oVC
                       .jumpToStartOfPage(False)
                       .ParaStyleName = AAF
                       .gotoEndOfLine(true)
                       .String = KT
                       .collapseToEnd
                       .collapseToStart
                       .jumpToNextPage
                    End With
                 Next idxB
              Next idxA
'          Kopfzeilen löschen:
           Else
              For idxA = 0 To AAM-1 Step 1
                 For idxB = 0 to ASM/AAM Step 1
                    AAF = IIf(oVC.Page Mod 2 = 0,AFGR,AFUL)
                    With oVC
                       .jumpToStartOfPage(False)
                       .ParaStyleName = AAF
                       .gotoEndOfLine(true)
                       .String = ""
                       .collapseToEnd
                       .collapseToStart
                       .jumpToNextPage
                    End With
                 Next idxB
              Next idxA
           End If
'       Makro abbrechen:
        Case "3"
           End
'       Nicht erlaubte Benutzereingabe:
        Case Else
MsgBox("Die Eingabe """ & BE & """ ist nicht erlaubt." & Chr(10) &_
                  "Das Makro wird beendet.")
           End
     End Select
  End Sub

Function DateiAuswahl(DT as String,DA as String,DF as String) as String

'    DT = Dialog Titel | beliebiger Text
'    DA = Datei Art    | "odt" = WRITER-Datei
'                      | "ods" = CALC  -Datei
' DF = DialogForm | "B" = Betriebssystem [ "com.sun.star.ui.dialogs.FilePicker" ] ' | "O" = Office [ "com.sun.star.ui.dialogs.OfficeFilePicker" ]

     Dim oFP  as Object ' [object] File Picker
     Dim aD() as String ' [array]  Dateien
     Dim US   as String '          Uno Service

     If      (DF = "B") Then
        US = "com.sun.star.ui.dialogs.FilePicker"
     ElseIf  (DF = "O") Then
        US = "com.sun.star.ui.dialogs.OfficeFilePicker"
     Else
MsgBox("Die Dialogart """ & DF & """ ist nicht erlaubt." & Chr(10) &_
               "Das Makro wird beendet.")
        End
     End If
     oFP = createUnoService(US)
     oFP.Title = DT
     If (oFP.execute() = 1) Then
        aD = oFP.getFiles()
        DateiAuswahl = aD(0)
        If (Mid(DateiAuswahl,Len(DateiAuswahl)-2,3) <> DA) Then
MsgBox("Sie haben keine Datei mit der Endung """ & DA & """ ausgewählt:" & Chr(10) &_ "Ausgewählte Datei: " & DateiAuswahl & Chr(10) &_
                  "Das Makro wird beendet.")
           End
        End If
     Else
        MsgBox("Sie haben keine Datei ausgewählt." & Chr(10) &_
               "Das Makro wird beendet.")
        End
     End If

  End Function
--
Liste abmelden mit E-Mail an: users+unsubscribe@de.libreoffice.org
Probleme? https://de.libreoffice.org/hilfe-kontakt/mailing-listen/abmeldung-liste/
Tipps zu Listenmails: https://wiki.documentfoundation.org/Netiquette/de
Listenarchiv: https://listarchives.libreoffice.org/de/users/
Datenschutzerklärung: https://www.documentfoundation.org/privacy

Context


Privacy Policy | Impressum (Legal Info) | Copyright information: Unless otherwise specified, all text and images on this website are licensed under the Creative Commons Attribution-Share Alike 3.0 License. This does not include the source code of LibreOffice, which is licensed under the Mozilla Public License (MPLv2). "LibreOffice" and "The Document Foundation" are registered trademarks of their corresponding registered owners or are in actual use as trademarks in one or more countries. Their respective logos and icons are also subject to international copyright laws. Use thereof is explained in our trademark policy.