Consenso all'uso dei cookies

SITO1 -- SITO2 -- Forum1 -- CercaGlobale -- Informativa su Cookie e Privacy


Valutazione discussione:
  • 0 voto(i) - 0 media
  • 1
  • 2
  • 3
  • 4
  • 5
OpenOffice/Macro Copia>Incolla con Invio
#1
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
caldo è bello, dolce è buono se ci metti anche un sorriso sei perfetto
Cita messaggio
Grazie da:
#2
Cortesemente quando ci sono testi così lunghi allegali in un file di testo...anche perchè mi pare che alcuni passaggi vengano visti come emoticon.
Cita messaggio
Grazie da: Alessandro Moroni
#3
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.


Allegati Anteprime
   
Cita messaggio
Grazie da: Alessandro Moroni
#4
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
caldo è bello, dolce è buono se ci metti anche un sorriso sei perfetto
Cita messaggio
Grazie da:
#5
(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
caldo è bello, dolce è buono se ci metti anche un sorriso sei perfetto
Cita messaggio
Grazie da:
#6
Al contrario di Excel le macro registrate con OO sono poco comprensibili, quindi è pressoché inutile allegarle, meglio descrivere l'obiettivo che ti prefiggi
Cita messaggio
Grazie da:


Vai al forum:


Utenti che stanno guardando questa discussione: 1 Ospite(i)