Word 문서에서 모든 이메일 주소를 추출하고 일괄 처리를 위해 연결하는 2 가지 방법

지금 공유 :

이 기사에서는 Word 문서에서 모든 이메일 주소를 추출하고 일괄 처리를 위해 연결하는 두 가지 방법을 소개합니다.

때때로 한 번에 여러 사람에게 이메일을 보내야 할 수도 있습니다. 그러나 페이지의 긴 문서 주위에 주소가 흩어져 있으면 약간 까다로울 수 있습니다. 전체 문서를 탐색하고 하나씩 찾으려면 시간이 많이 걸릴 수 있습니다. 메일 함에서 일괄 처리를 위해 한 번에 모든 항목을 추출하는 빠른 방법을 보여 드리고자합니다.

방법 1 : "찾기 및 바꾸기"옵션 사용

  1. 첫 번째와 포름ost, 이메일 주소가 포함 된 문서를 엽니 다.
  2. 그런 다음 우리는tart "홈"탭을 클릭합니다.
  3. 다음으로 "찾기"아이콘에서 거꾸로 된 삼각형을 클릭합니다.
  4. 드롭 다운 목록에서 "고급 찾기"를 선택합니다."홈"-> "찾기"뒤의 거꾸로 된 버튼 클릭-> "고급 찾기"클릭
  5. 이제 "찾기 및 바꾸기"대화 상자가 열립니다. '찾기'탭이 켜져 있는지 확인하고 '찾을 내용'텍스트 상자에 '[Az, 0-9] {1,} \ @ [Az, 0-9, \.] {1,}'를 입력합니다.
  6. 다음으로 더 많은 옵션을 보려면 "더보기"를 클릭하십시오.Type Strings-> "More"클릭
  7. 그런 다음 "검색 옵션"에서 "와일드 카드 사용"상자를 선택합니다.
  8. “Find In”버튼을 클릭하고“Main Document”를 선택합니다."와일드 카드 사용"체크-> "찾기"클릭-> "메인 문서"선택
  9. 이제이 문서의 모든 이메일 주소가 강조 표시된 것을 볼 수 있습니다. 대화 상자를 닫습니다.
  10. 다음으로 "홈"탭의 "클립 보드"그룹에서 "복사"를 클릭합니다."홈"-> "복사"를 클릭하십시오.
  11. 이제 새 Word 문서를 만듭니다.
  12. 새 항목을 마우스 오른쪽 버튼으로 클릭하고 "텍스트 만 유지"를 선택합니다. 모든 이메일 주소가 열에 붙여진 것을 볼 수 있습니다."텍스트 만 유지"를 선택하십시오.
  13. 그런 다음 "홈"탭의 "편집"그룹에서 "바꾸기"를 클릭합니다."홈"-> "바꾸기"를 클릭하십시오.
  14. ""바꾸기 "탭에서"^ p "및"; "을 입력합니다. "찾을 내용"및 "바꿀 내용"텍스트 상자에서 각각
  15. 그리고 "와일드 카드 사용"상자를 지우는 것을 잊지 마십시오.
  16. 그런 다음 "모두 바꾸기"버튼을 클릭합니다. Word는 얼마나 많은 대체 항목을 만들 었는지 알려주며 열려있는 모든 상자를 닫을 수 있습니다. 문서에는 세미콜론으로 구분 된 이메일 주소가 있습니다."찾을 내용"및 "바꿀 내용"텍스트 상자에 입력-> "와일드 카드 사용"상자 지우기-> "모두 바꾸기"클릭세미콜론으로 구분 된 이메일 주소
  17. 마지막으로해야 할 일은 이러한 주소를 사서함에 복사하고 모든 수신자에게 동일한 정보를 한 번에 보내는 것입니다.

방법 2 : VBA 코드 사용

  1. 먼저 "Alt + F11"을 눌러 VBA 편집기를 엽니 다.
  2. 그런 다음 편집 영역에 다음 코드를 붙여 넣습니다.
Sub ExtractAllEmailAddressesFromDocument()
  Dim strEmailAddresses As String    

      ' Find all email addresses in a document,and Extract them.
      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
  1. 다음은 "실행"버튼을 누르십시오.코드 붙여 넣기-> "실행"누르기

그러면 세미콜론으로 구분 된 모든 이메일 주소가 포함 된 또 다른 새 문서가 생성됩니다. 그리고 당신은tart 우편함의 일괄 처리에 사용합니다.

VBA 코드 실행의 영향

손상된 파일을 검색하는 시간을 잡아라

사실, Word로 작업하면 항상 놀라운 사실을 찾을 수 있습니다. 그 기능에 놀랐지 만 Word가 겪을 수있는 충돌 가능성에주의해야합니다. 한편으로는 작업을 중단합니다. 반면에 Word가 붕괴되면 훨씬 더 큰 위협이 발생할 수 있습니다. 더 큰 위협이란 손상된 파일과 대체 할 수없는 데이터를 의미합니다.

따라서 우리는 당신이 백업을 만들고 most 중요한 것은 프로그램을 단어 손상 복구 그래서 당신은 시간을 낭비하지 않을 것입니다.

저자 소개 :

Vera Chen은 데이터 복구 전문가입니다. DataNumen, Inc.는 다음과 같은 데이터 복구 기술 분야의 세계적 리더입니다. xls 문제 해결 도구 pdf 수리 소프트웨어 제품. 자세한 내용은 WWW.datanumen.COM

지금 공유 :

댓글이 닫혀있다.