OpenOffice.info

Sub OO_Beenden
Doc = ThisComponent
oDialog.endexecute()
Doc.store()
Doc = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dispatcher.executeDispatch(doc, ".uno:CloseDoc", "", 0, Array())
dispatcher.executeDispatch(doc, ".uno:CloseWin ...

Danke Komma4, jetzt funktionierts nach ein paar kleinen Anpassungen auch bei mir.

Hatte mich vorns verschrieben, meinte statt MOD1 SHIFT, aber das habe ich dann selber hinbekommen.

Dank dir

Hab das mal ausprobiert, Mod2 funktioniert bei mir, aber Mod1 nicht.

Könnt ihr mir sagen wie ich die Tastenkombination "Shift + F2" umsetzen kann???

Eure Uschi

Da haben wir grad ein wenig an einander vorbei geschrieben

Soweit waren wir schon mit der F2-Taste. Mich würde aber interessieren, wie es sich mit der Tastenkombination "Shift + F2" verhält.

Kannst du mir da weiterhelfen komma4???

MFG Uschi

Ja da hast d recht komma4, aber wie wäre es denn mit Tasten wir F2 oder ähnlichen?

MFG Uschi

Also das mit den Tasten habe ich jetzt soweit hinbekommen, jedoch vermisse ich einige Tasten.

So kann ich zum Beispiel die Tastenkombination SHIFT + X nicht ausführen, da die SHIFT-Taste ne vorhanden ist.

Könnt ihr mir sagen, wie ich die SHIFT-Taste zum "Leben erwecken" kann???

Eure Uschi :shock:

Also ich möchte zum Beispiel die Tastenkombination SHIFT+F8 auf einen Button legen, um somit ein Makro darüber aufzurufen...

Ist das möglich? Wenn ja wie???

Ich stehe vor dem Problem, dass ich in einem Dialogfenster Buttons über die Tastatur steuern will.
Könnt ihr mir sagen, ob dies prinzipiell möglich ist? Und wenn ja wie man das macht?
Hab jetzt schon etliche Foren durchsucht und nichts dergleichen gefunden. Auch google war nicht sehr hilfreich ...

Habs jetzt selber hinbekommen :D
Das wird langsam...

Mein Code:


'Einlesen einer *.ini-Datei
Sub inilesen

Dim ComboBox as object
ComboBox = oDialog.GetControl("ComboBox")

If ComboBox.selectedText = "1" then
aFile = "C:\dateiname.ini"
iSpalte=0
iZeile=0

elseif ComboBox.selectedText = "2" then ...

also hab jetzt mitbekommen, dass es die ini-datei direkt untendrunter schreibt...aber es soll ja die alte datei überschreiben in calc...

Hab das jetzt so halbwegs hinbekommen, aber das Programm übernimmt nur einmal die ini-datei. Wenn ich jetzt eine andere auswählen will, wird diese nicht mehr übernommen. Könnt ihr mir sagen was ich falsch mache?

'Einlesen einer *.ini-Datei
Sub inilesen

Dim ComboBox as object
ComboBox = oDialog ...

ich komme schon mit der erzeugung der listbox nicht klar...

Bitte um Hilfe!!!

Kann mir einer nen tipp geben? will 3 dateien verwenden. wenn eine ausgewählt wurde, dann sollen die die daten von dieser in mein formular übernommen werden. mein code für eine datei ist:

'Einlesen einer *.ini-Datei
Sub inilesen

aFile = "C:\dateiname.ini"
iNumber = Freefile
Open aFile For Input ...

Kann man(n) das nicht auch mal netter sagen?

Guten morgen,
wie könnte ich nun über eine Listbox auf mehrere ini-Dateien zugreifen???
Muss man da was beachten???