Cuprins
Acest articol ilustrează modul în care puteți converti documentele word în foi de calcul excel, dar păstrând aceeași formatare. Să presupunem că trebuie să formatați sau să sortați datele care se află într-un document word. Evident, excel este cea mai bună alegere pentru a face acest lucru. Din fericire, nu trebuie să tastați din nou datele în noul fișier excel. Puteți pur și simplu să convertiți documentul word într-o foaie de calcul excel, păstrând în același timpFormatarea. Următoarea imagine evidențiază scopul acestui articol. Aruncați o privire rapidă prin ea pentru a afla cum să faceți acest lucru cu ușurință.
Descărcați caietul de practică
Puteți descărca caietul de practică de la butonul de descărcare de mai jos.
Conversia Word în Excel.xlsm
2 moduri de a converti Word în Excel cu aceeași formatare
Imaginați-vă că aveți următorul document Word. Acum doriți să îl convertiți într-o foaie de calcul Excel. Atunci urmați metodele de mai jos.
1. Conversia din Word în Excel cu Copy-Paste
Puteți pur și simplu să copiați datele din documentul Word și să le lipiți pe foaia Excel. Urmați pașii de mai jos pentru a face acest lucru.
📌 Pași
- În primul rând, accesați fișierul word. Apoi, apăsați CTRL+A pentru a selecta întregul document. De asemenea, puteți selecta un anumit interval numai dacă este necesar.
- După aceea, apăsați CTRL+C pentru a copia datele, așa cum se arată mai jos.
- În continuare, accesați foaia de calcul Excel, apoi selectați celula din stânga-sus a intervalului în care doriți să obțineți datele.
- Acum, apăsați CTRL+V pentru a lipi datele. Alternativ, puteți face clic dreapta pe acea celulă. Apoi, selectați Păstrați formatarea sursei (K) de la Opțiuni de lipire .
- După aceea, veți obține următorul rezultat.
Citește mai mult: Cum să copiați din Word în Excel în mai multe celule (3 moduri)
2. Conversia din Word în Excel cu VBA
Puteți face același lucru cu Excel VBA. Urmați pașii de mai jos pentru a face acest lucru.
📌 Pași
- Mai întâi, adăugați o nouă foaie de lucru. Apoi, salvați registrul de lucru ca fișier registru de lucru activat de macro .
- Apoi, apăsați ALT+F11 pentru a deschide fereastra VBA.
- Apoi, selectați Inserare>> Modul pentru a crea un nou modul, așa cum se arată în imaginea de mai jos.
- După aceea, copiați următorul cod cu ajutorul butonului de copiere.
Sub WordToExcelWithFormatting() Dim Document, Word As Object Dim File As Variant Dim PG, Range Application.ScreenUpdating = False File = Application.GetOpenFilename _ ("Word file(*.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 - Apoi, lipiți codul copiat în fereastra modulului, așa cum se arată mai jos.
- Acum, apăsați F5 pentru a rula codul. De asemenea, puteți face acest lucru și din fereastra Rulați
- După aceea, vi se va cere să selectați fișierul Word pe care doriți să îl convertiți.
- Acum, navigați la locația documentului Word dorit. Apoi, selectați fișierul și faceți clic pe Deschideți .
- În cele din urmă, veți obține un rezultat similar cu cel din metoda anterioară.
🔎 Cum funcționează codul?
Sub WordToExcelWithFormatting()
Dim Document, Word ca obiect
Dim File ca variantă
Dim PG, Gama
Declararea variabilelor necesare.
Application.ScreenUpdating = False
File = Application.GetOpenFilename _
("Fișier Word(*.doc;*.docx) ,*.doc;*.docx", , "ExcelWIKI.Com - Please Select")
If File = False Then Exit Sub
Set Word = CreateObject("Word.Application")
Acest lucru stabilește valoarea Cuvânt variabilă ca document Word.
Set Document = Word.Documents.Open(Filename:=File, ReadOnly:=True)
Acest lucru atribuie Document la obiectul sau fișierul la care face referire utilizatorul.
Document.Activare
PG = Document.Paragraphs.Count
Această linie de cod atribuie PG variabilă la numărul de paragrafe din documentul word
Set Range = Document.Range(Start:=Document.Paragraphs(1).Range.Start, _ End:=Document.Paragraphs(PG).Range.End)
Range.Select
La eroare, reluați Următorul
Word.Selection.Copy
ActiveSheet.Range("B2").Select
ActiveSheet.Paste
Document.Close
Word.Quit (wdDoNotSaveChanges)
Application.ScreenUpdating = True
End Sub
Citește mai mult: Cum să convertiți tabelul Word în foaie de calcul Excel (6 metode)
Lucruri de reținut
- De asemenea, puteți salva fișierul Word ca PDF, apoi utilizați editorul PDF pentru a-l converti într-o foaie de calcul Excel.
- Nu uitați să salvați registrul de lucru ca fișier .xlsm În caz contrar, veți pierde codul.
Concluzie
Acum, știți cum să convertiți un document Word într-o foaie de calcul Excel și să păstrați și formatarea. Vă rugăm să ne anunțați dacă acest articol v-a ajutat să vă rezolvați problema. De asemenea, puteți folosi secțiunea de comentarii de mai jos pentru întrebări sau sugestii suplimentare. Vizitați pagina noastră de ExcelWIKI blog pentru a explora mai multe despre excel. Rămâneți alături de noi și continuați să învățați.
