Note: The other languages of the website are Google-translated. Back to English

Excel에서 Word 문서의 텍스트를 찾고 바꾸는 방법은 무엇입니까?

Word 문서에서 찾기 및 바꾸기 기능을 적용하여 하나의 텍스트를 빠르게 찾고 바꿀 수 있습니다. 그러나 찾아서 바꿔야 하는 텍스트가 여러 개인 경우 찾기 및 바꾸기 기능에 텍스트를 하나씩 입력하는 데 시간이 많이 걸립니다. 이 경우 찾기 및 바꾸기 텍스트를 셀 목록에 입력하고 Excel의 VBA 코드를 사용하여 이 작업을 쉽게 수행할 수 있습니다. 이 기사에서는 여러 Word 문서에서 텍스트를 일괄 검색하고 바꾸는 유용한 기능도 소개합니다.

Excel에서 VBA 코드로 하나의 Word 문서에서 여러 텍스트 찾기 및 바꾸기

Excel의 여러 Word 문서에서 여러 텍스트를 찾아 VBA 코드로 바꾸기

강력한 기능으로 여러 Word 문서에서 여러 텍스트 찾기 및 바꾸기


Excel에서 VBA 코드로 하나의 Word 문서에서 여러 텍스트 찾기 및 바꾸기

하나의 Word 파일에서만 일부 텍스트를 찾아서 바꾸려는 경우 다음 VBA 코드가 도움이 될 수 있습니다.

1. Excel 워크시트에서 아래 스크린샷과 같이 찾고 바꿀 텍스트가 포함된 열과 바꿀 텍스트가 있는 다른 열을 만듭니다. 그런 다음 Alt + F11 동시에 열려면 키 응용 프로그램 용 Microsoft Visual Basic 창.

2. 그런 다음 끼워 넣다 > 모듈, 아래 VBA 코드를 복사하여 창에 붙여넣습니다.

VBA 코드: 하나의 Word 파일에서 여러 텍스트 찾기 및 바꾸기

Sub replace_texts_range_of_cells()
'Updateby ExtendOffice
Dim xWordApp As Word.Application
Dim xDoc As Word.Document
Dim xRng As Range
Dim I As Integer
Dim xFileDlg As FileDialog
On Error GoTo ExitSub
Set xFileDlg = Application.FileDialog(msoFileDialogFilePicker)
xFileDlg.AllowMultiSelect = False
xFileDlg.Filters.Add "Word Document", "*.docx; *.doc; *.docm"
xFileDlg.FilterIndex = 2
If xFileDlg.Show <> -1 Then GoTo ExitSub
Set xRng = Application.InputBox("Please select the lists of find and replace texts (Press Ctrl key to select two same size ranges):", "Kutools for Excel", , , , , , 8)
If xRng.Areas.Count <> 2 Then
  MsgBox "Please select two columns (press Ctrl key), the two ranges have the same size.", vbInformation + vbOKOnly, "Kutools for Excel"
  GoTo ExitSub
End If
If (xRng.Areas.Item(1).Rows.Count <> xRng.Areas.Item(2).Rows.Count) Or _
  (xRng.Areas.Item(1).Columns.Count <> xRng.Areas.Item(2).Columns.Count) Then
  MsgBox "Please select two columns (press Ctrl key), the two ranges have the same size.", vbInformation + vbOKOnly, "Kutools for Excel"
  GoTo ExitSub
End If
Set xWordApp = CreateObject("Word.application")
xWordApp.Visible = True
Set xDoc = xWordApp.Documents.Open(xFileDlg.SelectedItems.Item(1))
For I = 1 To xRng.Areas.Item(1).Cells.Count
  With xDoc.Application.Selection.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = xRng.Areas.Item(1).Cells.Item(I).Value
    .Replacement.Text = xRng.Areas.Item(2).Cells.Item(I).Value
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchByte = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
  End With
  xDoc.Application.Selection.Find.Execute Replace:=wdReplaceAll
Next
ExitSub:
  Set xRng = Nothing
  Set xFileDlg = Nothing
  Set xWordApp = Nothing
  Set xDoc = Nothing
