Как извлечь адреса электронной почты из документа Word

Вот руководство по извлечению всех адресов электронной почты из документов Word(extract all email addresses from Word documents) в Windows 11/10 . Если у вас есть документы Word ( DOC , DOCX ) с несколькими адресами электронной почты, и вы хотите использовать эти адреса электронной почты для любых целей, будет очень утомительно искать их вручную. Более простое решение для вас — извлечь все адреса электронной почты из документа, а затем использовать их по своему усмотрению. Теперь для извлечения адресов электронной почты из документов Word не требуется никаких сторонних решений. В этой статье я собираюсь показать два простых приема для извлечения адресов электронной почты из документов Word . Вы можете сделать это в Microsoft Wordзаявление. Давайте проверим методы сейчас!

Как извлечь адреса электронной почты(Email Addresses) из документа Word

Вот два метода извлечения всех адресов электронной почты из документа Word в Windows 11/10 :

  1. Извлеките(Extract) адреса электронной почты с помощью расширенного поиска(Advanced Find) в MS Word .
  2. Используйте(Use VBA) код VBA для извлечения всех адресов электронной почты из документа Word .

Поговорим об этих методах подробнее!

1] Извлеките(Extract) адреса электронной почты, используя параметр « Расширенный поиск(Advanced Find) » в MS Word .

Вы можете использовать Advanced Find/ Find и заменить параметр в Microsoft Word , чтобы извлечь все адреса электронной почты из документов Word . Вот основные шаги для этого:

  1. Запустите Microsoft Word.
  2. Откройте документ Word , содержащий адреса электронной почты.
  3. Перейдите к опции « Find > Advanced Find
  4. Введите строку в поле « Найти(Find) ».
  5. Установите флажок Использовать подстановочные знаки.
  6. Нажмите кнопку(Click) « Найти(Find) в > Main Document .
  7. Вернитесь к основному документу и используйте параметр « Копировать(Copy) ».
  8. Создайте новый пустой документ и вставьте скопированные адреса электронной почты.

А теперь давайте подробнее об этих шагах!

Сначала запустите приложение Microsoft Word на своем ПК, а затем импортируйте документ Word , содержащий адреса электронной почты, которые вы хотите извлечь.

Теперь на вкладке « Главная(Home) » перейдите в раздел « Редактирование(Editing) » и нажмите кнопку « Найти( Find) » в раскрывающемся списке. Затем нажмите на опцию « Расширенный поиск ». (Advanced Find)Это откроет диалоговое окно « Найти и заменить ».(Find and Replace)

Как извлечь адреса электронной почты из документа Word

В диалоговом окне « Найти и заменить » на вкладке « (Find and Replace)Найти(Find) » введите [A-z,0-9]{1,}\@[A-z,0-9,\.]{1,} в поле « Найти(Find what) » .

После этого нажмите кнопку « Дополнительно(More) », которая откроет различные параметры.

Затем установите флажок Использовать подстановочные знаки .(Use wildcards)

Затем щелкните раскрывающуюся кнопку « Найти в » и выберите параметр « (Find In)Основной документ(Main Document) ».

При этом все почтовые адреса будут выделены и выбраны в исходном документе Word , как показано на снимке экрана ниже.

Теперь вам нужно нажать кнопку « Копировать(Copy) » на вкладке « Главная ». (Home)Кроме того, вы также можете использовать горячую клавишу копирования, например, сочетание клавиш Ctrl +CОн скопирует все адреса электронной почты, присутствующие в документе Word , в буфер обмена.

Затем создайте пустой документ Word или откройте приложение « Блокнот(Notepad) » и просто вставьте скопированные адреса электронной почты, используя специальную опцию или горячую клавишу Ctrl + V

Как извлечь адреса электронной почты из документа Word в Windows 11/10

Теперь вы можете сохранить документ с извлеченными адресами электронной почты из документа Word и использовать адреса электронной почты по своему усмотрению.

Читайте(Read) : Как отключить заставку в программах Office .

2] Используйте(Use VBA) код VBA для извлечения всех адресов электронной почты из документа Word .

Вы также можете использовать простой код Visual Basic для приложений(Applications) ( VBA ), чтобы извлечь все адреса электронной почты из документов Word . Вот основные шаги для этого:

  1. Откройте приложение Word , а затем импортируйте исходный документ.
  2. Запустите редактор VBA.
  3. Вставьте новый модуль.
  4. Введите(Enter) код VBA для извлечения адреса электронной почты.
  5. Запустите код VBA , чтобы извлечь все адреса электронной почты.

Сначала откройте приложение Word , а затем импортируйте входной документ Word , из которого вы хотите извлечь все адреса электронной почты.

Теперь запустите редактор VBA(VBA Editor) с помощью комбинации клавиш Alt + F11 . Если вы включили вкладку « Разработчики(Developers) » на главной ленте, вы можете перейти на вкладку « Разработчик(Developer) » и щелкнуть параметр Visual Basic , чтобы открыть редактор VBA.

Затем в окне редактора VBA(VBA Editor) перейдите в меню « Вставка( Insert) » и выберите параметр « Модуль(Module) ».

После этого в правом разделе введите в окне редактора приведенный ниже код VBA :

Sub ExtractAllEmailAddressesFromDocument()
Dim strEmailAddresses As String

' Extract all email addresses in a document.
With ActiveDocument.Range 
With.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = "[A-z,0-9]{1,}\@[A-z,0-9,\.]{1,}"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindStop
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
.Execute
End With 
Do While .Find.Found
strEmailAddresses = strEmailAddresses & .Text & ";"
.Collapse wdCollapseEnd
.Find.Execute
Loop
End With

' Open a new document to paste the email addresses.
If strEmailAddresses <> "" Then
Documents.Add Template:="Normal", NewTemplate:=False, DocumentType:=0
ActiveDocument.Range.Text = strEmailAddresses
End If
End Sub

Затем перейдите в меню « Выполнить»(Run) и нажмите « Выполнить макросы(Run Macros) » или просто нажмите клавишу F5. Откроется диалоговое окно « Макросы », в котором вам нужно выбрать созданный макрос, а затем нажать кнопку « (Macros)Выполнить»(Run) .

Когда вы нажмете кнопку « Выполнить»(Run) , откроется новый документ Word со всеми извлеченными адресами электронной почты из документа (Word)Word .

Вы можете просто сохранить документ с извлеченными адресами электронной почты и использовать их по мере необходимости.

Поскольку Microsoft Word поддерживает различные форматы документов, эти методы извлечения адресов электронной почты можно использовать и для документов, отличных от Word, таких как XML , ODT и т. д.

Теперь прочтите: (Now read:) Извлеките адреса электронной почты с помощью Easy Email Extractor.(Extract email addresses using Easy Email Extractor.)



About the author

Я инженер-программист с более чем 10-летним опытом работы с продуктами Windows, Office и Google. Я эксперт в Word, Excel и PowerPoint и написал несколько книг на эту тему. В свободное время я люблю играть в видеоигры, читать книги и смотреть фильмы.



Related posts