프로그래밍 방식으로 문서에서 찾은 항목 순환 검색

Find 클래스에는 검색 항목을 찾을 때마다 true를 반환하는 Found 속성이 있습니다. Range 메서드를 사용하여 Execute 에서 찾은 모든 인스턴스를 순환 검색할 수 있습니다.

적용 대상: 이 항목의 정보는 Word의 문서 수준 프로젝트 및 VSTO 추가 기능 프로젝트에 적용됩니다. 자세한 내용은 Office 애플리케이션 및 프로젝트 형식에 따라 사용 가능한 기능을 참조하세요.

찾은 항목을 순환 검색하려면

1. Range 개체를 선언합니다.

   다음 코드 예제는 문서 수준 사용자 지정에서 사용할 수 있습니다.

   C#

   Word.Range rng = this.Content;
   

   VB

   Dim rng As Word.Range = Me.Content
   

   다음 코드 예제는 VSTO 추가 기능에서 사용할 수 있습니다. 이 예제에서는 활성 문서를 사용합니다.

   C#

   Word.Document document = this.Application.ActiveDocument;
   Word.Range rng = document.Content;
   

   VB

   Dim rng As Word.Range = Me.Application.ActiveDocument.Content
   

2. 루프에서 Found 속성을 사용하여 문서의 문자열 항목을 모두 검색하고 문자열을 찾을 때마다 정수 변수를 1씩 증분합니다.

   C#

   rng.Find.ClearFormatting(); 
   rng.Find.Forward = true; 
   rng.Find.Text = "find me"; 
   
   rng.Find.Execute(
       ref missing, ref missing, ref missing, ref missing, ref missing, 
       ref missing, ref missing, ref missing, ref missing, ref missing,
       ref missing, ref missing, ref missing, ref missing, ref missing);
   
   while (rng.Find.Found) 
   { 
       intFound++;
       rng.Find.Execute(
           ref missing, ref missing, ref missing, ref missing, ref missing, 
           ref missing, ref missing, ref missing, ref missing, ref missing,
           ref missing, ref missing, ref missing, ref missing, ref missing);
   }
   

   VB

   rng.Find.ClearFormatting()
   rng.Find.Forward = True
   rng.Find.Text = "find me"
   
   rng.Find.Execute()
   
   Do While rng.Find.Found = True
       intFound += 1
       rng.Find.Execute()
   Loop
   

3. 메시지 상자에는 문자열이 발견된 횟수가 표시됩니다.

   C#

   MessageBox.Show("Strings found: " + intFound.ToString());
   

   VB

   MessageBox.Show("Strings found: " & intFound.ToString())
   

   다음 예제에서는 전체 메서드를 보여 줍니다.

문서 수준 사용자 지정 예제

문서 수준 사용자 지정에서 항목을 순환 검색하려면

1. 다음 예제에서는 문서 수준 사용자 지정의 전체 코드를 보여 줍니다. 이 코드를 사용하려면 프로젝트의 ThisDocument 클래스에서 실행합니다.

   C#

   private void FindLoop() 
   { 
       int intFound = 0; 
       Word.Range rng = this.Content; 
   
       rng.Find.ClearFormatting(); 
       rng.Find.Forward = true; 
       rng.Find.Text = "find me"; 
   
       rng.Find.Execute(
           ref missing, ref missing, ref missing, ref missing, ref missing, 
           ref missing, ref missing, ref missing, ref missing, ref missing,
           ref missing, ref missing, ref missing, ref missing, ref missing);
   
       while (rng.Find.Found) 
       { 
           intFound++;
           rng.Find.Execute(
               ref missing, ref missing, ref missing, ref missing, ref missing, 
               ref missing, ref missing, ref missing, ref missing, ref missing,
               ref missing, ref missing, ref missing, ref missing, ref missing);
       } 
   
       MessageBox.Show("Strings found: " + intFound.ToString()); 
   }
   

   VB

   Private Sub FindLoop()
       Dim intFound As Integer = 0
       Dim rng As Word.Range = Me.Content
   
       rng.Find.ClearFormatting()
       rng.Find.Forward = True
       rng.Find.Text = "find me"
   
       rng.Find.Execute()
   
       Do While rng.Find.Found = True
           intFound += 1
           rng.Find.Execute()
       Loop
   
       MessageBox.Show("Strings found: " & intFound.ToString())
   End Sub
   

VSTO 추가 기능 예제

VSTO 추가 기능에서 항목을 순환 검색하려면

1. 다음 예제에서는 VSTO 추가 기능의 전체 코드를 보여 줍니다. 이 코드를 사용하려면 프로젝트의 ThisAddIn 클래스에서 실행합니다.

   C#

   private void FindLoop()
   {
       int intFound = 0;
       Word.Document document = this.Application.ActiveDocument;
       Word.Range rng = document.Content;
   
       rng.Find.ClearFormatting();
       rng.Find.Forward = true;
       rng.Find.Text = "find me";
   
       rng.Find.Execute(
           ref missing, ref missing, ref missing, ref missing, ref missing,
           ref missing, ref missing, ref missing, ref missing, ref missing,
           ref missing, ref missing, ref missing, ref missing, ref missing);
   
       while (rng.Find.Found)
       {
           intFound++;
           rng.Find.Execute(
               ref missing, ref missing, ref missing, ref missing, ref missing,
               ref missing, ref missing, ref missing, ref missing, ref missing,
               ref missing, ref missing, ref missing, ref missing, ref missing);
       }
   
       MessageBox.Show("Strings found: " + intFound.ToString());
   }
   

   VB

   Private Sub FindLoop()
       Dim intFound As Integer = 0
       Dim rng As Word.Range = Me.Application.ActiveDocument.Content
   
       rng.Find.ClearFormatting()
       rng.Find.Forward = True
       rng.Find.Text = "find me"
   
       rng.Find.Execute()
   
       Do While rng.Find.Found = True
           intFound += 1
           rng.Find.Execute()
       Loop
   
       MessageBox.Show("Strings found: " & intFound.ToString())
   End Sub
   

관련 콘텐츠

• 방법: 프로그래밍 방식으로 문서에서 텍스트 검색 및 바꾸기
• 방법: 프로그래밍 방식으로 Word에서 검색 옵션 설정
• 방법: 프로그래밍 방식으로 문서의 범위 정의 및 선택
• 방법: 프로그래밍 방식으로 검색 후 선택 영역 복원
• Office 솔루션의 선택적 매개 변수