End Sub

3. 코드를 붙여넣은 후에도 여전히 응용 프로그램 용 Microsoft Visual Basic 창을 클릭합니다 도구 > 참조, 스크린 샷 참조 :

4. 튀어 나온 참조 – VBAProject 대화 상자에서 Microsoft Word 16.0 개체 라이브러리 목록 상자에서 스크린샷 참조:

5. 딸깍 하는 소리 OK 버튼을 눌러 대화 상자를 닫고 이제 F5 이 코드를 실행하려면 팝업 찾아보기 창에서 텍스트를 대체할 Word 파일을 선택하고 스크린샷을 참조하십시오.

6. 그런 다음 OK, 다음 대화 상자에서 Ctrl 키 키를 사용하여 사용하려는 원본 텍스트와 새 텍스트 셀을 별도로 선택하려면 스크린샷을 참조하십시오.

7. 그런 다음 OK 버튼을 누르면 지정된 문서에서 텍스트를 찾아 새 텍스트로 대체하고 파일도 열리므로 변경 사항을 유지하려면 저장해야 합니다.


Excel의 여러 Word 문서에서 여러 텍스트를 찾아 VBA 코드로 바꾸기

여기에서 여러 Word 문서에서 여러 텍스트를 찾고 바꾸기 위한 VBA 코드도 만듭니다. 다음과 같이 하십시오.

1. 아래 스크린샷과 같이 교체 및 교체할 값의 두 열이 포함된 Excel 파일을 연 다음 키를 누릅니다. Alt + F11 동시에 열려면 키 응용 프로그램 용 Microsoft Visual Basic 창.

2. 그런 다음 끼워 넣다 > 모듈, 아래 VBA 코드를 복사하여 창에 붙여넣습니다.

VBA 코드: 여러 Word 파일에서 여러 텍스트 찾기 및 바꾸기

Sub FindReplaceAcrossMultipleWordDocuments()
'Updateby ExtendOffice
Dim xWordApp As Word.Application
Dim xDoc As Word.Document
Dim xRng As Range
Dim I As Integer
Dim xFolderDlg As FileDialog
Dim xFSO As Scripting.FileSystemObject
Dim xFile As File
On Error GoTo ExitSub
Set xFolderDlg = Application.FileDialog(msoFileDialogFolderPicker)
If xFolderDlg.Show <> -1 Then GoTo ExitSub
Set xRng = Application.InputBox("Please select the lists of find and replace texts (Press Ctrl key to select two same size ranges", "Kutools for Excel", , , , , , 8)
If xRng.Areas.Count <> 2 Then
  MsgBox "Please select two columns (press Ctrl key), the two ranges have the same size", vbInformation + vbOKOnly, "Kutools for Excel"
  GoTo ExitSub
End If
If (xRng.Areas.Item(1).Rows.Count <> xRng.Areas.Item(2).Rows.Count) Or _
  (xRng.Areas.Item(1).Columns.Count <> xRng.Areas.Item(2).Columns.Count) Then
  MsgBox "Please select two columns (press Ctrl key), the two ranges have the same size.", vbInformation + vbOKOnly, "Kutools for Excel"
  GoTo ExitSub
End If
Set xFSO = New Scripting.FileSystemObject
Set xWordApp = CreateObject("Word.application")
xWordApp.Visible = True
For Each xFile In xFSO.GetFolder(xFolderDlg.SelectedItems(1)).Files
  If VBA.InStr(xFile.Type, "Microsoft Word") > 0 Then
    Set xDoc = xWordApp.Documents.Open(xFile.Path)
    For I = 1 To xRng.Areas.Item(1).Cells.Count
      With xDoc.Application.Selection.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = xRng.Areas.Item(1).Cells.Item(I).Value
        .Replacement.Text = xRng.Areas.Item(2).Cells.Item(I).Value
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
      End With
      xDoc.Application.Selection.Find.Execute Replace:=wdReplaceAll
    Next
    xDoc.Close wdSaveChanges
  End If
