Makro aufzeichnen, aber das Datum ändert sich
Verfasst: So, 17.05.2020 13:05
Hallo zusamen,
ich habe das Problem, dass ich bei Kopieren von Bankdaten in einer Zelle immer 2 x das Datum untereinander stehen. Manuell kann ich es also einfach löschen mit
F2
tab Pos1
und 2x <--
Nun habe ich versucht ein Makro aufzuzeichen und dieses abzuspielen aber es ändert leider immer auch das erste Datum zu de Datum bei dem ich das Makro aufgezeichnet habe.
Kann mir jemand helfen?
VG Peter
ich habe das Problem, dass ich bei Kopieren von Bankdaten in einer Zelle immer 2 x das Datum untereinander stehen. Manuell kann ich es also einfach löschen mit
F2
tab Pos1
und 2x <--
Nun habe ich versucht ein Makro aufzuzeichen und dieses abzuspielen aber es ändert leider immer auch das erste Datum zu de Datum bei dem ich das Makro aufgezeichnet habe.
Kann mir jemand helfen?
VG Peter
Code: Alles auswählen
REM ***** BASIC *****
sub Main
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 ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:SetInputMode", "", 0, Array())
rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "StringName"
dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args2())
end sub
sub Main2
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 ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:SetInputMode", "", 0, Array())
rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "StringName"
args2(0).Value = "21.05.2020"
dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args2())
end sub