2 Word 문서에서 퍼지 검색을 수행하는 유용한 방법

워드 솔루션 2025 년 9 월 28 일

아래 기사에서는 Word 문서에서 퍼지 검색을 수행하는 두 가지 유용한 방법을 제공하고자합니다.

때때로 우리는 단어를 올바르게 철자하는 방법을 잊어 버릴 가능성이 있습니다. 특히 긴 단어 일 때 더욱 그렇습니다. 미디엄ost 시간이 지남에 따라 우리는 시작 글자 몇 개만 기억하지 못합니다. 이것은 정확한 검색을 만듭니다.ost 불가능합니다.

운 좋게도 퍼지 검색 방법이 있습니다. 그리고 Word 문서에서 활용할 수 있습니다.

방법 1 : Word에서 "고급 찾기"기능 사용

우리의 경우에는“DataNumen"데이터"로 시작하는 것만 기억한다고 가정합니다.

먼저 "홈"탭의 "편집"그룹에서 "찾기"명령 옆에있는 드롭 다운 버튼을 클릭합니다.
그리고 그 메뉴에서 "고급 찾기"옵션을 선택합니다.
그런 다음 "찾을 내용"텍스트 상자에 삽입 포인터를 놓고 여기에 와일드 카드를 붙여 넣습니다.

"데이터"는 tar단어를 얻으십시오. 실제의 것으로 교체해야합니다. 처음 글자를 잊어 버린 경우에는 비워두고 공백도 입력하지 마십시오.
그리고“n, m”은 나머지 문자 길이의 수를 나타냅니다. tar시작 문자를 제외하고 단어를 얻으십시오. 이 경우 숫자“5”라고합시다. 따라서 와일드 카드는 다음과 같이 표시되어야합니다.

정확한 글자 길이가 확실하지 않은 경우 다음과 같이 범위를 나타내는 2 개의 숫자를 입력 할 수 있습니다.

그리고 문자 길이가 특정 숫자와 같거나 더 크다고 확신하는 경우 다음과 같이 표현식에 입력하십시오.

다음으로 "더보기"를 클릭하면 더 많은 옵션이 표시됩니다.
"와일드 카드 사용"상자를 선택합니다.
그런 다음 "찾기"를 클릭하고 "주 문서"를 선택합니다.

모든 항목을 볼 수 있습니다. tar선택에서 단어를 얻으십시오.

방법 2 : VBA 코드를 실행하여 텍스트 검색

VBA 코드를 실행하면 표현식을 암기하지 않아도됩니다.

첫 번째와 포름ost, "Alt + F11"을 눌러 Word에서 VBA 편집기를 호출합니다.
다음으로“Normal”프로젝트를 클릭하고“Insert”를 클릭합니다.
메뉴에서 "Module"을 선택합니다.
두 번 클릭하여 다음 코드를 열고 붙여 넣으십시오.

Sub FindTheWordsByLength()
  Dim objRange As Range
  Dim strStartWord As String
  Dim strLength As String

  strStartWord = InputBox("Enter the beginning letters which you remember of target word ", "Beginning Letters of Word", "For example:Data")
  strLength = InputBox("Enter the letter length of the rest part of target word which you don't remember", "Number of Letter Length", "For example:5,7")

  With Selection
    .HomeKey Unit:=wdStory   
    Selection.Find.ClearFormatting
    With Selection.Find
      .Text = "<" & strStartWord & "[a-zA-Z]{" & strLength & "}>"
      .Replacement.Text = ""
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchByte = False
      .MatchAllWordForms = False
      .MatchSoundsLike = False
      .MatchWildcards = True
      .Execute
    End With
    Do While .Find.Found
      Set objRange = Selection.Range
      objRange.HighlightColorIndex = wdYellow
      .Collapse wdCollapseEnd
      .Find.Execute
    Loop
  End With
End Sub