У гэтым артыкуле паказана, як можна пераўтварыць дакументы Word у электронныя табліцы Excel, але захаваць тое ж фарматаванне. Выкажам здагадку, вам трэба адфарматаваць або адсартаваць дадзеныя, якія знаходзяцца ў дакуменце Word. Відавочна, што Excel - лепшы выбар для гэтага. На шчасце, вам не трэба зноў уводзіць дадзеныя ў новы файл Excel. Вы можаце проста пераўтварыць дакумент Word у электронную табліцу Excel, захаваўшы фарматаванне. Наступны малюнак падкрэслівае мэту гэтага артыкула. Хутка праглядзіце яго, каб даведацца, як гэта лёгка зрабіць.

Спампаваць сшытак для практыкі

Вы можаце загрузіць сшытак для практыкі, націснуўшы кнопку загрузкі ніжэй.

Word to Excel Conversion.xlsm

2 спосабы пераўтварэння Word у Excel з аднолькавым фарматаваннем

Уявіце, што ў вас ёсць наступны дакумент Word. Цяпер вы хочаце пераўтварыць яго ў электронную табліцу Excel. Затым прытрымлівайцеся прыведзеных ніжэй метадаў.

1. Пераўтварыце Word у Excel з дапамогай Copy-Paste

Вы можаце проста скапіяваць даныя з дакумента Word і ўставіць іх на ліст Excel. Каб зрабіць гэта, выканайце наступныя дзеянні.

📌 Крокі

• Спачатку перайдзіце да файла Word. Затым націсніце CTRL+A , каб выбраць увесь дакумент. Вы таксама можаце выбраць пэўны дыяпазон толькі пры неабходнасці.
• Пасля гэтага націсніце CTRL+C , каб скапіяваць дадзеныя, як паказана ніжэй.

• Далей перайдзіце да электроннай табліцы Excel. Затым абярыцелевая верхняя ячэйка дыяпазону, куды вы хочаце атрымаць даныя.
• Цяпер націсніце CTRL+V , каб уставіць даныя. Акрамя таго, вы можаце пстрыкнуць правай кнопкай мышы на гэтай ячэйцы. Затым абярыце Захаваць зыходнае фарматаванне (K) з Параметры ўстаўкі .
• Пасля гэтага вы атрымаеце наступны вынік.

Больш падрабязна: Як скапіяваць з Word у Excel у некалькі вочак (3 спосабы)

2. Пераўтварыць Word у Excel з VBA

Вы можаце зрабіць тое ж самае з Excel VBA. Каб зрабіць гэта, выканайце наступныя крокі.

📌 Крокі

• Спачатку дадайце новы працоўны ліст. Затым захавайце кнігу як рабочую кнігу з падтрымкай макрасаў .
• Далей націсніце ALT+F11 , каб адкрыць акно VBA.
• Затым, абярыце Уставіць >> Module , каб стварыць новы модуль, як паказана на малюнку ніжэй.

• Пасля гэтага скапіруйце наступны код з дапамогай кнопкі капіявання.

3991

• Затым устаўце скапіраваны код у акно модуля, як паказана ніжэй.

• Зараз націсніце F5 для запуску кода. Вы таксама можаце зрабіць гэта з Выканаць
• Пасля гэтага вам будзе прапанавана выбраць файл Word, які вы хочаце пераўтварыць.
• Цяпер перайдзіце да месцазнаходжання жаданага дакумента Word. Затым абярыце файл і націсніце Адкрыць .

• Нарэшце, вы атрымаеце вынік, падобны да папярэдняга метаду.

🔎 Як працуе кодПрацуе?

Sub WordToExcelWithFormatting()

Цьмяны дакумент, Word як аб'ект

Dim File As Variant

Dim PG, Range

Аб'яўленне неабходных зменных.

Application.ScreenUpdating = False

Файл = Application.GetOpenFilename _

(“Файл Word(*.doc;*.docx) ,*.doc;* .docx”, , “ExcelWIKI.Com – Калі ласка, абярыце”)

Калі файл = False, то выйдзіце з суб

Усталяваць Word = CreateObject( “Word.Application”)

Гэта ўсталёўвае зменную Word як дакумент Word.

Усталяваць дакумент = Word.Documents.Open(імя файла :=File, ReadOnly:=True)

Гэта прысвойвае зменную Document аб'екту або файлу, на якія спасылаецца карыстальнік.

Дакумент .Activate

PG = Document.Paragraphs.Count

Гэты радок кода прысвойвае зменную PG колькасці абзацаў у word document

Усталяваць дыяпазон = Document.Range(Start:=Document.Paragraphs(1).Range.Start, _ End:=Document.Paragraphs(PG).Range .Канец)

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

Дадатковая інфармацыя: Як пераўтварыць табліцу Word у электронную табліцу Excel (6 метадаў)

Што трэба памятаць

• Вы таксама можаце захаваць файл Word у фармаце PDF. Затым скарыстайцеся рэдактарам PDF, каб пераўтварыць яго ў табліцу Excel.
• Не забудзьцеся захаваць кнігу як .xlsm У адваротным выпадку вы страціце код.

Выснова

Цяпер вы ведаеце, як пераўтварыць дакумент Word у электронную табліцу Excel і захаваць фарматаванне. Калі ласка, паведаміце нам, калі гэты артыкул дапамог вам вырашыць вашу праблему. Вы таксама можаце выкарыстоўваць раздзел каментарыяў ніжэй для далейшых запытаў і прапаноў. Наведайце наш блог ExcelWIKI , каб даведацца больш пра excel. Заставайцеся з намі і працягвайце вучыцца.