Pagina 1 di 1
Macro PDF>Calc per "saltare" finestra di Incolla Spec.
Inviato: sabato 23 settembre 2023, 19:21
da Barakkino
Buonasera,
Ho un PDF (SDI Agenzia Delle Entrate) e vorrei incollarlo su un foglio di Calc.
Il PDF è una fattura digitale, in una versione "particolare" (scusate la mia ignoranza), che io incollo su un foglio di Calc con:
Incolla speciale> Testo non formattato > Separato > : (due punti)
Dopo avere copiato il testo vorrei sapere se è possibile, con una macro (incolla>:), saltare questo passaggio?
Grazie
PS Il PDF è una mail su PEC ho visto che si potrebbe "saltare" anche "apri>copia" ma credo che sia un passaggio troppo lungo da spiegarmi e soprattutto per me capire
Re: Macro PDF>Calc per "saltare" finestra di Incolla Spec.
Inviato: sabato 23 settembre 2023, 21:12
da patel
Hai provato ad usare il registratore di macro ?
Re: Macro PDF>Calc per "saltare" finestra di Incolla Spec.
Inviato: sabato 23 settembre 2023, 22:25
da Barakkino
patel ha scritto: ↑sabato 23 settembre 2023, 21:12
Hai provato ad usare il registratore di macro ?
Grazie, Patel
Non ci avevo pensato. Domani ci provo
Re: Macro PDF>Calc per "saltare" finestra di Incolla Spec.
Inviato: lunedì 25 settembre 2023, 12:36
da Barakkino
patel ha scritto: ↑sabato 23 settembre 2023, 21:12
Hai provato ad usare il registratore di macro ?
Buongiorno Patel
ho provato con "Registra Macro", ma non va
Se fosse un semplice incolla andrebbe bene, ma con un incolla speciale non si può. Si apre sempre la finestra di come incollare (il passaggio che volevo saltare)
Grazie
Re: Macro PDF>Calc per "saltare" finestra di Incolla Spec.
Inviato: lunedì 25 settembre 2023, 16:13
da Gaetanopr
Lo stesso problema che ho avuto in un paio di miei files, ho cercato a lungo ma niente da fare pare che non esista un modo per passare i parametri a TextToColumns, anzi in realtà non prevede passaggio di parametri, ho pure provato a creare una macro in VBA e tramite Option Support VBA a farla girare su OpenOffice ma non ha funzionato, quindi ho abbandonato e sto cercando di risolvere il problema alla fonte, cioè nell'importazione.
L'unica cosa che puoi fare è riprodurre la finestra di dialogo con i parametri che occorrono e premere il tasto OK da macro.
Per riprodurre la finestra di dialogo ti basta impostarla una volta e poi ad ogni chiamata verrà riproposta l'impostazione precedente, quindi stabilito questo si va a premere Ok.
Prova la seguente macro.
Codice: Seleziona tutto
sub Main
dim document as object
dim dispatcher as object
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dispatcher.executeDispatch(document, ".uno:PasteUnformatted", "", 0, Array())
Dim shell As Object
Set shell = CreateObject("WScript.Shell")
shell.SendKeys "{ENTER}", True
end sub
Oppure potresti copiare il testo negli appunti e tramite macro fare incolla e provvedere a dividerlo nelle giuste colonne.