4 Word 문서의 일부에서 텍스트를 찾고 바꾸는 유용한 방법

지금 공유 :

이 문서에서는 Word 문서의 일부에서 텍스트를 찾고 바꾸는 4 가지 유용한 방법을 보여 드리게되어 기쁘게 생각합니다.

일반적으로 Word에서 "찾기 및 바꾸기"를 수행하면 그 효과는 전체적으로 나타납니다. 따라서 오늘 우리는 선택, 단일 페이지 또는 특정 섹션과 같은 문서의 일부에서 텍스트를 찾고 바꾸는 방법을 제공하고자합니다.Word 문서의 일부에서 텍스트 찾기 및 바꾸기

방법 1 : 선택 항목에서 "찾기 및 바꾸기"기능 활용

  1. 먼저 tar텍스트를 얻습니다.
  2. 둘째, "Ctrl + H"를 눌러 "찾기 및 바꾸기"상자를 엽니 다.
  3. 다음으로 "찾을 내용"텍스트 상자에 찾기 텍스트를 입력하고 "바꿀 내용"상자에 대체 텍스트를 입력합니다.
  4. 그런 다음 "모두 바꾸기"버튼을 클릭합니다.
  5. 문서의 나머지 부분에서 계속 검색 할 것인지 묻는 상자가 나타납니다. "아니오"를 클릭하십시오."찾을 내용"및 "바꿀 내용"텍스트 상자에 텍스트 입력-> "모두 바꾸기"클릭-> "아니오"클릭

방법 2 : VBA 코드를 실행하여 선택 영역에서 텍스트 찾기 및 바꾸기

  1. 먼저 문서 내용의 범위를 선택하십시오.
  2. 다음으로 "Alt + F11"을 눌러 VBA 편집기를 트리거합니다.
  3. 그런 다음 "일반"을 클릭하고 "삽입"을 클릭합니다.
  4. 메뉴에서 "Module"을 선택합니다."일반"클릭-> "삽입"클릭-> "모듈"클릭
  5. 이제 두 번 클릭하여 모듈을 엽니 다.
  6. 여기에 다음 코드를 복사하여 붙여 넣으십시오.
Sub FindAndReplaceInSelection()
  Dim strFindText As String
  Dim strReplaceText As String
 
  strFindText = InputBox("Enter finding text here:")
  strReplaceText = InputBox("Enter replacing text here:")

  With Selection.Find
    .Text = strFindText
    .Replacement.Text = strReplaceText
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
  End With
  Selection.Find.Execute Replace:=wdReplaceAll
End Sub
  1. 다음으로 "F5"를 누르십시오.코드 붙여 넣기-> "실행"클릭
  2. 두 개의 입력 상자가 표시됩니다. 두 개의 상자에 각각 찾기 및 바꾸기 텍스트를 입력합니다.
  3. 계속하려면 "확인"을 클릭하십시오.찾을 텍스트 입력

방법 1에서와 똑같은 효과를 얻을 수 있습니다.

방법 3 : Word 매크로를 실행하여 지정된 페이지에서 텍스트 찾기 및 바꾸기

다음 매크로를 사용하면 특정 페이지에서 텍스트를 찾고 바꿀 수 있습니다.

  1. 먼저 방법 2의 단계에 따라 매크로를 설치하고 실행합니다.
  2. 그런 다음 해당 매크로를 다음 매크로로 바꿉니다.
Sub FindAndReplaceInSpecificPage()
  Dim strFindText As String
  Dim strReplaceText As String
  Dim strPageNum As String
  Dim nPageNum As Integer
 
  strPageNum = InputBox("Enter a page number: ")
  nPageNum = Int(strPageNum)
 
  Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=nPageNum
  ActiveDocument.Bookmarks("\page").Range.Select
  strFindText = InputBox("Enter finding text here:")
  strReplaceText = InputBox("Enter replacing text here:")

  With Selection.Find
    .Text = strFindText
    .Replacement.Text = strReplaceText
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
  End With
  Selection.Find.Execute Replace:=wdReplaceAll
End Sub
  1. 이 코드를 실행하면 3 개의 입력 상자가 있습니다. 첫 번째 상자에 페이지 번호를 입력하고 두 번째 상자에 찾기 텍스트를 입력하고 세 번째 상자에 대체 텍스트를 입력합니다.
  2. 계속하려면 "확인"을 클릭하십시오.페이지 번호 입력-> "확인"클릭

방법 4 : Word 매크로를 실행하여 구역의 텍스트 찾기 및 바꾸기

  1. 마찬가지로 방법 2에서 동일한 단계를 수행하여 매크로를 설치하고 실행합니다.
  2. 이번에 만이 매크로를 대신 사용하십시오.
Sub FindAndReplaceInSection()
  Dim strFindText As String
  Dim strReplaceText As String
  Dim strSectionNum As String
  Dim nSectionNum As Integer
 
  strSectionNum = InputBox("Enter a section number: ")
  nSectionNum = Int(strSectionNum)
 
  Selection.GoTo What:=wdGoToSection, Which:=wdGoToFirst, Count:=1, Name:=nSectionNum
  ActiveDocument.Sections(nSectionNum).Range.Select
  strFindText = InputBox("Enter finding text here:")
  strReplaceText = InputBox("Enter replacing text here:")

  With Selection.Find
    .Text = strFindText
    .Replacement.Text = strReplaceText
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
  End With
  Selection.Find.Execute Replace:=wdReplaceAll
End Sub
  1. 첫 번째 상자에 섹션 번호를 입력하는 것을 잊지 마십시오. 그리고 다음 두 상자에 찾기 및 바꾸기 텍스트를 입력합니다.
  2. 그래도 계속하려면 "확인"을 클릭합니다.

단어 문제에 대처

문서에서 여러 종류의 문제가 발생할 수 있습니다. 일부는 다루기 쉬운 반면 다른 일부는 더 심각하여 단어 손상. 이러한 시나리오에서는 데이터를 복구하기 위해 가능한 한 빨리 복구 도구를 가져와야합니다.

저자 소개 :

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

지금 공유 :

댓글이 닫혀있다.