macro salvataggio file word sia in PDF sia in word nella stessa destinazione del file originale

[16fra]

Salve non riesco proprio a trovare la soluzione ;-(

ho creato una macro per eseguire delle modifiche sistematiche a file di word, questa parte della macro funziona correttamente.
Non sono riuscito, invece, ad implementare la parte relativa il salvataggio sistematico in formato pdf.

la macro che si auto compila è questa:

Sub salva_pdf_nome_pos_attuale()
'
' salva_pdf_nome_pos_attuale Macro
'
'
ActiveDocument.ExportAsFixedFormat OutputFileName:= _
"C:\Users\16fra\Desktop\prova.pdf" _
, ExportFormat:=wdExportFormatPDF, OpenAfterExport:=True, OptimizeFor:= _
wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
BitmapMissingFonts:=True, UseISO19005_1:=False
ActiveDocument.Save
End Sub

ho provato a correggerla sostituendo l'intero indirizzo del file con -OutputFileName:=PercFile & "\" & Name & " .pdf" -

Sub salva_pdf_nome_pos_attuale()
'
' salva_pdf_nome_pos_attuale Macro
'
'
ActiveDocument.ExportAsFixedFormat OutputFileName:=PercFile & "\" & Name & " .pdf"
, ExportFormat:=wdExportFormatPDF, OpenAfterExport:=True, OptimizeFor:= _
wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
BitmapMissingFonts:=True, UseISO19005_1:=False
ActiveDocument.Save
End Sub

ma non ha funzionato...

Vorrei rendere la macro indipendente dal nome e dalla destinazione del file con cui la ho genereata.

Grazie

Buona serata a tutti ;-)

[16fra]

Buon giorno,
non riesco a trovare informazioni su PercFile... l'istruzione è corretta?

la sintassi è corretta?
OutputFileName:=PercFile & "\" & Name & " .pdf"

Grazie
Buona giornata
;-)

[16fra]

opsss
leggendo meglio la macro da cui avevo preso spunto (http://forum.html.it/forum/showthread/t-1498399.html)mi sono accorto dei grossolani errori commessi... :-(

Sub salva_file_prova()
'
' salva_file_prova
'
'
ActiveDocument.ExportAsFixedFormat OutputFileName:=ActiveDocument.Path & "\" & TxtNome.Text & " .pdf", ExportFormat:=wdExportFormatPDF, OpenAfterExport:=True, OptimizeFor:= _
wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
BitmapMissingFonts:=True, UseISO19005_1:=False
ActiveDocument.Save
End Sub

... nonostante la correzione non funziona :-(

le istruzioni, ActiveDocument.Path, TxtNome.Text, possono essere utilizzate direttamente

Grazie

[renygade]

opsss
leggendo meglio la macro da cui avevo preso spunto (http://forum.html.it/forum/showthread/t-1498399.html)mi sono accorto dei grossolani errori commessi... :-(

Sub salva_file_prova()
'
' salva_file_prova
'
'
ActiveDocument.ExportAsFixedFormat OutputFileName:=ActiveDocument.Path & "\" & TxtNome.Text & " .pdf", ExportFormat:=wdExportFormatPDF, OpenAfterExport:=True, OptimizeFor:= _
wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
BitmapMissingFonts:=True, UseISO19005_1:=False
ActiveDocument.Save
End Sub

... nonostante la correzione non funziona :-(

le istruzioni, ActiveDocument.Path, TxtNome.Text, possono essere utilizzate direttamente

Grazie

Ma non funziona cosa significa? Perché non funziona? Ti da un errore di sintassi, un errore a run-time, non crea il file.. spiega un po' meglio la situazione altrimenti è impossibile aiutarti..

[16fra]

risolto
grazie
se interessasse a qualcuno sono a disposizione
;-)

[renygade]

risolto
grazie
se interessasse a qualcuno sono a disposizione
;-)

E' buona regola dei forum postare le soluzioni trovate in modo che possano risultare utili a chi in futuro affronterà le tue stesse problematiche/difficoltà.
Per favore posta il codice funzionante.

[16fra]

E' buona regola dei forum postare le soluzioni trovate in modo che possano risultare utili a chi in futuro affronterà le tue stesse problematiche/difficoltà.
Per favore posta il codice funzionante.

renygade appena riesco a mettere a punto la macro completa e funzionante la pubblico...

vorrei che nel complesso mi permetta di applicare le azioni a tutti i file contenuti in una determinata cartella, che sarà di sicuro frutto del vostro generoso aiuto combinato a questo all'altro post aperto

;-)

Francesco