MACRO - Da file excel a word generando anche il PDF

[fabrizio2001]

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

[patel]

puoi allegare 2 file di esempio ? nel tuo codice non vedo le istruzioni per salvare in pdf

[fabrizio2001]

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.

[patel]

prova con
wrdApp.ActiveDocument.SaveAs2 nomefile3,17

[fabrizio2001]

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

Grazie in anticipo!

[patel]

è semplice, ho cercato con google vba word save as pdf

[fabrizio2001]

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

Ma intanto ottimo così che ho risolto.

[patel]

vedo che non ti piace cercare
https://msdn.microsoft.com/en-us/librar ... 36084.aspx
https://msdn.microsoft.com/en-us/librar ... 39952.aspx

[fabrizio2001]

Grazie Patel hai ragione..cercherò di essere più curioso

[Gianca532011]

X patel,

vedo che non ti piace cercare
https://msdn.microsoft.com/en-us/librar ... 36084.aspx
https://msdn.microsoft.com/en-us/librar ... 39952.aspx

,

questi mi sembrano riferimenti x word, hai anche i riferimenti x excel ? oppure sono comuni ?
grazie .

[patel]

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

[Gianca532011]

Grazie, mi hai illuminato la via.

[Gianca532011]

Se a qualcuno può interessare :
Excel VBA 2013 


concepts https://msdn.microsoft.com/en-us/librar ... 79694.aspx


Object model A -Z https://msdn.microsoft.com/en-us/librar ... 94068.aspx


How do https://msdn.microsoft.com/en-us/librar ... 20756.aspx