Creazione epub direttamente a Ms office

Question

Buongiorno,

ho trovato queste istruzioni che dovrebbero consentire di creare un documento in formato epub da un documento word, ma non funziona:

Sub ConvertToEPUB()

ActiveDocument.SaveAs2 FileName:=Replace(ActiveDocument.FullName, ".docx", ".epub"), FileFormat:=wdFormatFlatXML 

End Sub

c'è qualche errore nella scrittura della macro?

Grazie

Rosetta

Answer 1

La risposta è stata tradotta automaticamente. Di conseguenza, potrebbero esserci errori grammaticali o parole insolite.

Ciao, Rosetta..

Benvenuto nella community Microsoft.

La macro fornita tenta di salvare un documento di Word come file EPUB specificando wdFormatFlatXML come formato di file, che non è corretto per i file EPUB. Word non supporta in modo nativo il salvataggio diretto in formato EPUB. Tuttavia, puoi prima salvare il documento come HTML e poi convertirlo in EPUB utilizzando uno strumento di terze parti.

Di seguito è riportata una versione della macro che salva il documento in formato HTML:

Sub ConvertToHTML()

    ActiveDocument.SaveAs2 FileName:=Replace(ActiveDocument.FullName, ".docx", ".html"), FileFormat:=wdFormatFilteredHTML

End Sub

Oltre a salvare prima su .HTML, ti consiglio di seguire alcuni suggerimenti di Jay Freedman nella comunità inglese che potrebbero aiutarti con il tuo flusso di lavoro, incluso come convertirlo in formato EPUB.

Supporto per i file Epub in Microsoft Office Word 2013 - Microsoft Community

Sentiti libero di farci sapere se qualcosa non è chiaro.

Migliori saluti

Hannah.Z- MSFT |Specialista del supporto della community Microsoft