Tämä artikkeli havainnollistaa, miten voit muuntaa word-asiakirjat excel-taulukoiksi, mutta säilyttää saman muotoilun. Oletetaan, että sinun on muotoiltava tai lajiteltava word-asiakirjassa olevat tiedot. Ilmeisesti excel on siihen parempi valinta. Onneksi sinun ei tarvitse kirjoittaa tietoja uudelleen uuteen excel-tiedostoon. Voit vain muuntaa word-asiakirjan excel-taulukoksi säilyttäen samalla excelinmuotoilu. Seuraava kuva korostaa tämän artikkelin tarkoitusta. Käy se nopeasti läpi ja opi, miten se tehdään helposti.

Lataa harjoituskirja

Voit ladata harjoituskirjan alla olevasta latauspainikkeesta.

Word Exceliin Conversion.xlsm

2 tapaa muuntaa Word Exceliin samalla muotoilulla 2 tapaa muuntaa Word Exceliin samalla muotoilulla

Kuvittele, että sinulla on seuraava Word-asiakirja. Nyt haluat muuntaa sen Excel-taulukkolaskentaohjelmaksi. Noudata sitten alla olevia menetelmiä.

1. Muunna Word Exceliin kopioi ja liitä -ohjelmalla

Voit yksinkertaisesti kopioida tiedot Word-asiakirjasta ja liittää ne Excel-taulukkoon. Seuraa alla olevia ohjeita.

📌 Askeleet

• Siirry ensin word-tiedostoon ja paina sitten CTRL+A voit valita koko asiakirjan. Voit myös valita vain tietyn alueen, jos se on tarpeen.
• Paina sen jälkeen CTRL+C kopioidaksesi tiedot alla esitetyllä tavalla.

• Siirry seuraavaksi Excel-taulukkolaskentataulukkoon ja valitse sen alueen vasen yläsolu, josta haluat saada tiedot.
• Paina nyt CTRL+V Vaihtoehtoisesti voit napsauttaa hiiren kakkospainikkeella kyseistä solua. Valitse sitten Pidä lähteen muotoilu (K) alkaen Liitä-vaihtoehdot .
• Tämän jälkeen saat seuraavan tuloksen.

Lue lisää: Kuinka kopioida Wordista Exceliin useisiin soluihin (3 tapaa)

2. Muunna Word Exceliksi VBA:n avulla

Voit tehdä saman Excel VBA:lla. Seuraa alla olevia ohjeita.

📌 Askeleet

• Lisää ensin uusi laskentataulukko ja tallenna työkirja nimellä makrotoiminnoilla varustettu työkirja .
• Paina seuraavaksi ALT+F11 avataksesi VBA-ikkunan.
• Valitse sitten Lisää>> Moduuli luodaksesi uuden moduulin, kuten alla olevassa kuvassa näkyy.

• Kopioi sen jälkeen seuraava koodi kopioi-painikkeella.

 Sub WordToExcelWithFormatting() Dim Document, Word As Object Dim File As Variant Dim PG, Range Application.ScreenUpdating = False File = Application.GetOpenFilename _ ("Word-tiedosto(*.doc;*.docx) ,*.doc;*.docx", , "ExcelWIKI.Com - Please Select") If File = False Then Exit Sub Set Word = CreateObject("Word.Application") Set Document = Word.Documents.Open(Tiedostonimi:=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 

• Liitä sitten kopioitu koodi moduuliikkunaan alla esitetyllä tavalla.

• Paina nyt F5 Voit tehdä sen myös komentosivulta Suorita
• Tämän jälkeen sinua pyydetään valitsemaan Word-tiedosto, jonka haluat muuntaa.
• Siirry nyt haluamasi word-asiakirjan sijaintiin. Valitse sitten tiedosto ja napsauta kohtaa Avaa .

• Lopulta saat samanlaisen tuloksen kuin aiemmassa menetelmässä.

🔎 Miten koodi toimii?

Sub WordToExcelWithFormatting()

Dim Document, Word As Object

Dim File As Variant

Dim PG, Range

Tarvittavien muuttujien ilmoittaminen.

Application.ScreenUpdating = False (Väärin)

File = Application.GetOpenFilename _

("Word-tiedosto(*.doc;*.docx) ,*.doc;*.docx", , "ExcelWIKI.Com - Valitse")

If File = False Then Exit Sub

Set Word = CreateObject("Word.Application")

Tämä asettaa Sana muuttuja word-dokumenttina.

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

Tämä määrittää Asiakirja muuttujaa käyttäjän viittaamaan objektiin tai tiedostoon.

Document.Activate

PG = Document.Paragraphs.Count

Tämä koodirivi määrittää PG muuttuja word-dokumentin kappaleiden lukumäärälle

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

Lue lisää: Kuinka muuntaa Word-taulukko Excel-taulukkoon (6 menetelmää)

Muistettavat asiat

• Voit myös tallentaa word-tiedoston PDF-muodossa ja muuntaa sen sitten PDF-editorilla Excel-taulukoksi.
• Älä unohda tallentaa työkirjaa nimellä .xlsm Muuten menetät koodin.

Päätelmä

Nyt tiedät, miten Word-asiakirja muunnetaan Excel-taulukkolaskentaohjelmaksi ja miten muotoilu säilytetään. Kerro meille, jos tämä artikkeli on auttanut sinua ratkaisemaan ongelmasi. Voit myös käyttää alla olevaa kommenttiosaa lisäkysymysten tai ehdotusten esittämiseen. Käy tutustumassa meidän ExcelWIKI blogi tutkia lisää excelistä. Pysy kanssamme ja jatka oppimista.