팁 : 다른 언어는 Google 번역입니다. 방문하실 수 있습니다. English 이 링크의 버전.
로그인
x
or
x
x
등록하기
x

or

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

같은 내용 (예 : 머리글, 바닥 글, 특수 단어 또는 숫자)을 포함하는 수십 개의 단어 파일이 있고 Word의 해당 문서에서 동일한 내용을 바꿔야하는 경우 신속하게 처리하기가 더 쉬울까요? 물론 이러한 파일을 하나씩 열어서 동일한 내용을 대체 할 수는 있지만 시간이 많이 걸리고 번거로울 수 있습니다. 이 자습서에서는 한 번에 Word의 여러 문서에서 동일한 내용을 바꾸는 까다로운 방법을 보여줍니다.

VBA 코드로 동시에 여러 단어 문서의 텍스트 찾기 및 바꾸기


여러 문서를 하나로 결합 / 병합 :

문서 병합 ~의 유용성 Word 용 Kutools 여러 문서를 하나로 결합하는 데 도움이 될 수 있습니다. 다음과 같이하면됩니다.

  • 하나로 결합 할 문서를 선택하십시오.
  • 결합 된 각 문서 사이에 구분을 지정하십시오.
  • 병합을 시작하십시오. 스크린 샷보기 :

Word 용 Kutools: 100 이상의 편리한 Word 추가 기능으로 30 일 동안 아무런 제한없이 사용해보십시오. 지금 무료 평가판 다운로드 및 다운로드!

Word 용 Kutools: 100 새로운 고급 기능 추가 단어 2003 / 2007 / 2010 / 2013 / 2016 / 2019.
사무실 탭: 사용 Office의 탭 편집 및 찾아보기, Chrome, Firefox, IE 8 / 9 / 10과 똑같이.
사무실을위한 클래식 메뉴: Office 2003의 옛 모습 가져 오기 Office 2007, 2010, 2013, 2016 및 2019.

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에서 여러 문서의 탭 브라우징, 편집 및 관리 :

오피스 탭은 구글 크롬, 인터넷 익스플로러 새 버전, 파이어 폭스와 같은 웹 브라우저에서 볼 수있는 탭 인터페이스를 Microsoft Word로 가져온다. 그것 의지 시간을 절약하는 도구가되어 작업에 반영되지 않습니다. 아래 데모보기 :

Office 탭 무료 평가판을 보려면 클릭하십시오!




Word 용 Kutools

Word 100, 2003, 2007, 2010, 2013 및 2016 용 2019 고급 기능 이상

쏜살이 - 700-225-kte

더 많은 특징 | 무료 다운로드 | 수백 개의 함수에 대해서만 $ 39.00

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    martinadam · 2 months ago
    Thanks for sharing this information with us.
    Word search and replace tool
  • To post as a guest, your comment is unpublished.
    ankit saini · 3 months ago
    This is really good
  • To post as a guest, your comment is unpublished.
    nathalie · 4 months ago
    Works perfectly but is there a similar macro to change text in the header! because this does not work with this version!
    thanks
  • To post as a guest, your comment is unpublished.
    blds · 11 months ago
    Doesn't work for me on footers. e.g find FFSOSxxxx and replace with GGSOSxxxx, i can see this code is great for others pls help. :(
  • To post as a guest, your comment is unpublished.
    Kath · 1 years ago
    Hi there, is there a code for replacing with text that is multiple sentences, with bullet points and quotation marks in MS word using this code - which is fantastic !