У цій статті показано, як можна конвертувати текстові документи в електронні таблиці Excel зі збереженням форматування. Припустимо, вам потрібно відформатувати або відсортувати дані, які знаходяться в текстовому документі. Очевидно, що Excel є кращим вибором для цього. На щастя, вам не потрібно вводити дані знову в новий файл Excel. Ви можете просто конвертувати текстовий документ в електронну таблицю Excel зі збереженням формату.Наступна картинка ілюструє мету цієї статті. Погляньте на неї, щоб дізнатися, як це легко зробити.

Завантажити Практичний посібник

Ви можете завантажити робочий зошит з практики, натиснувши кнопку для завантаження нижче.

Word to Excel конвертація.xlsm

2 способи конвертації Word в Excel з однаковим форматуванням

Уявіть, що у вас є наступний документ Word. Тепер ви хочете перетворити його в електронну таблицю Excel. Тоді скористайтеся наведеними нижче методами.

1. конвертація Word в Excel за допомогою копіювання та вставки

Ви можете просто скопіювати дані з документа Word і вставити їх на аркуш Excel. Для цього виконайте наступні дії.

📌 Кроки

• Спочатку перейдіть до файлу word. Потім натисніть CTRL+A Для виділення всього документу, за необхідності можна виділити лише певний діапазон.
• Після цього натисніть CTRL+C скопіювати дані, як показано нижче.

• Далі перейдіть до електронної таблиці Excel, виберіть верхню ліву комірку діапазону, з якої ви хочете отримати дані.
• Тепер натисніть CTRL+V Щоб вставити дані, ви також можете клацнути правою кнопкою миші на цій комірці. Потім виберіть Зберегти форматування джерела (K) від Параметри вставки .
• Після цього ви отримаєте наступний результат.

Читати далі: Як скопіювати з Word в Excel в декілька комірок (3 способи)

2. конвертувати Word в Excel за допомогою VBA

Ви можете зробити те ж саме за допомогою Excel VBA. Для цього виконайте наведені нижче кроки.

📌 Кроки

• Спочатку додайте новий аркуш, потім збережіть книгу як робоча книга з підтримкою макросів .
• Далі натисніть ALT+F11 щоб відкрити вікно VBA.
• Потім виберіть Вставний модуль створити новий модуль, як показано на малюнку нижче.

• Після цього скопіюйте наступний код за допомогою кнопки копіювання.

 Sub WordToExcelWithFormatting() Dim Document, Word As Object Dim File As Variant Dim PG, Range Application.ScreenUpdating = False File = Application.GetOpenFilename _ ("Файл Word(*.doc;*.docx) ,*.doc;*.docx", , "ExcelWIKI.Com - Виберіть, будь ласка") If File = False Then Exit Sub Set Word = CreateObject("Word.Application") Set Document = Word.Documents.Open(Ім'я_файлу:=Файл, Доступ_лише_для_читання:=True)Документ.активізувати PG = Документ.абзаци.підрахунок Встановити Діапазон = Документ.діапазон(Початок:=Абзаци документа(1).діапазон.початок, _ Кінець:=Абзаци документа(PG).діапазон.кінець) Діапазон.виділити При помилці відновити наступний Word.виділення.скопіювати Активний аркуш.діапазон("B2").виділити Активний аркуш.вставити Документ.закрити Word.вийти (wdНе зберігатиЗміни) Додаток.екраннеоновлення = Істина Кінець підмножини 

• Потім вставте скопійований код у вікно модуля, як показано нижче.

• Тепер натисніть F5 Щоб запустити код, ви також можете зробити це з Біжи
• Після цього вам буде запропоновано вибрати текстовий файл, який ви хочете конвертувати.
• Тепер перейдіть до місця розташування потрібного вам текстового документа. Потім виберіть файл і натисніть Відкрито .

• Врешті-решт, ви отримаєте такий самий результат, як і в попередньому методі.

🔎 Як працює Кодекс?

Sub WordToExcelWithFormatting()

Затемнений документ, Word як об'єкт

Затемнити файл як варіант

Dim PG, діапазон

Оголошення необхідних змінних.

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")

При цьому встановлюється Слово змінну у вигляді текстового документу.

Поставити Документ = Word.Документи.Відкрити(Ім'я файлу:=Файл, Тільки для читання:=Істина)

У зв'язку з цим призначається Документ змінної на об'єкт або файл, на який посилається користувач.

Документ.Активувати

PG = Документ.Абзаци.Кількість

У цьому кодовому рядку присвоюється PG змінна на кількість абзаців у текстовому документі

Встановити Діапазон = Діапазон.документа(Початок:=Документ.абзаци(1).Діапазон.початок, _) Кінець:=Документ.Абзаци(ПГ).Діапазон.Кінець)

Range.Select

Після помилки відновити роботу Далі

Word.Виділення.Копіювати

ActiveSheet.Range("B2").Select

ActiveSheet.Paste

Документ.Закрити

Word.Quit (wdDoNotSaveChanges)

Application.ScreenUpdating = True

End Sub

Читати далі: Як перетворити таблицю Word в електронну таблицю Excel (6 способів)

Важливі моменти для запам'ятовування

• Ви також можете зберегти текстовий файл у форматі PDF, а потім за допомогою редактора PDF перетворити його в електронну таблицю Excel.
• Не забудьте зберегти робочу книгу як .xlsm В іншому випадку ви втратите код.

Висновок

Тепер ви знаєте, як перетворити документ Word в електронну таблицю Excel і зберегти форматування. Будь ласка, повідомте нам, якщо ця стаття допомогла вам вирішити вашу проблему. Ви також можете скористатися розділом коментарів нижче для подальших запитань або пропозицій. Відвідайте наш ExcelWIKI блог, щоб дізнатися більше про Excel. Залишайтеся з нами і продовжуйте вчитися.