Tento článok ilustruje, ako môžete konvertovať wordové dokumenty na excelovské tabuľky, ale zachovať rovnaké formátovanie. Predpokladajme, že potrebujete formátovať alebo triediť údaje, ktoré sú v dokumente word. Je zrejmé, že na to je lepšou voľbou excel. Našťastie nemusíte údaje znova zadávať do nového súboru excelu. Stačí, ak prevediete dokument word na tabuľku excel, pričom zachováteformátovanie. Nasledujúci obrázok zvýrazňuje účel tohto článku. Rýchlo si ho prezrite a dozviete sa, ako to jednoducho urobiť.

Stiahnite si cvičebnicu

Cvičebnicu si môžete stiahnuť z nižšie uvedeného tlačidla na stiahnutie.

Konverzia programu Word do programu Excel.xlsm

2 spôsoby konverzie programu Word do programu Excel so zachovaním rovnakého formátovania

Predstavte si, že máte nasledujúci wordovský dokument. Teraz ho chcete previesť na tabuľku Excel. Potom postupujte podľa nižšie uvedených metód.

1. Prevod programu Word do programu Excel pomocou funkcie Copy-Paste

Údaje môžete jednoducho skopírovať z wordovského dokumentu a vložiť ich do hárku programu Excel. Postupujte podľa nižšie uvedených krokov.

📌 Kroky

• Najprv prejdite do súboru word. Potom stlačte tlačidlo CTRL+A na výber celého dokumentu. V prípade potreby môžete vybrať aj len určitý rozsah.
• Potom stlačte tlačidlo CTRL+C skopírovať údaje, ako je znázornené nižšie.

• Potom prejdite do tabuľky programu Excel. Potom vyberte ľavú hornú bunku rozsahu, v ktorom chcete získať údaje.
• Teraz stlačte CTRL+V prípadne môžete na danú bunku kliknúť pravým tlačidlom myši. Potom vyberte Ponechať formátovanie zdroja (K) z Možnosti vkladania .
• Potom sa zobrazí nasledujúci výsledok.

Prečítajte si viac: Ako kopírovať z programu Word do programu Excel do viacerých buniek (3 spôsoby)

2. Prevod programu Word do programu Excel pomocou VBA

To isté môžete urobiť pomocou programu Excel VBA. Postupujte podľa nasledujúcich krokov.

📌 Kroky

• Najprv pridajte nový pracovný hárok. Potom uložte zošit ako zošit s povolenými makrami .
• Potom stlačte tlačidlo ALT+F11 otvoriť okno VBA.
• Potom vyberte Vložiť>> Modul na vytvorenie nového modulu, ako je znázornené na obrázku nižšie.

• Potom pomocou tlačidla kopírovať skopírujte nasledujúci kód.

 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 

• Potom skopírovaný kód vložte do okna modulu, ako je znázornené nižšie.

• Teraz stlačte F5 na spustenie kódu. Môžete to urobiť aj z Spustiť
• Potom budete vyzvaní na výber súboru word, ktorý chcete previesť.
• Teraz prejdite do umiestnenia požadovaného wordovského dokumentu. Potom vyberte súbor a kliknite na tlačidlo Otvoriť .

• Nakoniec získate podobný výsledok ako pri predchádzajúcej metóde.

🔎 Ako kód funguje?

Sub WordToExcelWithFormatting()

Dim Dokument, Word ako objekt

Dim File As Variant

Dim PG, rozsah

Deklarovanie potrebných premenných.

Application.ScreenUpdating = False

File = Application.GetOpenFilename _

("Súbor Word(*.doc;*.docx) ,*.doc;*.docx", , "ExcelWIKI.Com - Prosím vyberte")

Ak File = False Potom Exit Sub

Set Word = CreateObject("Word.Application")

Tým sa nastaví Slovo premennú ako wordovský dokument.

Set Document = Word.Documents.Open(Názov súboru:=File, ReadOnly:=True)

Tým sa priradí Dokument premennú na objekt alebo súbor, na ktorý odkazuje používateľ.

Document.Activate

PG = Document.Paragraphs.Count

Tento riadok kódu priraďuje PG premenná na počet odsekov v dokumente word

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

Range.Select

Pri chybe pokračovať ďalej

Word.Selection.Copy

ActiveSheet.Range("B2").Select

ActiveSheet.Paste

Document.Close

Word.Quit (wdDoNotSaveChanges)

Application.ScreenUpdating = True

Koniec Sub

Prečítajte si viac: Ako previesť tabuľku programu Word do tabuľky programu Excel (6 metód)

Čo si treba zapamätať

• Súbor word môžete uložiť aj ako súbor PDF. Potom ho pomocou editora PDF preveďte na tabuľku Excel.
• Nezabudnite zošit uložiť ako .xlsm V opačnom prípade kód stratíte.

Záver

Teraz už viete, ako previesť wordovský dokument na tabuľku Excel a zachovať aj formátovanie. Dajte nám vedieť, či vám tento článok pomohol vyriešiť váš problém. Pre ďalšie otázky alebo návrhy môžete použiť aj nižšie uvedenú časť s komentármi. Navštívte našu ExcelWIKI blog a dozviete sa viac o programe Excel. Zostaňte s nami a učte sa ďalej.