Questo articolo illustra come è possibile convertire documenti word in fogli di calcolo excel mantenendo la stessa formattazione. Supponiamo di dover formattare o ordinare i dati contenuti in un documento word. Ovviamente, excel è la scelta migliore per farlo. Fortunatamente, non è necessario digitare di nuovo i dati nel nuovo file excel: è sufficiente convertire il documento word in un foglio di calcolo excel mantenendo la stessa formattazione.L'immagine che segue mette in evidenza lo scopo di questo articolo. Date una rapida occhiata per imparare a farlo facilmente.

Scarica il quaderno di esercizi

È possibile scaricare la cartella di lavoro pratica dal pulsante di download qui sotto.

Conversione da Word a Excel.xlsm

2 modi per convertire Word in Excel con la stessa formattazione

Immaginate di avere il seguente documento Word e di volerlo convertire in un foglio di calcolo Excel. Seguite i metodi indicati di seguito.

1. Convertire Word in Excel con il copia-incolla

È sufficiente copiare i dati dal documento word e incollarli nel foglio excel. Seguire i passaggi indicati di seguito per farlo.

📌 Passi

• Per prima cosa, accedere al file di Word, quindi premere CTRL+A per selezionare l'intero documento. È anche possibile selezionare un intervallo particolare solo se necessario.
• Dopodiché, premere CTRL+C per copiare i dati come mostrato di seguito.

• Quindi, accedere al foglio di calcolo Excel e selezionare la cella in alto a sinistra dell'intervallo in cui si desidera ottenere i dati.
• Ora, premere CTRL+V per incollare i dati. In alternativa, è possibile fare clic con il tasto destro del mouse sulla cella in questione, quindi selezionare Mantenere la formattazione delle fonti (K) dal Opzioni di incollaggio .
• Successivamente, si otterrà il seguente risultato.

Per saperne di più: Come copiare da Word a Excel in più celle (3 modi)

2. Convertire Word in Excel con VBA

È possibile fare lo stesso con Excel VBA. Seguite i passaggi seguenti per farlo.

📌 Passi

• Per prima cosa, aggiungete un nuovo foglio di lavoro. Quindi, salvate la cartella di lavoro come cartella di lavoro cartella di lavoro abilitata alle macro .
• Successivamente, premere ALT+F11 per aprire la finestra VBA.
• Quindi, selezionare Inserire il modulo per creare un nuovo modulo, come mostrato nell'immagine seguente.

• Successivamente, copiare il codice seguente utilizzando il pulsante di copia.

 Sub WordToExcelWithFormatting() Dim Document, Word As Object Dim File As Variant Dim PG, Range Application.ScreenUpdating = False File = Application.GetOpenFilename _ ("File Word(*.doc;*.docx) ,*.doc;*.docx", , "ExcelWIKI.Com - Please Select") If File = False Then Exit Sub Set Word = CreateObject("Word.Application") Set Document = Word.Documents.Open(Filename:=File, ReadOnly:=True)Document.Activate PG = Document.Paragraphs.Count Set Range = Document.Range(Start:=Document.Paragraphs(1).Range.Start, _ End:=Document.Paragraphs(PG).Range.End) Range.Select On Error Resume Next Word.Selection.Copy ActiveSheet.Range("B2").Select ActiveSheet.Paste Document.Close Word.Quit (wdDoNotSaveChanges) Application.ScreenUpdating = True End Sub 

• Quindi, incollare il codice copiato nella finestra del modulo, come mostrato di seguito.

• Ora, premere F5 per eseguire il codice. È possibile farlo anche dal file Correre
• Successivamente, vi verrà chiesto di selezionare il file word che desiderate convertire.
• A questo punto, sfogliare il percorso del documento Word desiderato, quindi selezionare il file e fare clic su Aperto .

• Infine, si otterrà un risultato simile a quello ottenuto con il metodo precedente.

🔎 Come funziona il codice?

Sub WordToExcelWithFormatting()

Dim Documento, Word come oggetto

Dim File come variante

Dim PG, Gamma

Dichiarare le variabili necessarie.

Application.ScreenUpdating = False

File = Application.GetOpenFilename _

("File Word(*.doc;*.docx) ,*.doc;*.docx", , "ExcelWIKI.Com - Selezionare")

Se File = False, allora uscire dalla sub

Set Word = CreateObject("Word.Application")

Questo imposta il valore Parola come documento di Word.

Set Document = Word.Documents.Open(Filename:=File, ReadOnly:=True)

Questo assegna il Documento all'oggetto o al file a cui l'utente fa riferimento.

Documento.Attiva

PG = Document.Paragraphs.Count

Questa riga di codice assegna il parametro PG variabile al numero di paragrafi del documento word

Set Range = Document.Range(Start:=Document.Paragraphs(1).Range.Start, _ Fine:=Document.Paragraphs(PG).Range.End)

Gamma.Seleziona

In caso di errore, riprende il prossimo

Word.Selection.Copy

ActiveSheet.Range("B2").Select

ActiveSheet.Paste

Documento.Chiudi

Word.Quit (wdDoNotSaveChanges)

Application.ScreenUpdating = True

Fine Sub

Per saperne di più: Come convertire una tabella di Word in un foglio di calcolo di Excel (6 metodi)

Cose da ricordare

• È anche possibile salvare il file word in formato PDF, quindi utilizzare l'editor PDF per convertirlo in un foglio di calcolo Excel.
• Non dimenticate di salvare la cartella di lavoro come file .xlsm In caso contrario, si perderà il codice.

Conclusione

Ora sapete come convertire un documento word in un foglio excel e come mantenere la formattazione. Fateci sapere se questo articolo vi ha aiutato a risolvere il vostro problema. Potete anche utilizzare la sezione dei commenti qui sotto per ulteriori domande o suggerimenti. Visitate il nostro sito ExcelWIKI Rimanete con noi e continuate a imparare.