Error al grabar macro macro comenta una linea del codigo automaticamente

[berp]

Libre Office 7.5.2.2 (x86_64) en Win 10
Al grabar una macro comenta una linea de código automáticamente.
rem ----------------------- ??? Lo comenta???---------------------------------------------
rem dispatcher.executeDispatch(document, “.uno:PasteOnlyValue”, “”, 0, Array())

rem ----------------------------------------------------------------------
El error lo genera en una simple macro que copia un rengo de celdas y des pues las copia con pegado especial / Pegar solo números.
la macro entera es esta:
REM ***** BASIC *****

sub prueba
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(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = “ToPoint”
args1(0).Value = “$D$2:$M$11”

dispatcher.executeDispatch(document, “.uno:GoToCell”, “”, 0, args1())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, “.uno:Copy”, “”, 0, Array())

rem ----------------------------------------------------------------------
dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = “ToPoint”
args3(0).Value = “$D$15”

dispatcher.executeDispatch(document, “.uno:GoToCell”, “”, 0, args3())

rem -----------------------Lo comenta???---------------------------------------------
rem dispatcher.executeDispatch(document, “.uno:PasteOnlyValue”, “”, 0, Array())

rem ----------------------------------------------------------------------
dim args5(0) as new com.sun.star.beans.PropertyValue
args5(0).Name = “ToPoint”
args5(0).Value = “$A$1”

dispatcher.executeDispatch(document, “.uno:GoToCell”, “”, 0, args5())

end sub

Alguien sabe a que se debe este fallo?
Saludos.

[Kyodake]

Para copiar un rango de celdas especificado, por ejemplo ("$D$2:$M$11") y lo pegar solo los valores numéricos en un rango de destino especificado, por ejemplo ("$D$15"). Puedes usar la propiedad “Flags” en la función “Copy” con el valor “SVDTYP_NUM” , que te permitiría copiar solo los valores numéricos en lugar de todo el formato de celda.

sub copiarSoloNumeros

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(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = “ToPoint”
args1(0).Value = “$D$2:$M$11”

dispatcher.executeDispatch(document, “.uno:GoToCell”, “”, 0, args1())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, “.uno:Select", “”, 0, Array())

rem ----------------------------------------------------------------------
dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = “Flags”
args3(0).Value = “SVDTYP_NUM”

dispatcher.executeDispatch(document, “.uno:Copy”, “”, 0, args3())

rem ----------------------------------------------------------------------
dim args4(0) as new com.sun.star.beans.PropertyValue
args4(0).Name = “ToPoint”
args4(0).Value = “$D$15”

dispatcher.executeDispatch(document, “.uno:GoToCell”, “”, 0, args4())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, “.uno:Paste”, “”, 0, Array())

end sub

[berp]

Gracias kiodake he probado tu codigo y funcina correctamente.

La macro grabada automaticamente tambiem funciona descomentando la linea comentada

rem dispatcher.executeDispatch(document, “.uno:PasteOnlyValue”, “”, 0, Array())

dispatcher.executeDispatch(document, “.uno:PasteOnlyValue”, “”, 0, Array())

La nueva pregunta a contestar es:
¿Porque si la macro se grabo automaticamente el programa comenta esa linea?.

Saludos