Next
xWordApp.Quit
MsgBox "The Find and Replace has been completed", vbInformation + vbOKOnly, "Kutools for Excel"
ExitSub:
  Set xRng = Nothing
  Set xFolderDlg = Nothing
  Set xWordApp = Nothing
  Set xDoc = Nothing
End Sub

3. 여전히 응용 프로그램 용 Microsoft Visual Basic 창을 클릭합니다 도구 > 참조,에 참조 – VBAProject 대화 상자에서 Microsoft Word 16.0 개체 라이브러리Microsoft 스크립팅 런타임 목록 상자에서 옵션, 스크린샷 참조:

4. 두 가지 옵션을 확인한 후 다음을 클릭합니다. OK 대화 상자를 닫고 계속 F5 오프닝에서 이 코드를 실행하기 위한 키 검색 창에서 찾기 및 바꾸기를 수행하려는 Word 문서가 포함된 폴더를 선택합니다. 스크린샷을 참조하십시오.

5. 딸깍 하는 소리 OK 버튼, 팝업 대화 상자에서 Ctrl 키 키를 사용하여 사용하려는 원본 텍스트와 새 텍스트 열을 별도로 선택하려면 스크린샷을 참조하십시오.

6. 마지막으로 OK, 원본 텍스트는 이 파일에서 새 텍스트로 대체됩니다. 완료되면 아래 스크린샷과 같이 대화 상자가 나타납니다.

7. 딸깍 하는 소리 OK 대화 상자를 닫습니다. 그리고 파일로 이동하여 변환된 결과를 확인할 수 있습니다.


강력한 기능으로 여러 Word 문서에서 여러 텍스트 찾기 및 바꾸기

이 섹션에서는 Excel 대신 Word에서 여러 Word 문서의 텍스트를 일괄 검색하고 바꾸는 방법에 대해 설명합니다. 강력한 도구로-Word 용 Kutools, 특정 텍스트를 빠르게 찾아 교체하고 기본 파일, 머리글, 바닥글, 주석 등의 새 텍스트로 교체하고 필요에 따라 결과를 강조 표시할 수 있습니다.

1. 하나의 Word 파일을 연 다음 쿠툴즈 플러스 > 일괄 찾기 및 바꾸기, 스크린 샷 참조 :

2. 열린 일괄 찾기 및 바꾸기 대화 상자에서 다음 작업을 수행하십시오.

  • 추가 텍스트를 찾고 바꿀 Word 파일을 추가하는 버튼;
  • 왼쪽 창에서 행 추가 상단 리본에서;
  • 삽입된 필드에 원본 텍스트와 새 텍스트를 입력합니다. 발견교체 찾아서 바꾸려는 열을 별도로 선택합니다. 또한 필요에 따라 교체된 텍스트를 강조 표시하는 색상을 지정할 수 있습니다.

3. 검색 기준을 만든 후 교체 버튼으로 이동 미리보기 결과 탭을 클릭하여 찾기 및 바꾸기 결과를 봅니다. 스크린샷 참조:

4. 그런 다음 닫기 버튼을 누르면 이 시나리오를 저장할 것인지 알려주는 프롬프트 상자가 나타납니다. 가능 저장하고 아니 무시하려면 스크린 샷을 참조하십시오.

방문 꿀팁: 이 기능은 다음 작업을 수행하는 데도 도움이 될 수 있습니다.
  • 여러 Word 문서에서 특수 문자 찾기 및 바꾸기
  • 여러 Word 문서에서 여러 문자열을 찾아 특정 서식으로 바꿉니다.
  • 여러 txt/htm/html 파일에서 여러 문자열을 찾아서 바꿉니다.

이 기능에 대한 자세한 정보를 보려면 클릭하십시오…


최고의 사무 생산성 도구

