Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

MACRO - Da file excel a word generando anche il PDF

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

MACRO - Da file excel a word generando anche il PDF

Postdi fabrizio2001 » 09/12/16 14:35

Ciao a tutti,
sono nuovo e mi occorre il vostro supporto.

Ho creato una macro che tramite i segnalibri va a scrivere sul un file word alcuni dati presi da determinate celle di un foglio excel; e fin qui tutto ok.

Nella fase finale salvo questo file word con un nuovo nome cosi da lasciare il file iniziale vergine con i segnalibri utili per un prossimo riutilizzo.

Oltre a salvare il file word mi occorre salvare una copia in PDF; ma proprio qui mi genera il file PDF ma non me lo fa aprire scrivendomi questo: "adobe reader non è in grado di aprire il file perchè è un tipo di file non supportato oppure perchè il file è stato danneggiato)

Di seguito il codice che utilizzo:

*****************************************************************************

Sub Macro1()
Dim sFILENAME As String

nomefile = Range("E2").Value
ragione_sociale = Range("B2").Value
data_ora_scadenza = Range("B3").Value

FileDaAprire = "STANDARD.docx"

sFILENAME = ThisWorkbook.Path & "\" & FileDaAprire

Set wrdApp = CreateObject("Word.Application")

wrdApp.Visible = True

Set wrdDoc = wrdApp.Documents.Open(sFILENAME)

With wrdDoc

.Bookmarks("ragione_sociale").Range.Text = ragione_sociale

.Bookmarks("data_ora_scadenza").Range.Text = data_ora_scadenza

nomefile2 = ThisWorkbook.Path & "\" & nomefile & ".docx"

nomefile3 = ThisWorkbook.Path & "\" & nomefile & ".pdf"

End With

wrdApp.ActiveDocument.SaveAs (nomefile2)

wrdApp.ActiveDocument.SaveAs (nomefile3)

wrdApp.Quit

End Sub
*****************************************************************************

Avete qualche suggerimento?

Grazie in anticipo
fabrizio2001
Newbie
 
Post: 8
Iscritto il: 09/12/16 14:23

Sponsor
 

Re: MACRO - Da file excel a word generando anche il PDF

Postdi patel » 09/12/16 16:19

puoi allegare 2 file di esempio ? nel tuo codice non vedo le istruzioni per salvare in pdf
patel
Utente Senior
 
Post: 309
Iscritto il: 24/04/12 16:03

Re: MACRO - Da file excel a word generando anche il PDF

Postdi fabrizio2001 » 09/12/16 16:25

nomefile2 = ThisWorkbook.Path & "\" & nomefile & ".docx"

nomefile3 = ThisWorkbook.Path & "\" & nomefile & ".pdf"

End With

wrdApp.ActiveDocument.SaveAs (nomefile2) (qui salva in docx tutto correttamente)

wrdApp.ActiveDocument.SaveAs (nomefile3) (qui salva in pdf ma quando provo ad aprirlo va in errore)


Immagina file excel con le celle B2 e B3 valorizzate.
Questi dati tramite segnalibri li riporto sul file word.
Lo salvo e provo a salvare il pdf (me lo genera ma mi da errore quando lo apro)

Se serve altro allego i file.
fabrizio2001
Newbie
 
Post: 8
Iscritto il: 09/12/16 14:23

Re: MACRO - Da file excel a word generando anche il PDF

Postdi patel » 09/12/16 16:54

prova con
wrdApp.ActiveDocument.SaveAs2 nomefile3,17
patel
Utente Senior
 
Post: 309
Iscritto il: 24/04/12 16:03

Re: MACRO - Da file excel a word generando anche il PDF

Postdi fabrizio2001 » 09/12/16 17:26

Sembra andare! Ottimo!
Mi spieghi cosa vuol dire la nomenclatura? così capisco anche come hai fatto.

Grazie in anticipo!
fabrizio2001
Newbie
 
Post: 8
Iscritto il: 09/12/16 14:23

Re: MACRO - Da file excel a word generando anche il PDF

Postdi patel » 09/12/16 19:13

è semplice, ho cercato con google vba word save as pdf
patel
Utente Senior
 
Post: 309
Iscritto il: 24/04/12 16:03

Re: MACRO - Da file excel a word generando anche il PDF

Postdi fabrizio2001 » 12/12/16 09:56

Ahahhaha mitico..no volevo capire cosa significasse il ,17 e perchè si mette SaveAs2.

Ma intanto ottimo così che ho risolto.
fabrizio2001
Newbie
 
Post: 8
Iscritto il: 09/12/16 14:23


Re: MACRO - Da file excel a word generando anche il PDF

Postdi fabrizio2001 » 14/12/16 16:04

Grazie Patel hai ragione..cercherò di essere più curioso ;)
fabrizio2001
Newbie
 
Post: 8
Iscritto il: 09/12/16 14:23

Re: MACRO - Da file excel a word generando anche il PDF

Postdi Gianca532011 » 18/12/16 13:35

X patel,
,

questi mi sembrano riferimenti x word, hai anche i riferimenti x excel ? oppure sono comuni ?
grazie .
Giancarlo
win 10 - Office 2016 Ita
Gianca532011
Utente Senior
 
Post: 252
Iscritto il: 27/05/11 10:18

Re: MACRO - Da file excel a word generando anche il PDF

Postdi patel » 18/12/16 16:43

sono riferim per word perché stavamo parlando di salvare un file di word su pdf.
come già detto, quando non si sa qualcosa (a me capita spesso) basta cercare con google
patel
Utente Senior
 
Post: 309
Iscritto il: 24/04/12 16:03

Re: MACRO - Da file excel a word generando anche il PDF

Postdi Gianca532011 » 18/12/16 20:57

Grazie, mi hai illuminato la via.
Giancarlo
win 10 - Office 2016 Ita
Gianca532011
Utente Senior
 
Post: 252
Iscritto il: 27/05/11 10:18

Re: MACRO - Da file excel a word generando anche il PDF

Postdi Gianca532011 » 19/12/16 12:23

Giancarlo
win 10 - Office 2016 Ita
Gianca532011
Utente Senior
 
Post: 252
Iscritto il: 27/05/11 10:18


Torna a Applicazioni Office Windows


Topic correlati a "MACRO - Da file excel a word generando anche il PDF":


Chi c’è in linea

Visitano il forum: Nessuno e 24 ospiti