OpenOffice.info

[quote="Lapje"]Ist irgendwann damit zu rechnen dass das auch funzen wird?[/quote]
Die Frage musst du an Microsoft richten, denn die Herrschaften dort müssten ja einen StarBasic-Interpreter in ihre Office integrieren.

Gruß
lorbass

Hallo
Teste mal die Optionen unter -->Extras-->Optionen-->Laden/Speichern--VBA-Eigenschaften...
...Wenn du dein Makro unter Excel erstellst läufts dann vmtl. in beiden Programmen.

Gruß Karo

Ist irgendwann damit zu rechnen dass das auch funzen wird? Sonst werde ich leider wieder zu MS-Office müssen...

[quote="Lapje"]die MS-Makros, die schon in dem Formular waren, funzen unter OO, nur andersrum dann nicht?[/quote]
Genau so!

Gruß
lorbass

Das ist aber recht blöd...denn die MS-Makros, die schon in dem Formular waren, funzen unter OO, nur andersrum dann nicht? Im OO-Format kann ich sie nicht abspeichern, da ich sie auch mit anderen austauschen muss...

[quote="Lapje"]Hat es was damit zu tun dass ich die Listen im Excel-Format abspeichere?[/quote]
Ja. Das Microsoft'sche Excel-Format weiß sicher nix über StartOffice-/OpenOffice.org-Makros.

Gruß
lorbass

Hallo,

es gibt doch noch ein Problem: Das Makro wird nicht im Dokument mit abgespeichert. Wenn ich die Tabelle noch mal öffne, ist das Makro wech...und ich bekomme eine Fehlermeldung dass das Script nicht gefunden werden konnte. Hat es was damit zu tun dass ich die Listen im Excel-Format abspeichere?

Die Dateien speichere ich nach jedem neuen Eintrag wieder ab... also quasi Eintrag_001.xls, Eintrag_002.xls und so weiter...

Was mache ich falsch???

besten dank

Lapje

Jetzt funktioniert es...muss das ganze jetzt nur noch einem ShortCut zuweisen, dann bin ich wieder zufrieden..;-)

besten dank für die Hilfe

Lapje

[quote="Lapje"]Es steht auf Hoch. [b]Habe es mal auf Mittel gestellt[/b], ohne Unterschied...[/quote]

Dann musst Du OO.o incl. Schnellstarter beenden und anschliessend neu starten.


Jürgen

[quote="turtle47"]Hi,

was hast Du denn unter

Menue > Extras > Optionen > OOo > Sicherheit > Makrosicherheit

eingestellt?

Jürgen[/quote]

Es steht auf Hoch. Habe es mal auf Mittel gestellt, ohne Unterschied...

Hi,

was hast Du denn unter

Menue > Extras > Optionen > OOo > Sicherheit > Makrosicherheit

eingestellt?

Jürgen

Au man, irgendwie boykotiert mich meine Tastatur heute..;-)

Also: Unter 3.1 hat es so funktioniert wenn ich es so gemacht habe wie oben beschrieben (habe es oben geändert)

Unter 3.2 keine Reaktion: Ich wähle das Makro aus, starte es aber nichts passiert, es kommt aber auch keine Fehlermeldung...

[quote="Lapje"]Habe ein Problem mit der Makro-Aufzeichnung unter OO 3.2.
[...]
Nur funktioniert das Makro nicht. Unter OO 3.2 hat es so aber funktioniert...[/quote]
Du drückst dich ziemlich ungenau aus.

Hast du nun [i]„ein Problem mit der Makro-Aufzeichnung unter OO 3.2“[/i] oder mit dem dem aufgezeichneten Makro?
Und in welcher Umgebung „[i]funktioniert das Makro nicht[/i]“, da es doch „[i]unter OOo 3.2 funktioniert hat[/i]“?
Wie schließlich drückt sich das Nicht-funktionieren aus? Was beobachtest du? Welche Fehlermeldung?

Gruß
lorbass

Rem Attribute VBA_ModuleType=VBADocumentModule
Sub DieseArbeitsmappe
Rem 
End Sub


