Mechtilde schrieb:
> Hallo,
>
> Eugen Romas wrote:
>
>> Hi,
>> für eine eigene Anwendung brauche ich die Möglichkeit in ein
>> Textdokument eine DDE-Verknüpfung mittels Makro eintragen zu können.
>> Wenn ich die DDE-Verknüpfung über den normalen Dialog eintrage, dann
>> funktioniert alles wie ich es brauche. Dann habe ich mit
>> Makroaufzeichnung das gleiche Spiel wiederholt und das neue Makro
>> ausgeführt, mit dem Ergebnis, dass der Haken bei DDE fehlte und damit
>> der Rest auch falsch war.
>>
>
> Hast Du bei der Aufzeichnung auch alles per Tastatur gemacht?
>
> Mausbewegungen werden vom Makro-Recorder nicht aufgezeichnet.
>
>
>> Über Hilfe würde ich mich sehr freuen, denn ich habe schon einige Zeit
>> mit Suchen (auch in AndrewMacro.odt) verbracht und habe leider keine
>> Lösung gefunden.
>>
>
> Vielleicht kannst du uns ja noch verraten, welche OOo Version und
> welches Betriebssystem Du nutzt.
>
> Gruß
>
> Mechtilde
>
>
>
Ich nutzte Sarge mit OOo2.0.3 und habe KNOPPIX mit OOo2.1 und ubuntu mit
OOo2.1 ausprobiert und erhalte in allen Fällen diese falschen Ergebnisse.
Hier noch das Ergebnis der Aufzeichnung:
sub test2
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(6) as new com.sun.star.beans.PropertyValue
args1(0).Name = "RegionName"
args1(0).Value = "Bereich1"
args1(1).Name = "RegionCondition"
args1(1).Value = ""
args1(2).Name = "RegionHidden"
args1(2).Value = false
args1(3).Name = "RegionProtect"
args1(3).Value = true
args1(4).Name = "LinkName"
args1(4).Value = "soffice"
args1(5).Name = "FilterName"
args1(5).Value = "file:/home/eugen/Desktop/test.ods"
args1(6).Name = "SubRegion"
args1(6).Value = "Tabelle1.A9:F39"
dispatcher.executeDispatch(document, ".uno:InsertSection", "", 0, args1())
end sub
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
