Nochmal Hallo ;-))
Ich habe mir das aufgezeichnete Makro gerade mal angeschaut und ein
wenig vereinfacht. Es schaut jetzt so aus (Achtung: Wegen der
Zeilenbreite sind einige Zeilen umgebrochen!)
> sub delnull
> 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 --------------------------------------
> rem Löschen der Zelle
>
> dim args1(0) as new com.sun.star.beans.PropertyValue
> args1(0).Name = "Flags"
> args1(0).Value = "SVDFN"
>
> dispatcher.executeDispatch(document,
> ".uno:Delete", "", 0, args1())
>
> rem ---------------------------------------
> rem Eintragen der Null
>
> dim args2(0) as new com.sun.star.beans.PropertyValue
> args2(0).Name = "StringName"
> args2(0).Value = "0"
>
> dispatcher.executeDispatch(document,
> ".uno:EnterString", "", 0, args2())
>
> end sub
Gruß,
Michael
--
____
/ / / / /__/ Michael Höhne /
/ / / / / [EMAIL PROTECTED] /
___________________________________/
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
