В этом пost, мы рады поделиться с вами 2 способами копирования текстов из Word в Excel с каждым словом в отдельной ячейке.
Если вы лингвист, вам, вероятно, нужно часто подсчитывать частоту слов. Тогда наша тема сегодня будет большим подспорьем. Два приведенных ниже метода позволят вам вставлять тексты из документа на лист Excel и перечислять каждое слово в ячейке столбца.
Способ 1: используйте опцию «Найти и заменить»
- Для начала сделайте копию tarполучить документ. Это чрезвычайно важно, и мы будем проводить все операции в файле копирования, чтобы предотвратить потерю данных.
- Во-вторых, выбрать все tarполучать тексты и применять их в стиле «Обычный». Для этого нажмите «Alt+Ctrl+Shift+S», чтобы открыть окно «Стили». Затем найдите и нажмите «Обычный» стиль.
- В-третьих, нажмите «Ctrl + H», чтобы вызвать окно «Найти и заменить».
- Поместите курсор в текстовое поле «Найти что» и введите пробел.
- Затем поместите курсор в текстовое поле «Заменить на» и введите «^p».
- Затем нажмите «Заменить все».
- Нажмите «Нет» в следующем всплывающем окне.
- Теперь вы можете видеть, что каждое слово находится в одной строке. Но есть и пустая строка:
Поэтому, чтобы удалить его, вам нужно снова вызвать окно «Найти и заменить».
- На этот раз введите «^p^p» в текстовом поле «Найти что» и «^p» в поле «Заменить на».
- Щелкните «Заменить все».
- Теперь нажмите «Ctrl + C», чтобы скопировать список слов.
- Откройте Excel и нажмите «Ctrl + V», чтобы вставить список.
Способ 2: используйте коды VBA для снижения нагрузки
- Точно так же сначала сделайте копию и выберите все tarполучить тексты.
- Затем нажмите «Alt + F11», чтобы открыть редактор VBA.
- Затем нажмите «Обычный» и «Вставить» по порядку.
- И выберите «Модуль», чтобы создать новый.
- Дважды щелкните модуль, чтобы открыть его, и вставьте следующие коды:
Sub CopySelectParagraphWordByWordToExcel()
If Selection.Range <> "" Then
Selection.Style = ActiveDocument.Styles("Normal")
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = " "
.Replacement.Text = "^p"
.Forward = True
.Wrap = wdFindStop
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^p^p"
.Replacement.Text = "^p"
.Forward = True
.Wrap = wdFindStop
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Copy
MsgBox ("Now you can just open a Excel worksheet to paste the text")
Else
MsgBox ("There is no selected text ")
End If
End Sub
- Затем нажмите кнопку «Выполнить».
- Далее появится окно сообщения, указывающее, что вам нужно делать дальше.
- Откройте Excel и нажмите «Ctrl + V», чтобы вставить туда тексты. Эффект такой же, как и в способе 1.
Работа с ошибками в документе Word
Вы когда-нибудь становились жертвой Коррупция слова? Если да, то вы поймете, до какого отчаяния можно дойти. Поэтому становится как никогда важно получить квалифицированный инструмент для восстановления поврежденного документа.
Об авторе:
Вера Чен — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая восстановить xlsx и pdf ремонт программных продуктов. Для получения дополнительной информации посетите www.datanumen.com