sub Suchen_Ersetzen
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(17) as new com.sun.star.beans.PropertyValue
args1(0).Name = "SearchItem.StyleFamily"
args1(0).Value = 2
args1(1).Name = "SearchItem.CellType"
args1(1).Value = 0
args1(2).Name = "SearchItem.RowDirection"
args1(2).Value = true
args1(3).Name = "SearchItem.AllTables"
args1(3).Value = false
args1(4).Name = "SearchItem.Backward"
args1(4).Value = false
args1(5).Name = "SearchItem.Pattern"
args1(5).Value = false
args1(6).Name = "SearchItem.Content"
args1(6).Value = false
args1(7).Name = "SearchItem.AsianOptions"
args1(7).Value = false
args1(8).Name = "SearchItem.AlgorithmType"
args1(8).Value = 0
args1(9).Name = "SearchItem.SearchFlags"
args1(9).Value = 71680
args1(10).Name = "SearchItem.SearchString"
args1(10).Value = ",,"
args1(11).Name = "SearchItem.ReplaceString"
args1(11).Value = ":"
args1(12).Name = "SearchItem.Locale"
args1(12).Value = 255
args1(13).Name = "SearchItem.ChangedChars"
args1(13).Value = 2
args1(14).Name = "SearchItem.DeletedChars"
args1(14).Value = 2
args1(15).Name = "SearchItem.InsertedChars"
args1(15).Value = 2
args1(16).Name = "SearchItem.TransliterateFlags"
args1(16).Value = 1280
args1(17).Name = "SearchItem.Command"
args1(17).Value = 3

dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args1())


end sub

Hallo...

Habe ein Problem mit der Makro-Aufzeichnung unter OO 3.2.

Ich woltle mir ein Makro für eine bestimmte Suchen - Erstzen-Anweisung machen. Dabei bin ich so vorgegangen:

- Makro aufzeichnung gewählt
- strg + f "Suchen und Ersetzen"-Fenster geöffnet
- Suchbegriff und Änderungsbegriff eingegeben
- "Alle ersetzen"-Button gewählt
- Fenster geschlossen
- Makroaufzeichnung beendet
- Makro abgespeichert

Das wurde dazu von OO erstellt:

[code]Rem Attribute VBA_ModuleType=VBADocumentModule
Sub DieseArbeitsmappe
Rem
End Sub


sub Suchen_Ersetzen
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(17) as new com.sun.star.beans.PropertyValue
args1(0).Name = "SearchItem.StyleFamily"
args1(0).Value = 2
args1(1).Name = "SearchItem.CellType"
args1(1).Value = 0
args1(2).Name = "SearchItem.RowDirection"
args1(2).Value = true
args1(3).Name = "SearchItem.AllTables"
args1(3).Value = false
args1(4).Name = "SearchItem.Backward"
args1(4).Value = false
args1(5).Name = "SearchItem.Pattern"
args1(5).Value = false
args1(6).Name = "SearchItem.Content"
args1(6).Value = false
args1(7).Name = "SearchItem.AsianOptions"
args1(7).Value = false
args1(8).Name = "SearchItem.AlgorithmType"
args1(8).Value = 0
args1(9).Name = "SearchItem.SearchFlags"
args1(9).Value = 71680
args1(10).Name = "SearchItem.SearchString"
args1(10).Value = ",,"
args1(11).Name = "SearchItem.ReplaceString"
args1(11).Value = ":"
args1(12).Name = "SearchItem.Locale"
args1(12).Value = 255
args1(13).Name = "SearchItem.ChangedChars"
args1(13).Value = 2
args1(14).Name = "SearchItem.DeletedChars"
args1(14).Value = 2
args1(15).Name = "SearchItem.InsertedChars"
args1(15).Value = 2
args1(16).Name = "SearchItem.TransliterateFlags"
args1(16).Value = 1280
args1(17).Name = "SearchItem.Command"
args1(17).Value = 3

dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args1())


end sub[/code]

Nur funktioniert das Makro nicht. Unter OO 3.1 hat es so aber funktioniert...

Was mache ich falsch???

Besten dank

Lapje