Cita da
Kris su 23 Maggio 2024, 14:49
Ciao Cesare, sì, è possibile utilizzare una macro per convertire un file Word in formato EPUB direttamente dalla versione 2016 o 2021. Ecco un esempio di codice VBA che puoi utilizzare per creare la macro:
Sub ConvertToEPUB()
ActiveDocument.SaveAs2 FileName:=Replace(ActiveDocument.FullName, ".docx", ".epub"), FileFormat:=wdFormatFlatXML
End Sub
Per utilizzare questa macro, segui questi passaggi:
- Apri il documento Word che desideri convertire in EPUB.
- Premi
Alt + F11
per aprire l'Editor di Visual Basic.
- Seleziona
Inserisci -> Modulo
per creare un nuovo modulo.
- Incolla il codice VBA fornito sopra all'interno del modulo.
- Premi
F5
per eseguire la macro.
Una volta eseguita la macro, il documento verrà salvato con l'estensione EPUB nella stessa cartella in cui si trova il documento originale. Ti avverto; il risultato potrebbe non essere perfetto, quindi è consigliabile controllare e apportare eventuali modifiche manualmente prima di pubblicare il file EPUB.
Spero che questo ti sia utile.
Buona serata.
Ciao Cesare, sì, è possibile utilizzare una macro per convertire un file Word in formato EPUB direttamente dalla versione 2016 o 2021. Ecco un esempio di codice VBA che puoi utilizzare per creare la macro:
Sub ConvertToEPUB()
ActiveDocument.SaveAs2 FileName:=Replace(ActiveDocument.FullName, ".docx", ".epub"), FileFormat:=wdFormatFlatXML
End Sub
Per utilizzare questa macro, segui questi passaggi:
- Apri il documento Word che desideri convertire in EPUB.
- Premi
Alt + F11
per aprire l'Editor di Visual Basic.
- Seleziona
Inserisci -> Modulo
per creare un nuovo modulo.
- Incolla il codice VBA fornito sopra all'interno del modulo.
- Premi
F5
per eseguire la macro.
Una volta eseguita la macro, il documento verrà salvato con l'estensione EPUB nella stessa cartella in cui si trova il documento originale. Ti avverto; il risultato potrebbe non essere perfetto, quindi è consigliabile controllare e apportare eventuali modifiche manualmente prima di pubblicare il file EPUB.
Spero che questo ti sia utile.
Buona serata.