Macro PDF>Calc per "saltare" finestra di Incolla Spec.

[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

[patel]

Hai provato ad usare il registratore di macro ?

[Barakkino]

Hai provato ad usare il registratore di macro ?

Grazie, Patel
Non ci avevo pensato. Domani ci provo

[Barakkino]

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

[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.