Word 문서에서 이미지 개수를 세는 방법은 무엇인가요?

Author: Xiaoyang Last Modified: 2025-05-21

Word 문서에서 이미지 개수를 세는 것은 품질 관리, 가이드라인 준수 또는 단순히 조직적인 이유 등 다양한 목적으로 유용할 수 있습니다. 긴 문서에서 이미지를 수동으로 세는 것은 지루하고 오류가 발생하기 쉽습니다. 다행히도 Word 문서에서 이미지 개수를 빠르고 정확하게 세는 효율적인 방법들이 있습니다.

이 튜토리얼에서는 이미지 개수를 쉽게 세는 단계를 안내하여 문서를 보다 효과적으로 관리할 수 있도록 도와드리겠습니다.

찾기 및 바꾸기 기능을 사용하여 인라인 이미지 개수 세기

Kutools for Word를 사용하여 여러 문서에서 인라인 이미지 개수 세기

VBA 코드를 사용하여 인라인 이미지와 부유 도형 개수 세기

찾기 및 바꾸기 기능을 사용하여 인라인 이미지 개수 세기

Word의 찾기 및 바꾸기 기능을 사용하면 인라인 이미지의 개수를 빠르게 셀 수 있습니다. 다음 단계를 따르세요:

홈 > 찾기 > 고급 찾기를 클릭하세요.
찾기 및 바꾸기 대화 상자에서 찾기 탭 아래에 있는 찾을 내용 텍스트 상자에 ^g를 입력합니다. 그런 다음 찾기 위치 드롭다운 목록에서 주 문서를 선택합니다.
문서의 인라인 이미지 개수는 대화 상자의 하단에 표시됩니다.

Office Tab: 워드, 엑셀, 파워포인트 등에 탭 인터페이스를 제공합니다.

Navigate through documents using Office Tab

지금 바로 작업 효율을 높이세요. Office Tab에 대해 더 알아보기 무료 다운로드

Kutools for Word를 사용하여 여러 문서에서 인라인 이미지 개수 세기

Kutools for Word는 여러 문서에서 인라인 이미지 개수를 세는 빠르고 효율적인 방법을 제공합니다. 이 도구는 선택한 파일 내의 이미지 자리 표시자(^g로 표시됨) 개수를 자동으로 계산하여 시간과 노력을 절약해줍니다.

Kutools for Word,AI ?가 탑재되어 있으며, 100개 이상의 유용한 기능을 제공하여 작업을 간소화합니다.

지금 다운로드

Kutools 탭에서 일괄 교체를 선택합니다.
대화 상자에서 일괄 찾기 및 바꾸기 다음과 같이 설정을 구성하세요:
1. 규칙을 추가하려면 행 추가를 클릭하여 인라인 이미지를 찾습니다.
2. 추가된 행의 찾기 필드에 ^g(인라인 이미지 자리 표시자를 나타냄)를 입력합니다.
3. 추가 버튼을 클릭하고 파일 추가 또는 폴더 추가를 선택하여 인라인 이미지 개수를 세고자 하는 문서를 가져옵니다.
4. 선택한 모든 문서에서 찾기 및 개수 세기 작업을 실행하려면 찾기를 클릭합니다.
일괄 찾기 및 바꾸기 대화 상자는 미리 보기 결과 탭으로 전환되며, 여기에서 인라인 이미지의 총 개수를 확인할 수 있습니다. 만족스러우면 닫기를 클릭합니다.

끝났습니다! 이제 각 선택된 문서의 인라인 이미지 개수가 한 번에 계산되어 표시됩니다.

Kutools for Word는 작업을 간소화하고 문서 처리 기술을 향상시키는 최고의 Word 추가 기능입니다. 지금 바로 구매하세요!

VBA 코드를 사용하여 인라인 이미지와 부유 도형 개수 세기

이전 방법들은 인라인 이미지만 세며 문서의 부유 도형은 포함하지 않습니다. 인라인 이미지와 부유 도형 모두를 세려면 다음 VBA 코드를 사용할 수 있습니다. 다음 단계를 따르세요:

Alt + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

삽입을 클릭합니다. 삽입 > 모듈빈 모듈에 다음 코드를 복사하여 붙여넣습니다:

Sub CountImagesInDoc()
    Dim xInlines As Long
    Dim xFloaters As Long
    Dim sh As Shape
    Dim tbxs As Long
    Dim msg As String
    With ActiveDocument
        For Each sh In .Shapes
            If sh.Type = msoTextBox Then tbxs = tbxs + 1
        Next
        xInlines = .InlineShapes.Count
        xFloaters = .Shapes.Count - tbxs
    End With
    xPrompt = "Inline images:" & vbTab & xInlines & vbCr
    xPrompt = xPrompt & "Floating shapes:" & vbTab & xFloaters & vbCr
    xPrompt = xPrompt & vbTab & "Total:" & vbTab & (xInlines + xFloaters) & vbCr
    xPrompt = xPrompt & "Counts do not include headers and footers, etc."
    MsgBox xPrompt, vbInformation, "Kutools for Word"
End Sub