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

여러 파일을 단어로 검색하고 바꾸는 방법은 무엇입니까?

동일한 콘텐츠 (예 : 머리글, 바닥 글, 일부 특수 단어 또는 숫자)가 포함 된 수십 개의 단어 파일이 있고 Word의 해당 문서에서 동일한 콘텐츠를 바꿔야하는 경우. 신속하게 처리하는 것이 얼마나 쉬울까요? 물론 해당 파일을 하나씩 열어 동일한 콘텐츠를 바꿀 수 있지만 시간이 많이 걸리고 번거로울 것입니다. 이 자습서는 Word의 여러 문서에서 동일한 콘텐츠를 한 번에 바꾸는 까다로운 방법을 보여줍니다.

VBA 코드를 사용하여 여러 단어 문서에서 텍스트를 동시에 찾고 바꿉니다.
Word 용 Kutools를 사용하여 여러 문서에서 동시에 다른 텍스트를 쉽게 찾고 바꿀 수 있습니다.


VBA 코드를 사용하여 여러 단어 문서에서 텍스트를 동시에 찾고 바꿉니다.

1. 프레스 다른 + F11 를 열려면 응용 프로그램 용 Microsoft Visual Basic 창.

2. 에서 응용 프로그램 용 Microsoft Visual Basic 창을 클릭합니다 끼워 넣다모듈을 클릭 한 다음 다음 VBA 코드를 모듈 창에 복사합니다.

VBA 코드 : 한 번에 여러 문서에서 동일한 콘텐츠 검색 및 교체

Sub CommandButton1_Click()
'Updated by Extendoffice 20180625
Dim xFileDialog As FileDialog, GetStr(1 To 100) As String '100 files is the maximum applying this code
Dim xFindStr As String
Dim xReplaceStr As String
Dim xDoc As Document
On Error Resume Next
Set xFileDialog = Application.FileDialog(msoFileDialogFilePicker)
With xFileDialog
    .Filters.Clear
    .Filters.Add "All WORD File ", "*.docx", 1
    .AllowMultiSelect = True
    i = 1
    If .Show = -1 Then
        For Each stiSelectedItem In .SelectedItems
            GetStr(i) = stiSelectedItem
            i = i + 1
        Next
        i = i - 1
    End If
    Application.ScreenUpdating = False
    xFindStr = InputBox("Find what:", "Kutools for Word", xFindStr)
    xReplaceStr = InputBox("Replace with:", "Kutools for Word", xReplaceStr)
    For j = 1 To i Step 1
        Set xDoc = Documents.Open(FileName:=GetStr(j), Visible:=True)
        Windows(GetStr(j)).Activate
        Selection.Find.ClearFormatting
        Selection.Find.Replacement.ClearFormatting
        With Selection.Find
            .Text = xFindStr  'Find What
            .Replacement.Text = xReplaceStr  'Replace With
            .Forward = True
            .Wrap = wdFindAsk
            .Format = False
            .MatchCase = False
            .MatchWholeWord = False
            .MatchByte = True
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
        Application.Run macroname:="NEWMACROS"
        ActiveDocument.Save
        ActiveWindow.Close
    Next
    Application.ScreenUpdating = True
End With
MsgBox "Operation end, please view", vbInformation
End Sub

3. 누르세요 F5 코드를 실행하는 키입니다.

4. 오프닝에서 검색 창에서 찾을 문서를 찾아 선택하고 내부 텍스트를 바꾼 다음 OK 단추. 스크린 샷보기 :

5. 첫 번째 Word 용 Kutools 대화 상자에서 문서에서 찾을 텍스트를 무엇을 찾기 상자를 클릭 한 다음 OK 버튼을 클릭합니다.

6. 두 번째 Word 용 Kutools 대화 상자에서 바꿀 텍스트를 입력하고 OK 버튼을 클릭합니다.

8. 을 클릭합니다 OK 다음 버튼 마이크로 소프트 워드 대화 상자에서 찾기 및 바꾸기를 완료합니다.

