В этой статье показано, как можно конвертировать документы word в электронные таблицы excel, сохраняя при этом прежнее форматирование. Предположим, вам нужно отформатировать или отсортировать данные, содержащиеся в документе word. Очевидно, что для этого лучше использовать excel. К счастью, вам не нужно снова вводить данные в новый файл excel. Вы можете просто конвертировать документ word в электронную таблицу excel, сохраняя при этом прежнее форматирование.Форматирование. Следующая картинка подчеркивает цель этой статьи. Просмотрите ее, чтобы узнать, как это легко сделать.

Скачать Рабочую тетрадь для практических занятий

Тетрадь для практических занятий можно скачать с помощью кнопки загрузки ниже.

Преобразование Word в 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 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 

• Затем вставьте скопированный код в окно модуля, как показано ниже.

• Теперь нажмите F5 чтобы запустить код. Вы также можете сделать это из Запускайте
• После этого вам будет предложено выбрать файл word, который вы хотите преобразовать.
• Теперь перейдите к местоположению нужного вам документа word. Затем выберите файл и нажмите кнопку Открыть .

• В итоге вы получите результат, аналогичный предыдущему методу.

🔎 Как работает код?

Sub WordToExcelWithFormatting()

Dim Document, Word As Object

Dim File As Variant

Dim PG, Range

Объявление необходимых переменных.

Application.ScreenUpdating = False

Файл = Application.GetOpenFilename _

("Word файл(*.doc;*.docx) ,*.doc;*.docx", , "ExcelWIKI.Com - Пожалуйста, выберите")

If File = False Then Exit Sub

Set Word = CreateObject("Word.Application")

При этом устанавливается Слово переменную в виде документа word.

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

При этом назначается Документ переменную к объекту или файлу, на который ссылается пользователь.

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

PG = Document.Paragraphs.Count

Эта строка кода присваивает PG переменная для количества абзацев в документе word

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

Диапазон.Выбрать

При ошибке продолжить Далее

Word.Selection.Copy

ActiveSheet.Range("B2").Select

ActiveSheet.Paste

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

Word.Quit (wdDoNotSaveChanges)

Application.ScreenUpdating = True

End Sub

Читать далее: Как преобразовать таблицу Word в электронную таблицу Excel (6 методов)

О чем следует помнить

• Вы также можете сохранить файл word в формате PDF. Затем с помощью редактора PDF преобразуйте его в электронную таблицу Excel.
• Не забудьте сохранить рабочую книгу в формате .xlsm В противном случае вы потеряете код.

Заключение

Теперь вы знаете, как преобразовать документ word в таблицу excel с сохранением форматирования. Пожалуйста, сообщите нам, помогла ли вам эта статья решить вашу проблему. Вы также можете использовать раздел комментариев ниже для дальнейших вопросов или предложений. Посетите наш сайт ExcelWIKI блог, чтобы узнать больше об excel. Оставайтесь с нами и продолжайте учиться.