Kako pretvoriti Word v Excel in ohraniti oblikovanje (2 preprosti metodi)

Hugh West

16-10-2023 Osnove programa Excel
  • Deliti To
Hugh West

Ta članek prikazuje, kako lahko pretvorite wordove dokumente v preglednice excel, pri tem pa ohranite enako oblikovanje. Predpostavimo, da morate oblikovati ali razvrstiti podatke, ki so v wordovem dokumentu. Očitno je za to boljša izbira excel. Na srečo vam podatkov ni treba znova vnašati v novo datoteko excel. Wordov dokument lahko samo pretvorite v preglednico excel, pri tem pa ohraniteformatiranje. Naslednja slika poudarja namen tega članka. Na hitro si jo oglejte in se naučite, kako to preprosto storiti.

Prenesi delovni zvezek za prakso

Praktični delovni zvezek lahko prenesete s spodnjega gumba za prenos.

Pretvorba iz Worda v Excel.xlsm

2 načina za pretvorbo Worda v Excel z enakim oblikovanjem

Predstavljajte si, da imate naslednji wordov dokument. Zdaj ga želite pretvoriti v preglednico Excel. Nato sledite spodnjim metodam.

1. Pretvarjanje Worda v Excel s kopiranjem in lepljenjem

Podatke lahko preprosto kopirate iz wordovega dokumenta in jih prilepite na list excel-a. Pri tem sledite spodnjim korakom.

📌 Koraki

  • Najprej pojdite v datoteko word. Nato pritisnite CTRL+A za izbiro celotnega dokumenta. Po potrebi lahko izberete tudi določen razpon.
  • Nato pritisnite CTRL+C za kopiranje podatkov, kot je prikazano spodaj.

  • Nato pojdite v preglednico Excel. Nato izberite zgornjo levo celico območja, v katerem želite pridobiti podatke.
  • Zdaj pritisnite CTRL+V lahko tudi desno kliknete na to celico. Nato izberite Ohranjanje oblikovanja vira (K) iz Možnosti lepljenja .
  • Po tem boste dobili naslednji rezultat.

Preberite več: Kako kopirati iz Worda v Excel v več celic (3 načini)

2. Pretvarjanje Worda v Excel z VBA

Enako lahko storite z Excelovim programom VBA. Pri tem sledite spodnjim korakom.

📌 Koraki

  • Najprej dodajte nov delovni list. Nato delovni zvezek shranite kot Delovni zvezek z omogočenimi makri .
  • Nato pritisnite ALT+F11 da odprete okno VBA.
  • Nato izberite Vstavljanje>> Modul ustvarite nov modul, kot je prikazano na spodnji sliki.

  • Nato z gumbom za kopiranje kopirajte naslednjo kodo. 
 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
  • Nato kopirano kodo prilepite v okno modula, kot je prikazano spodaj.

  • Zdaj pritisnite F5 za zagon kode. To lahko storite tudi iz Spustite
  • Nato boste morali izbrati besedno datoteko, ki jo želite pretvoriti.
  • Zdaj poiščite lokacijo želenega wordovega dokumenta. Nato izberite datoteko in kliknite Odpri .

  • Na koncu boste dobili podoben rezultat kot pri prejšnji metodi.

🔎 Kako deluje koda?

Pod WordToExcelWithFormatting()

Dim Dokument, Word kot predmet

Dim Datoteka kot varianta

Dim PG, razpon

Deklaracija potrebnih spremenljivk.

Application.ScreenUpdating = False

Datoteka = Application.GetOpenFilename _

("Wordova datoteka (*.doc;*.docx) ,*.doc;*.docx", , "ExcelWIKI.Com - Izberite")

Če je datoteka = False Potem Exit Sub

Set Word = CreateObject("Word.Application")

S tem se nastavi Beseda spremenljivko kot wordov dokument.

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

To dodeli Dokument na predmet ali datoteko, na katero se sklicuje uporabnik.

Dokument.Aktiviraj

PG = Document.Paragraphs.Count

Ta vrstica kode dodeli PG spremenljivko za število odstavkov v dokumentu word

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

Razpon.Izberi

Ob napaki Nadaljuj naslednji

Word.Selection.Copy

ActiveSheet.Range("B2").Select

ActiveSheet.Paste

Dokument.Zapri

Word.Quit (wdDoNotSaveChanges)

Application.ScreenUpdating = True

Končni podnaslov

Preberite več: Kako pretvoriti tabelo Word v Excelovo razpredelnico (6 metod)

Stvari, ki si jih je treba zapomniti

  • Besedilno datoteko lahko shranite tudi kot datoteko PDF. Nato jo z urejevalnikom PDF pretvorite v preglednico Excel.
  • Ne pozabite shraniti delovnega zvezka kot .xlsm V nasprotnem primeru boste kodo izgubili.

Zaključek

Zdaj veste, kako pretvoriti wordov dokument v Excelovo preglednico in ohraniti tudi oblikovanje. Sporočite nam, ali vam je ta članek pomagal rešiti vašo težavo. Za nadaljnja vprašanja ali predloge lahko uporabite tudi spodnji razdelek za komentarje. Obiščite našo ExcelWIKI blog, da bi raziskali več o Excelu. Bodite z nami in se še naprej učite.

Prejšnja objava Excelova funkcija VLOOKUP s pogojem IF (7 primerov iz resničnega življenja)
Naslednja objava Kako kopirati pogojno oblikovanje v drugo celico v Excelu (2 metodi)

Hugh West je zelo izkušen trener Excela in analitik z več kot 10-letnimi izkušnjami v industriji. Po izobrazbi je diplomirani računovodstvo in finance ter magisterij poslovne administracije. Hugh ima strast do poučevanja in je razvil edinstven pristop k poučevanju, ki ga je enostavno slediti in razumeti. Njegovo strokovno znanje o Excelu je pomagalo na tisoče študentom in strokovnjakom po vsem svetu, da so izboljšali svoje sposobnosti in se izkazali v karieri. Prek svojega bloga Hugh deli svoje znanje s svetom, ponuja brezplačne vadnice za Excel in spletno usposabljanje, ki posameznikom in podjetjem pomaga doseči njihov polni potencial.