이 경우 선택한 문서의 모든 단어 "Word"가 동시에 "Excel"로 대체됩니다.


Word 용 Kutools를 사용하여 여러 문서에서 동시에 다른 텍스트를 쉽게 찾고 바꿀 수 있습니다.

여기에 적극 추천합니다 일괄 찾기 및 바꾸기 특징 Word 용 Kutools. 이 기능을 사용하면 여러 Word 문서에서 동시에 다른 텍스트를 쉽게 찾고 바꿀 수 있습니다. 이 기능을 적용하여 문서에서 텍스트를 찾고 바꾸는 방법을 살펴 보겠습니다.

Word 용 Kutools : 100 개 이상의 편리한 Word 추가 기능으로 60 일 동안 제한없이 무료 체험.

1. 클릭하십시오 쿠툴즈 플러스 > 일괄 찾기 및 바꾸기 이 기능을 사용하려면

2. 에서 일괄 찾기 및 바꾸기 대화 상자에서 다음과 같이 구성하십시오.

  • 2.1) 클릭 행 추가 버튼 아래에 찾기 및 바꾸기 탭;
  • 2.2) 생성 된 행 필드에서 :
A. 텍스트 상자에 찾을 텍스트를 입력하십시오. 발견 칼럼
B. 텍스트 상자에 바꿀 텍스트를 입력합니다. 교체 기둥;
C. 검색 유형, 텍스트를 찾을 위치 및 필요에 따라 텍스트를 강조 표시 할 색상을 지정합니다. 이 경우에는 전체 단어 일치, 주요 문서 그리고에서 특정 색상 검색 유형, 에서 찾기강조 열;
  • 2.3) 2.1 단계와 2.2 단계를 반복하여 찾고 바꿀 텍스트를 더 추가합니다.
  • 2.4) 클릭  버튼의 파일 형식 섹션에서 텍스트를 찾고 바꿀 Word 문서를 추가합니다.
  • 2.5) 클릭 교체 or 발견 단추. 스크린 샷보기 :

노트:
1. 클릭하면 발견 버튼을 누르면 모든 검색 결과가 아래에 표시됩니다. 미리보기 결과 탭. 결과를 미리 본 후 모든 텍스트를 바꾸려면 찾기 및 바꾸기 탭. 그렇지 않으면 대화 상자를 닫으십시오.

2. 클릭하면 교체 버튼을 클릭하면 지정된 모든 텍스트가 즉시 새 텍스트로 대체되고 결과도 아래에 표시됩니다. 미리보기 결과 탭.

3. 2 단계에서 강조 색상을 지정하면 대체 된 모든 텍스트가 지정된 색상으로 강조 표시되며 문서에서 쉽게 찾을 수 있습니다.

3. 닫기 일괄 찾기 및 바꾸기 대화 상자

이 기능에 대한 자세한 내용은 여기를 클릭하세요 ....

이 유틸리티의 무료 평가판을 받으려면 다음으로 이동하십시오. 소프트웨어 무료 다운로드 먼저 위의 단계에 따라 작업을 적용하십시오.


추천 단어 생산 도구

 

Word 용 Kutools-Word 용 100 개 이상의 고급 기능으로 50 % 시간 절약

  • 복잡하고 반복되는 작업은 몇 초 만에 한 번 처리 할 수 ​​있습니다.
  • 여러 폴더의 이미지를 한 번에 Word 문서에 삽입합니다.
  • 폴더에있는 여러 Word 파일을 원하는 순서대로 하나로 병합하고 결합합니다.
  • 제목, 섹션 나누기 또는 기타 기준에 따라 현재 문서를 별도의 문서로 분할합니다.
  • Doc과 Docx, Docx와 PDF, 일반적인 변환 및 선택을위한 도구 모음 등의 파일 변환 ...