Excel용 Kutools는 대부분의 문제를 해결하고 생산성을 80% 증가시킵니다.

  • 재사용: 빠르게 삽입 복잡한 공식, 차트 그리고 이전에 사용한 모든 것; 셀 암호화 암호로; 메일 링리스트 생성 이메일 보내기 ...
  • 슈퍼 포뮬러 바 (여러 줄의 텍스트와 수식을 쉽게 편집 할 수 있습니다.) 레이아웃 읽기 (많은 수의 셀을 쉽게 읽고 편집합니다.) 필터링 된 범위에 붙여 넣기...
  • 셀 / 행 / 열 병합 데이터 손실없이; 셀 내용 분할; 중복 행 / 열 결합... 중복 셀 방지; 범위 비교...
  • 중복 또는 고유 선택 행; 빈 행 선택 (모든 셀이 비어 있음); 슈퍼 찾기 및 퍼지 찾기 많은 통합 문서에서; 무작위 선택 ...
  • 정확한 사본 수식 참조를 변경하지 않고 여러 셀; 참조 자동 생성 여러 시트에; 글 머리 기호 삽입, 확인란 등 ...
  • 텍스트 추출, 텍스트 추가, 위치 별 제거, 공간 제거; 페이징 부분합을 만들고 인쇄합니다. 셀 내용과 주석 간 변환...
  • 슈퍼 필터 (다른 시트에 필터 구성표 저장 및 적용) 고급 정렬 월 / 주 / 일, 빈도 등 특수 필터 굵은 기울임 꼴로 ...
  • 통합 문서와 워크 시트 결합; 키 열을 기반으로 테이블 병합; 데이터를 여러 시트로 분할; xls, xlsx 및 PDF 일괄 변환...
  • 300개 이상의 강력한 기능. Office / Excel 2007-2021 및 365를 지원합니다. 모든 언어를 지원합니다. 기업 또는 조직에서 쉽게 배포할 수 있습니다. 전체 기능은 30일 무료 평가판입니다. 60일 환불 보장.
kte 탭 201905

Office Tab은 Office에 탭 인터페이스를 제공하여 작업을 훨씬 쉽게 만듭니다.

  • Word, Excel, PowerPoint에서 탭 편집 및 읽기 사용, Publisher, Access, Visio 및 Project.
  • 새 창이 아닌 동일한 창의 새 탭에서 여러 문서를 열고 만듭니다.
  • 생산성을 50% 높이고 매일 수백 번의 마우스 클릭을 줄입니다!
officetab 하단
코멘트 (4)
아직 평가가 없습니다. 가장 먼저 평가하세요!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
인사말,
첫 번째 코드:
VBA 코드: 하나의 Word 파일에서 여러 텍스트 찾기 및 바꾸기

오류 발생 : 컴파일 오류 사용자 정의 유형이 정의되지 않음
https://i.imgur.com/FZPBy4I.png
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕, 에릭
코드가 잘 작동합니다.
아마, 당신은 확인하지 않았다 Microsoft Word 16.0 개체 라이브러리 인사말 참조 – VBAProject 대화 상자.
이 기사의 3단계와 4단계를 놓칠 수 있음을 의미합니다.
다시 시도해 보시고 그래도 다른 문제가 있으면 여기에 댓글을 달아주세요.

https://www.extendoffice.com/images/stories/comments/comment-skyyang/2023-comment/doc-find-replace-word-file-excel.png
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
작동하지 않습니다.

컴파일 오류: 사용자 정의 유형이 정의되지 않음
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕, 파라
코드가 잘 작동합니다.
아마, 당신은 확인하지 않았다 Microsoft Word 16.0 개체 라이브러리 인사말 참조 – VBAProject 대화 상자.
이 기사의 3단계와 4단계를 놓칠 수 있음을 의미합니다.
다시 시도해 보시고 그래도 다른 문제가 있으면 여기에 댓글을 달아주세요.
https://www.extendoffice.com/images/stories/comments/comment-skyyang/2023-comment/doc-find-replace-word-file-excel.png
아직 코멘트가 없습니다
여러분의 의견을 남겨
게스트로 게시
×
이 게시물 평가 :
0   등장 인물
추천 위치

Follow Us

저작권 © 2009 - WWW.extendoffice.com. | 판권 소유. 에 의해 구동 ExtendOffice. | | 사이트 맵
Microsoft 및 Office 로고는 미국 및 / 또는 기타 국가에서 Microsoft Corporation의 상표 또는 등록 상표입니다.
Sectigo SSL로 보호