Šiame straipsnyje parodyta, kaip galite konvertuoti žodžio dokumentus į "Excel" skaičiuokles, tačiau išlaikyti tą patį formatavimą. Tarkime, kad jums reikia suformatuoti arba surūšiuoti duomenis, esančius žodžio dokumente. Akivaizdu, kad tam geriau tinka "Excel". Laimei, jums nereikia iš naujo įvesti duomenų naujame "Excel" faile. Galite tiesiog konvertuoti žodžio dokumentą į "Excel" skaičiuoklę, išlaikydamiformatavimas. Toliau pateiktame paveikslėlyje išryškinamas šio straipsnio tikslas. Greitai peržvelkite jį ir sužinokite, kaip tai lengvai padaryti.

Atsisiųsti praktikos sąsiuvinį

Praktikos sąsiuvinį galite atsisiųsti iš toliau esančio atsisiuntimo mygtuko.

"Word" į "Excel" konvertavimas.xlsm

2 būdai, kaip konvertuoti "Word" į "Excel" su tuo pačiu formatavimu

Įsivaizduokite, kad turite šį žodžio dokumentą. Dabar norite jį konvertuoti į "Excel" skaičiuoklę. Tada vadovaukitės toliau nurodytais metodais.

1. Konvertuokite "Word" į "Excel" naudodami "Copy-Paste

Galite tiesiog nukopijuoti duomenis iš "Word" dokumento ir įklijuoti juos į "Excel" lapą. Norėdami tai padaryti, atlikite toliau nurodytus veiksmus.

📌 Žingsniai

• Pirmiausia eikite į word failą. Tada paspauskite CTRL+A norėdami pasirinkti visą dokumentą. Taip pat galite pasirinkti tik tam tikrą intervalą, jei to reikia.
• Po to paspauskite CTRL+C nukopijuoti duomenis, kaip parodyta toliau.

• Tada eikite į "Excel" skaičiuoklę. Tada pasirinkite viršutinį kairįjį diapazono langelį, kuriame norite gauti duomenis.
• Dabar paspauskite CTRL+V arba galite dešiniuoju pelės klavišu spustelėti ant tos ląstelės. Tada pasirinkite Išlaikyti šaltinio formatavimą (K) iš Įklijuoti parinktys .
• Po to gausite tokį rezultatą.

Skaityti daugiau: Kaip kopijuoti iš "Word" į "Excel" į kelias ląsteles (3 būdai)

2. "Word" konvertavimas į "Excel" naudojant VBA

Tą patį galite padaryti naudodami "Excel VBA". Atlikite toliau nurodytus veiksmus.

📌 Žingsniai

• Pirmiausia pridėkite naują darbalapį. Tada išsaugokite darbaknygę kaip darbaknygė su makrokomandomis .
• Tada paspauskite ALT+F11 atidaryti VBA langą.
• Tada pasirinkite Įterpti>> Modulis sukurti naują modulį, kaip parodyta toliau pateiktame paveikslėlyje.

• Po to nukopijuokite šį kodą naudodami kopijavimo mygtuką.

 Sub WordToExcelWithFormatting() Dim Document, Word As Object Dim File As Variant Dim PG, Range Application.ScreenUpdating = False File = Application.GetOpenFilename _ ("Word failas(*.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 

• Tada nukopijuotą kodą įklijuokite į modulio langą, kaip parodyta toliau.

• Dabar paspauskite F5 paleisti kodą. Tai taip pat galite padaryti iš Paleisti
• Po to jūsų bus paprašyta pasirinkti žodinį failą, kurį norite konvertuoti.
• Dabar raskite norimo word dokumento vietą. Tada pasirinkite failą ir spustelėkite Atviras .

• Galiausiai gausite panašų rezultatą kaip ir ankstesniu metodu.

🔎 Kaip veikia kodas?

Dalis WordToExcelWithFormatting()

Dim Dokumentas, Žodis kaip objektas

Dim Failas kaip variantas

Dim PG, diapazonas

Būtinų kintamųjų deklaravimas.

Application.ScreenUpdating = False

Failas = Application.GetOpenFilename _

("Word failas(*.doc;*.docx) ,*.doc;*.docx", , "ExcelWIKI.Com - pasirinkite")

Jei Failas = False Tada Exit Sub

Set Word = CreateObject("Word.Application")

Taip nustatomas Žodis kintamąjį kaip žodžio dokumentą.

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

Tai priskiria Dokumentas kintamąjį į objektą arba failą, į kurį nurodo naudotojas.

Document.Activate

PG = Document.Paragraphs.Count

Ši kodo eilutė priskiria PG kintamąjį į žodinio dokumento pastraipų skaičių.

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

Range.Select

Dėl klaidos tęsti toliau

Word.Selection.Copy

ActiveSheet.Range("B2").Select

ActiveSheet.Paste

Dokumentas.Uždaryti

Word.Quit (wdDoNotSaveChanges)

Application.ScreenUpdating = True

Pabaiga Sub

Skaityti daugiau: Kaip konvertuoti "Word" lentelę į "Excel" skaičiuoklę (6 metodai)

Dalykai, kuriuos reikia prisiminti

• Žodinį failą taip pat galite išsaugoti kaip PDF failą. Tada naudodami PDF redaktorių konvertuokite jį į "Excel" skaičiuoklę.
• Nepamirškite išsaugoti darbo knygos kaip .xlsm Priešingu atveju prarasite kodą.

Išvada

Dabar jau žinote, kaip konvertuoti "Word" dokumentą į "Excel" skaičiuoklę ir išsaugoti formatavimą. Praneškite mums, ar šis straipsnis padėjo išspręsti jūsų problemą. Taip pat galite naudoti toliau pateiktą komentarų skyrių, jei norite pateikti papildomų klausimų ar pasiūlymų. Apsilankykite mūsų ExcelWIKI tinklaraštį, kad sužinotumėte daugiau apie "Excel". Būkite su mumis ir toliau mokykitės.