코멘트 (69)
아직 평가가 없습니다. 가장 먼저 평가하세요!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
문제의 문서가 어디에 있는지 묻습니까? 아니면 모든 문서를 열어야 합니까?
바벳
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
실행하면 기본적으로 "내 문서"에 대한 "파일 열기" 대화창이 열립니다. 변경하려는 Word 파일이 포함된 폴더로 이동합니다. "Ctrl" + "A"를 눌러 모든 파일을 선택하거나 "Ctrl" 키를 누른 상태에서 특정 파일을 선택할 수 있습니다. "열기"를 클릭하거나 "Enter"를 누르고 마술이 일어나는 것을 지켜보십시오.
PatrickRs고스트
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
예, 이것이 유용할 것이라고 생각하는 것과 같은 질문이 있지만 특정 폴더만 보도록 지시하고 싶습니다.
앨리슨 페퍼
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
매크로를 실행하면 "열기" 창이 열립니다. 변경해야 하는 파일이 포함된 폴더로 이동한 다음 첫 번째 파일을 한 번 클릭한 다음 "Ctrl" 키를 누른 상태에서 찾기/바꾸기가 필요한 다른 파일을 클릭합니다. 폴더의 모든 파일에 작업이 필요한 경우 "Ctrl" 및 "A" 키를 누르십시오. 그런 다음 "열기"를 클릭하거나 "Enter" 키를 누르면 매크로가 시작됩니다. 직장에서 이 작업을 수십 번 수행했기 때문에 경고해야 합니다. 매크로를 사용하면 Word 문서의 *본문*에만 변경 사항이 적용됩니다. 머리글, 바닥글 및 제목 텍스트/대체 텍스트는 제외됩니다. 앞서 언급한 부분에 교체해야 할 텍스트가 있는 경우 개별 문서에서 표준 찾기/바꾸기를 수행해야 합니다.
패트릭
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이 VBA 기술을 게시자 파일에 적용할 수 있습니까? 예를 들어 *.docx를 *.pub로 변경하면 ?
제임스 알
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
와우 이 매크로를 조합한 당신은 성자입니다! 나는 아주 아마추어 매크로 스미스이기 때문에 Songza에서 'Epic Battle Music'을 듣고 있으며 프로그래밍 주문을 만드는 고통과 고뇌를 통과할 수 있는 유일한 방법입니다. 어쨌든, 내가 만들려는 요점은 금요일에 찾고자 하는 텍스트를 실제로 입력하고 대체할 텍스트를 입력하는 부분의 문제를 해결하는 데 많은 시간을 보냈다는 것입니다. "찾기" 단어 텍스트 및 "바꾸기" 단어 텍스트를 넣을 위치에 대한 용어: [인용]참고: Text = "search", Replacement.Text = "find"를 변경하여 검색할 내용과 내용을 지정할 수 있습니다. 교체 신청합니다. [/인용] 나는 오늘 이것을 다시 읽었고 다른 프로그래밍 초보자를 위해 정중하게 명확히 하고 싶습니다. VBA 섹션에서 원래 프로그래밍 언어를 복사하여 붙여넣은 곳에서 그리고 ' 뒤에 + (아래 예 참조) - 내 예에서는 Pizza를 Stromboli로 대체할 여러 문서를 찾고 있습니다. .Text = "Pizza" 'Find What' .Replacement.Text = "Stromboli" 'Replace With'
제비디아 스프링필드
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
실행하면 연결이 끊기고 다음 위치에서 중지됩니다. Application.Run macroname:="NEWMACROS" 그리고 한 단계 진행하면 컴파일 오류가 있음을 알려줍니다. 명명된 인수를 찾을 수 없습니다. 이제 뭐?
그렉 시모니스
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
매력처럼 작동했고 저에게 많은 시간과 노력을 절약했습니다. 감사해요.
무라리스크
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
Windows 7을 실행하는 내 PC에서는 여전히 이 기능을 사용할 수 없습니다. 실행하면 -Windows(GetStr(j)).Activate The error msg 행에서 오류 메시지가 나타납니다. is: -컴파일 오류: -Sub 또는 함수가 정의되지 않았습니다. 이유가 무엇입니까? 그리고 그것을 고치는 방법?
그렉 시모니스
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이것이 마침내 나를 위해 일한 것입니다. 도움이 되기를 바랍니다. 이 매크로를 워드 파일에 추가했습니다. 파일 대화 상자가 열리면 선택한 문서 바꾸기(원하는 만큼 선택할 수 있음)를 실행합니다. 하위 폴더에서 작동하지 않으므로 파일 구조의 각 폴더를 개별적으로 수행했지만 작동했습니다. 최선의 수정은 아니지만 적어도 작동합니다. Private Sub CommandButton1_Click() Dim MyDialog As FileDialog, GetStr(1 To 100) As String '100 파일은 이 코드를 적용하는 최대값입니다. On Error Resume Next Set MyDialog = Application.FileDialog(msoFileDialogFilePicker) With MyDialog .Filters.Clear '~~> 이 파일 확장자를 관련 문서 유형으로 변경하십시오. .Filters.Add "All WORD File", "*.doc", 1 .AllowMultiSelect = True i = 1 If .Show = -1 then .SelectedItems의 각 stiSelectedItem GetStr(i) = stiSelectedItem i = i + 1 다음 i = i - 1 End If Application.ScreenUpdating = False For j = 1 To i 1단계 doc = Documents.Open(FileName:=GetStr(j), Visible:=True) Windows(GetStr(j)).Activate Selection으로 설정합니다. Find.ClearFormatting Selection.Find.Replacement.ClearFormatting '섹션 다음 코드 섹션 중 하나 또는 다른 섹션.
피아 윌슨
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
그런 다음 대체할 테스트 또는 하이퍼링크 여부에 따라 다음 두 섹션 중 하나를 추가합니다. '~~> 주석이 없는 경우 이 섹션은 텍스트를 대체합니다. http://www.google.co.uk" '찾을 내용 .Replacement.Text = "http://www.google.com" '다음으로 바꾸기 .Forward = True .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll Application.Run macroname:="NEWMACROS" ActiveDocument.Close ActiveDocument.Close ActiveDocu 저장 = True End With MsgBox "operation end, please view", vbInformation '~~> 주석이 없는 경우 이 섹션은 하이퍼링크를 대체합니다. 'For i = 1 To doc.Hyperlinks.Count ' '하이퍼링크가 일치하는 경우. ' If LCase(doc.Hyperlinks(i).Address) = "http://www.google.co.uk/" Then ' '링크 주소를 변경합니다. ' doc.Hyperlinks(i).Address = "https://www.google.com" ' '원하는 경우 링크 표시 텍스트를 변경합니다. ' doc.Hyperlinks(i).TextToDisplay = "http://www.google.com" ' End If ' Next 'Application.Run macroname:="NEWMACROS" 'ActiveDocument.Save 'ActiveDocument.Close 'Next 'Application.ScreenUpdating = True 'End With 'MsgBox "작업 종료, 보시기 바랍니다", vbInformation End Sub
피아 윌슨
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕 Pia, 하이퍼링크를 대체하기 위해 스크립트를 실행하려고 하는데 오류가 발생합니다. 하이퍼링크를 모두 하나로 대체하는 스크립트를 게시할 수 있는 기회가 있습니까? 코드를 함께 패치하려고 할 때 뭔가 엉망이 된 것 같습니다.
시건
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
선택한 파일에서만 실행되며 파일은 하나의 폴더에만 있어야 합니다. 이것은 워드 문서에서 매크로로 실행됩니다. 버튼을 클릭하면 실행됩니다. 이것은 word doc의 Hope this help만 업데이트합니다. Private Sub CommandButton1_Click() Dim MyDialog As FileDialog, GetStr(1 To 100) As String '100 파일은 이 코드를 적용하는 최대값입니다. On Error Resume Next Set MyDialog = Application.FileDialog(msoFileDialogFilePicker) With MyDialog .Filters.Clear '~~> 이 파일 확장자를 관련 문서 유형으로 변경하십시오. .Filters.Add "All WORD File", "*.doc", 1 .AllowMultiSelect = True i = 1 If .Show = -1 then .SelectedItems의 각 stiSelectedItem GetStr(i) = stiSelectedItem i = i + 1 다음 i = i - 1 End If Application.ScreenUpdating = False For j = 1 To i 1단계 doc = Documents.Open(FileName:=GetStr(j), Visible:=True) Windows(GetStr(j)).Activate Selection으로 설정합니다. Find.ClearFormatting Selection.Find.Replacement.ClearFormatting For i = 1 To doc.Hyperlinks.Count '하이퍼링크가 일치하는 경우. If LCase(doc.Hyperlinks(i).Address) = "http://www.yahoo.co.uk/" then '링크 주소를 변경합니다. doc.Hyperlinks(i).Address = "https://www.google.co.uk" '원하는 경우 링크 표시 텍스트를 변경합니다. doc.Hyperlinks(i).TextToDisplay = "http://www.google.co.uk" End If Next Application.Run macroname:="NEWMACROS" ActiveDocument.Save ActiveDocument.Close Next Application.ScreenUpdating = True End With MsgBox " 작업 종료, 참조하십시오", vbInformation End Sub
피아
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이것은 완벽하게 작동했고 많은 시간을 절약했습니다. 고맙습니다!
대니
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, 이것은 문서 본문의 단어에 대해 훌륭하게 작동했지만 헤더의 동일한 단어를 대체하지 않았습니다. 모든 아이디어. 감사해요
여자 이름
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
대체 텍스트의 형식을 변경하고 싶습니다. 즉, "Pizza"는 "버거". 어떻게 달성할 수 있습니까?
Nilesh
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
Big THX 4 code... 하지만 헤더가 있는 해당 prblm도 있습니다... 변경 사항 없음 미리 감사드립니다.
단어Z
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
게시해 주셔서 감사합니다! 나는 몇 가지 테스트를 실행했고 그것이 나를 위해 일하게 했습니다. 그러나 어떤 이유로 머리글과 바닥글의 텍스트에서는 작동하지 않습니다. 이에 대한 수정 사항이 있습니까?
사테나99
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
죄송하지만 헤더나 형식을 모릅니다. 내 코드에 포함할 필요가 없었습니다. 나는 이것을 사용한 적이 없으며 내가 게시한 코드는 위의 원본 코드에서 가져온 다음 작동할 때까지 다른 검색에서 찾은 코드를 사용하여 tweeked했습니다. 더 많은 도움을 드리지 못해 죄송합니다.
피아
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
지난 몇 분 동안 테스트해 보았는데 정말 놀랍습니다. 감사합니다! 여러 파일에 대해 여러 '찾기 및 바꾸기' 루틴을 수행해야 합니다. 수십 개의 파일에 대한 수십 개의 루틴. 새 루틴을 수행해야 할 때마다 VBA 화면에 다시 붙여넣을 필요가 없도록 모듈을 '저장'하는 방법이 있습니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
한 번에 여러 '찾기 및 바꾸기' 자세를 수행하도록 이 매크로를 조정할 수 있습니까? 대체해야 할 여러 단어와 구문이 있으며 현재로서는 모든 인스턴스에 대해 VBA 코드를 다시 삽입해야 합니다. 나는 그런 것들에 대해 멍청하다.
마리오
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이 코드는 저에게 많은 시간을 절약해 주었습니다... 감사합니다! 하지만 한 가지 - 매크로가 찾고/바꾸는 단어 수를 늘릴 수 있는 방법이 있습니까? 한 번에 여러 단락을 찾거나 바꿔야 하고 매크로의 제한이 200자 정도인 것 같습니다.
마일로
아직 코멘트가 없습니다
더보기
여러분의 의견을 남겨
게스트로 게시
×
이 게시물 평가 :
0  등장 인물
추천 위치