OpenOffice.info

Hallo allerseits!

Da will der Zufall, dass ich gerade ein Backup fahre und deswegen nicht mit OOo testen kann - und bei der zeit die ich hier in angenehmer Atmosphäre verbringen will bekomme ich 2 gute Vorschläge die erst mal brach liegen.

@Karolus
Die beiden Tools habe ich mir geholt - aber im Moment kann ich sie nicht testen.
Was wiederum den grünen Pfeil beträfe, dass er nur das erste Makro startet, so erlaube ich mir dieses Verhalten mit ›armselig‹ zu dokumentieren. Nur muss man so was eben auch wissen, die Hilfe ist da keine solche.
Wenn es auch ungerecht klingen sollte: mit diesem Wissen hätte ich mir auf die vorgeschlagene Weise gewiss selbst zu helfen gewusst - das Problem ist halt über solche Details Wissen zu erlangen, Details zu Abweichungen zum Üblichen.

@mumpel
…aber auch aaaaausnahmsweise :D
Mir gehts hier wie unter JavaScript - das Programm steht rein funktionell & logisch, es fehlt nur noch die Syntax. Von solchen Lehrmaterialien träume ich und werde ich wohl immer träumen.

Hallo!

Zu 1. Habe ich bereits im Chip-Forum geschrieben. Aber für alle anderen noch einmal hier (ausnahmsweise).

1. Makro erstellen
2. Starbasic-Editor schließen
3. Extras->Anpassen
4. Register [color=blue]Symbolleisten[/color] wählen
5. Bei [color=blue]Speichern in[/color] Deine Datei wählen
6. Auf [color=blue]Neu[/color] klicken, um eine neue Symbolleiste zu erstellen (oder Makro in eine Standardsymbolleiste packen)
7. Auf [color=blue]Hinzufügen[/color] klicken
8. [color=blue]OpenOffice.org Makros->Deine Datei->Standard->Das Modul->Das Makro[/color], markieren und auf [color=blue]Hinzufügen[/color] klicken
9. Auf [color=blue]Schließen[/color] klicken
10. Mit Klick auf [color=blue]OK[/color] abschließen
11. Änderungen an Datei speichern

Gruß, René

sub Main
dein_makro
end sub

Hallo
zu 1. Das oberste Makro im Modul startest du mit dem "grünen Pfeil"- symbol , steht das gewünschte Makro nicht zuoberst, dann schreib oben halt schnell drei Zeilen :
[code]sub Main
dein_makro
end sub[/code]

zu 2.
[url=http://www.ooomacros.org/dev.php#101416]xray[/url] und [url=http://extensions.services.openoffice.org/de/project/MRI]Mri[/url] sind recht brauchbare Werkzeuge dazu.

Gruß Karo

:D
Merci vielmals, das tut so wie es soll!


2 Dinge hätte ich noch:

1. im Makro Editor - wie kann ich das Makro ›in dem ich bin‹ laufen lassen? Das Zahnrad klicken (umständlich rechts außen…), dann auswählen und Starten bremst die Freude doch sehr.

2. «myViewCursor.[i]jumptopage[/i](Seite)» - wo findet man diese Sorte Befehle? VBA hat ja meist eine Auto-Ergänzung wenn man den Punkt hinter einem Befehl tippt. Hier vermisse ich das; gäbe es eine thumbe Liste mit diesen Befehlen und knappen, für Programmierer ausreichenden Infos zur Einschätzung was man damit erreicht?

myViewCursor.jumptopage( Seite )

Hallo
[code]myViewCursor.jumptopage( Seite )[/code]
zumindest solange [color=#FF0000]Seite = val(Dummy)[/color] ist.

Gruß Karo

Option VBASupport 1
Option Compatible

Public Sub GeheZuSeite()
Dim Seiten As Single
Dim Seite As Double
Dim Zusatztext As String
Dim odoc As Object
Dim myViewCursor As Object
 Zusatztext = ""
 odoc = thiscomponent
 myViewCursor = odoc.GetCurrentController.ViewCursor
 Seiten = odoc.CurrentController.PageCount
 Seite = myViewCursor.getPage()
 Do
  Dummy = InputBox("Seitennummer eingeben" & Chr(13) & Chr(13) & Chr(10) & "Wir haben hier Seite 1 bis Seite " & Seiten & " zur Verfügung" & Chr(13) & _
    Chr(13) & Chr(10) & Zusatztext, "Gehe zu Seite", Seite)
  If Dummy = "" Then Exit Sub
  Seite = Val(Dummy)
  Select Case Seite
   Case Is = 0
    Zusatztext = Dummy & " ist schlichtweg ungültig..."
   Case Is < 0
    Zusatztext = "Nö, ich will nicht. Kleiner 1 (" & Seite & ") ist nicht drin."
   Case Is > Seiten
    Zusatztext = "Quark, so viele Seiten (" & Seite & ") hab ich doch gar nicht!"
   Case Else
    Zusatztext = Dummy & " ist nun völlig ungültig..."
  End Select
 Loop Until Seite >= 1 And Seite <= Seiten
 REM Selection.GoTo Name:=Str(Seite)
End Sub

Moin, Moin!

Ich suche letztlich nach der Entsprechung für einen VBA-Befehl: [color=#800000]Selection.GoTo Name:={Seitennummer [String]}[/color]

Sinn der Übung soll nichts großartigeres sein als über einen Klick auf einen Button eine Eingabebox präsentiert zu bekommen in die man die gewünschte Seitenzahl eingibt - was den Umgang mit dem Navigator ausmanövrieren soll ;)

Selbst unter MS-Word (97…) habe ich mir das geschrieben, und mit freundlicher Hilfe im CHIP Office-Forum wurde dieser VBA-Code schon mal angepasst (die Meldungen mögen mit etwas Augenzwinkern bedacht werden, ich kriege sie ja allgemein nie zu Gesicht):

[code]Option VBASupport 1
Option Compatible

Public Sub GeheZuSeite()
Dim Seiten As Single
Dim Seite As Double
Dim Zusatztext As String
Dim odoc As Object
Dim myViewCursor As Object
Zusatztext = ""
odoc = thiscomponent
myViewCursor = odoc.GetCurrentController.ViewCursor
Seiten = odoc.CurrentController.PageCount
Seite = myViewCursor.getPage()
Do
Dummy = InputBox("Seitennummer eingeben" & Chr(13) & Chr(13) & Chr(10) & "Wir haben hier Seite 1 bis Seite " & Seiten & " zur Verfügung" & Chr(13) & _
Chr(13) & Chr(10) & Zusatztext, "Gehe zu Seite", Seite)
If Dummy = "" Then Exit Sub
Seite = Val(Dummy)
Select Case Seite
Case Is = 0
Zusatztext = Dummy & " ist schlichtweg ungültig..."
Case Is < 0
Zusatztext = "Nö, ich will nicht. Kleiner 1 (" & Seite & ") ist nicht drin."
Case Is > Seiten
Zusatztext = "Quark, so viele Seiten (" & Seite & ") hab ich doch gar nicht!"
Case Else
Zusatztext = Dummy & " ist nun völlig ungültig..."
End Select
Loop Until Seite >= 1 And Seite <= Seiten
REM Selection.GoTo Name:=Str(Seite)
End Sub[/code]
Bis auf die alles entscheidende Funktion steht der Code also schon. (Fehlerabfrage falls man in einem Bild sein sollte beim Aufruf lassen wir mal weg.)

Was muss an Stelle von [color=#BF0080]Selection.GoTo Name:=Str(Seite)[/color] Befehls stehen?