쿠키는 우리의 서비스를 제공 도움이됩니다. 우리의 서비스를 사용하면 쿠키의 우리의 사용에 동의합니다.
팁 : 다른 언어는 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.
    Rouzbeh · 1 years ago
    hi, i want to replace a number but i guess the problem that it's not working is that the number is not written in english it's in Persian. I would be so thankfull if someone can help me with it.
    • To post as a guest, your comment is unpublished.
      Rouzbeh · 1 years ago
      sorry, i was wrong. the problem is that the number is in the header and it seems that the trick is not working in header. if i open one of the files and activate the header then run the module it works but just in that specific file ,even if i select all the files. thanks again.
  • To post as a guest, your comment is unpublished.
    Rav · 1 years ago
    Hi, I new to VBA. I am able to get the data updated for only single file. How to select multiple files when the VBA script opens up ? The question might be simple to few, but it will help. Since i need to update a string in 175+ plus word files. Appreciate your quick response. Thanks ...
    • To post as a guest, your comment is unpublished.
      Asi · 1 years ago
      Put your files in one folder and select them all with a shift key. Hope this works.
  • To post as a guest, your comment is unpublished.
    darshan Jain · 1 years ago
    Hi
    this code is only editing 7 documents at a time... why?
  • To post as a guest, your comment is unpublished.
    Bryce · 1 years ago
    I really appreciated this post. Thank you. It allowed me to spend 10 minutes implementing something that saved several hours of work.
  • To post as a guest, your comment is unpublished.
    Tomuko Suryadi · 1 years ago
    What if I want to find and replace multiple sentences in multiple documents?