Forum Informatica 2 Majorana
OpenOffice/Macro Copia>Incolla con Invio - Versione stampabile

+- Forum Informatica 2 Majorana (http://www.istitutomajorana.it/forum2)
+-- Forum: Software per Ubuntu, Windows, ecc..., Argomenti Vari (http://www.istitutomajorana.it/forum2/Forum-Software-per-Ubuntu-Windows-ecc-Argomenti-Vari)
+--- Forum: Ufficio ed Internet (http://www.istitutomajorana.it/forum2/Forum-Ufficio-ed-Internet)
+--- Discussione: OpenOffice/Macro Copia>Incolla con Invio (/Thread-OpenOffice-Macro-Copia-Incolla-con-Invio)



OpenOffice/Macro Copia>Incolla con Invio - Alessandro Moroni - 08-01-2016

Ciao
con registra macro "riesco" a scrivere questo e attivandolo su evento con doppio click il tutto funziona bene vorrei però poterlo fare anche con "Invio". E' possibile aggiungere una riga di "comando"?

grazie tante Smile

Codice:
sub CopiaIncollaSenzaSalvare
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 args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "ToPoint"
args2(0).Value = "$BJ$1"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args2())

rem ----------------------------------------------------------------------
dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "ToPoint"
args3(0).Value = "$F$9:$BR$9"

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

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

rem ----------------------------------------------------------------------
dim args5(0) as new com.sun.star.beans.PropertyValue
args5(0).Name = "ToPoint"
args5(0).Value = "$F$9"

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

rem ----------------------------------------------------------------------
dim args6(1) as new com.sun.star.beans.PropertyValue
args6(0).Name = "By"
args6(0).Value = 1
args6(1).Name = "Sel"
args6(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoDownToEndOfData", "", 0, args6())

rem ----------------------------------------------------------------------
dim args7(1) as new com.sun.star.beans.PropertyValue
args7(0).Name = "By"
args7(0).Value = 1
args7(1).Name = "Sel"
args7(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args7())

rem ----------------------------------------------------------------------
dim args8(5) as new com.sun.star.beans.PropertyValue
args8(0).Name = "Flags"
args8(0).Value = "SVDT"
args8(1).Name = "FormulaCommand"
args8(1).Value = 0
args8(2).Name = "SkipEmptyCells"
args8(2).Value = false
args8(3).Name = "Transpose"
args8(3).Value = false
args8(4).Name = "AsLink"
args8(4).Value = false
args8(5).Name = "MoveMode"
args8(5).Value = 4

dispatcher.executeDispatch(document, ".uno:InsertContents", "", 0, args8())

rem ----------------------------------------------------------------------
dim args9(0) as new com.sun.star.beans.PropertyValue
args9(0).Name = "ToPoint"
args9(0).Value = "$BJ$2"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args9())

rem ----------------------------------------------------------------------
dim args10(0) as new com.sun.star.beans.PropertyValue
args10(0).Name = "Flags"
args10(0).Value = "SVD"

dispatcher.executeDispatch(document, ".uno:Delete", "", 0, args10())

rem ----------------------------------------------------------------------
dim args11(0) as new com.sun.star.beans.PropertyValue
args11(0).Name = "ToPoint"
args11(0).Value = "$F$4"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args11())

rem ----------------------------------------------------------------------
dim args12(0) as new com.sun.star.beans.PropertyValue
args12(0).Name = "Flags"
args12(0).Value = "SVD"

dispatcher.executeDispatch(document, ".uno:Delete", "", 0, args12())

rem ----------------------------------------------------------------------
dim args13(0) as new com.sun.star.beans.PropertyValue
args13(0).Name = "ToPoint"
args13(0).Value = "$F$4"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args13())


end sub



RE: OpenOffice/Macro Copia>Incolla con Invio - eu66 - 08-01-2016

Cortesemente quando ci sono testi così lunghi allegali in un file di testo...anche perchè mi pare che alcuni passaggi vengano visti come emoticon.


RE: OpenOffice/Macro Copia>Incolla con Invio - d4rkheart - 08-01-2016

Oppure inserisci il testo tra i tag code, stavolta l'ho fatto io...la prossima pensaci tu Alessandro, o file di testo con la macro come ti ha consigliato eu66 oppure usa i tag.


RE: OpenOffice/Macro Copia>Incolla con Invio - Alessandro Moroni - 08-01-2016

Ciao,
scusatemi non lo sapevo
invierò sempre un file di testo
ho fatto una ricerca ho visto che tag sono <> ma non ho capito come si mettono

grazie del consiglio/precisazione


RE: OpenOffice/Macro Copia>Incolla con Invio - Alessandro Moroni - 08-01-2016

(08-01-2016,14:18 )d4rkheart Ha scritto: Oppure inserisci il testo tra i tag code, stavolta l'ho fatto io...la prossima pensaci tu Alessandro, o file di testo con la macro come ti ha consigliato eu66 oppure usa i tag.

scusa d4rkheart
ho visto ora che mi hai anche inviato come si fa Disperato

ciao


RE: OpenOffice/Macro Copia>Incolla con Invio - patel - 08-01-2016

Al contrario di Excel le macro registrate con OO sono poco comprensibili, quindi è pressoché inutile allegarle, meglio descrivere l'obiettivo che ti prefiggi