Makro aufzeichnen, aber das Datum ändert sich

Programmierung unter AOO/LO (StarBasic, Python, Java, ...)

Moderator: Moderatoren

PeterM1975
*
Beiträge: 16
Registriert: So, 08.03.2020 15:41

Makro aufzeichnen, aber das Datum ändert sich

Beitrag von PeterM1975 »

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

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
mikeleb
*******
Beiträge: 1315
Registriert: Fr, 09.12.2011 16:50

Re: Makro aufzeichnen, aber das Datum ändert sich

Beitrag von mikeleb »

Hallo,
in einer Zelle immer 2 x das Datum untereinander stehen
Mit dem Makrorekorder wirst du da keinen Erfolg haben.
Sinnvoller wäre es per Suchen&Ersetzen zu lösen:
Suche nach: \n.*$
Ersetzen durch:
Wichtig: Die Option "Reguläre Ausdrücke" aktivieren.
Wenn du die entsprechende Spalte vorher auswählst und die Option "Nur in Auswahl" aktivierst, bist du mit "Alle ersetzen" mit einem Klick fertig.
Gruß,
mikeleb
PeterM1975
*
Beiträge: 16
Registriert: So, 08.03.2020 15:41

Re: Makro aufzeichnen, aber das Datum ändert sich

Beitrag von PeterM1975 »

Hallo mikeleb,

ja super!

Das funktioniert richtig gut.

Danke.

VG Peter
Antworten