Word 문서의 섹션에 대한 단어 수를 계산하는 3 가지 방법

이 기사에서는 Word 문서의 섹션에 대한 단어 수를 계산하는 세 가지 방법이 있습니다.

문서의 총 단어 수를 얻는 것은 쉽습니다. 그러나 Word에는 섹션의 단어 수를 알려주는 기능이 없습니다. 그리고 책을 쓰는 동안 장을 구성하는 것과 같이 동일한 주제의 내용을 하나의 섹션에 넣는 것을 선호한다는 사실을 감안할 때 섹션 수를 얻을 수있는 해결 방법을 찾아야합니다.   다음은 매크로를 실행해야하는 3 가지 접근 방식입니다.

방법 1 : 현재 섹션에 대한 단어 수 계산

1. 먼저 커서를 tar섹션을 가져옵니다.
2. 그런 다음 Word에서 VBA 편집기를 열어야합니다. "개발자"를 클릭 한 다음 "Visual Basic"명령을 클릭합니다. 리본에서 "개발자"를 찾을 수없는 경우 대신 "Alt + F11"을 누릅니다.
3. 다음으로 왼쪽 열에서 "일반"프로젝트를 클릭합니다.
4. 그런 다음 "삽입"탭을 클릭합니다.
5. 드롭 다운 메뉴에서 "Module"을 선택합니다.
6. 두 번 클릭하여 새 모듈을 엽니 다.
7. 이제 열린 모듈에서 다음 코드를 붙여 넣습니다.

Sub CountWordsOfCurrentSection()
  MsgBox ("There are " & Selection.Sections(1).Range.ComputeStatistics(wdStatisticWords) _
         & " words in current section.")
End Sub

8. 마지막으로 "실행"을 클릭하거나 "F5"를 눌러 코드를 실행합니다.

다음과 같이 현재 섹션의 총 수를 보여주는 메시지 상자가 나타납니다.

방법 2 : 특정 섹션에 대한 단어 수 계산

책을 작업하고 각 장을 개별 섹션으로 설정했다고 가정 해 보겠습니다. 그런 다음 한 장에 몇 개의 단어를 썼는지 알기 위해이 방법을 활용할 수 있습니다.

1. 위의 단계에 따라 매크로를 설치하고 실행하십시오.
2. 매크로를 다음으로 바꾸십시오.

Sub CountWordsOfSpecificSection()
  Dim strSecNum As String
  Dim objDoc As Document
 
  Application.ScreenUpdating = False
 
  Set objDoc = ActiveDocument
  strSecNum = InputBox("Enter a section number here:", "Enter Section Number") 
  MsgBox ("There are " & objDoc.Sections(strSecNum).Range.ComputeStatistics(wdStatisticWords) _
          & " words in section " & strSecNum & ".")
  Application.ScreenUpdating = True
End Sub

3. 그리고 그것을 실행하면 입력 상자가 있습니다. "섹션 번호 입력"상자에 섹션 번호를 입력하고 "확인"을 클릭하여 이동합니다.

결과는 메시지 상자에 표시됩니다.

방법 3 : 문서의 모든 섹션에 대한 단어 수 계산

부제에서 알 수 있듯이이 방법은 문서에서 각 섹션의 총 단어 수를 가져 와서 메시지 상자에 나열합니다.

1. 우선, 공개 tar문서를 얻으십시오.
2. 그래도 매크로를 설치하고 실행하려면 방법 1의 단계를 반복해야합니다.
3. 이번에는 다음 매크로로 변경하십시오.

Sub CountWordsOfEachSectionInDoc()
  Dim objDoc As Document
  Dim nNumberOfSection As Long
  Dim strText As String
 
  Application.ScreenUpdating = False
  Set objDoc = ActiveDocument
  nNumberOfSection = objDoc.Sections.Count
 
  For nNumberOfSection = 1 To nNumberOfSection
    strText = strText & "There are " & objDoc.Sections(nNumberOfSection) _
              .Range.ComputeStatistics(wdStatisticWords) & " words in section " & nNumberOfSection & "; " _
              & vbNewLine
  Next nNumberOfSection
 
  MsgBox strText
 
  Application.ScreenUpdating = True
End Sub

가능한 결과는 다음과 같습니다.

귀중한 데이터 저장

모든 종류의 문서를 다룰 때 문서의 안전성을 염두에 두어야합니다. 다음 데이터 손실이 언제 발생하는지 알 수 없으므로 중요한 파일을 백업하는 것이 좋습니다. 게다가, 할 수있는 도구를 얻는 것이 항상 좋습니다. 문서 복구, 만약에 어떠한.

저자 소개 :

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