Ez a cikk bemutatja, hogyan lehet word dokumentumokat excel táblázattá konvertálni, de megtartva ugyanazt a formázást. Tegyük fel, hogy egy word dokumentumban lévő adatokat kell formázni vagy rendezni. Nyilvánvalóan az excel a jobb választás erre. Szerencsére nem kell újra beírni az adatokat az új excel fájlba. Egyszerűen csak konvertálhatja a word dokumentumot excel táblázattá, miközben megtartja aformázás. Az alábbi kép rávilágít a cikk céljára. Nézze át gyorsan, hogy megtudja, hogyan lehet ezt könnyen megtenni.

Gyakorlati munkafüzet letöltése

A gyakorlati munkafüzetet az alábbi letöltés gombra kattintva töltheti le.

Wordből Excelbe való átalakítás.xlsm

2 mód a Word Excel-be való konvertálására ugyanazzal a formázással

Képzelje el, hogy rendelkezik az alábbi word dokumentummal. Most szeretné Excel táblázattá alakítani. Akkor kövesse az alábbi módszereket.

1. Word átalakítása Excelbe másolás-beillesztéssel

Az adatokat egyszerűen kimásolhatja a word dokumentumból, és beillesztheti az excel táblázatba. Ehhez kövesse az alábbi lépéseket.

📌 Lépések

• Először is, lépjen a word fájlhoz. Ezután nyomja meg a CTRL+A a teljes dokumentum kijelöléséhez. Szükség esetén egy adott tartományt is kijelölhet, ha szükséges.
• Ezután nyomja meg a CTRL+C az adatok másolásához az alábbiak szerint.

• Ezután lépjen az excel táblázatba. Ezután válassza ki annak a tartománynak a bal felső celláját, ahonnan az adatokat szeretné megkapni.
• Most nyomja meg a CTRL+V Az adatok beillesztéséhez kattintson a jobb gombbal az adott cellára. Ezután válassza a Forrásformázás megtartása (K) a Beillesztési lehetőségek .
• Ezt követően a következő eredményt kapja.

Bővebben: Hogyan másolhat a Wordből az Excel-be több cellába (3 módja)

2. Word átalakítása Excelbe VBA-val

Ugyanezt megteheti az Excel VBA-val is. Kövesse az alábbi lépéseket.

📌 Lépések

• Először adjunk hozzá egy új munkalapot. Ezután mentsük el a munkafüzetet egy makroképes munkafüzet .
• Ezután nyomja meg a ALT+F11 a VBA ablak megnyitásához.
• Ezután válassza a Beszúrás>> modul egy új modul létrehozásához az alábbi képen látható módon.

• Ezután másolja be az alábbi kódot a másolás gomb segítségével.

 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 

• Ezután illessze be a másolt kódot a modul ablakába az alábbiakban látható módon.

• Most nyomja meg a F5 a kód futtatásához. Ezt megteheted a Fuss
• Ezután megkérjük, hogy válassza ki a konvertálni kívánt Word fájlt.
• Most keresse meg a kívánt Word dokumentum helyét. Ezután válassza ki a fájlt, és kattintson a Nyissa meg a címet. .

• Végül hasonló eredményt kapunk, mint a korábbi módszerrel.

🔎 Hogyan működik a kód?

Sub WordToExcelWithFormatting()

Dim Document, Word As Object

Dim File As Variant

Dim PG, tartomány

A szükséges változók deklarálása.

Application.ScreenUpdating = False

File = Application.GetOpenFilename _

("Word fájl(*.doc;*.docx) ,*.doc;*.docx", , "ExcelWIKI.Com - Kérjük, válasszon")

If File = False Then Exit Sub

Set Word = CreateObject("Word.Application")

Ez beállítja a Szó változót word dokumentumként.

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

Ez hozzárendeli a Dokumentum változót a felhasználó által hivatkozott objektumra vagy fájlra.

Document.Activate

PG = Document.Paragraphs.Count

Ez a kódsor hozzárendeli a PG változó a word dokumentumban lévő bekezdések számának függvénye

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

Range.Select

Hiba esetén Folytassa tovább

Word.Selection.Copy

ActiveSheet.Range("B2").Select

ActiveSheet.Paste

Document.Close

Word.Quit (wdDoNotSaveChanges)

Application.ScreenUpdating = True

End Sub

Bővebben: Hogyan alakítsuk át a Word táblázatot Excel táblázattá (6 módszer)

Emlékezetes dolgok

• A word fájlt PDF-ként is elmentheti, majd a PDF-szerkesztővel Excel-táblázattá alakíthatja.
• Ne felejtse el elmenteni a munkafüzetet a .xlsm Ellenkező esetben elveszíti a kódot.

Következtetés

Most már tudja, hogyan konvertáljon egy Word dokumentumot Excel táblázattá, és tartsa meg a formázást is. Kérjük, tudassa velünk, ha ez a cikk segített megoldani a problémáját. További kérdések vagy javaslatok esetén használhatja az alábbi megjegyzés rovatot is. Látogasson el a mi ExcelWIKI blog, hogy többet megtudjon az excelről. Maradjon velünk és tanuljon tovább.