Word 문서에 파일 이름으로 여러 그림을 삽입하는 방법은 무엇입니까?

Word 문서에서 삽입 기능을 사용하여 한 번에 여러 그림을 빠르게 삽입 할 수 있습니다. 그러나 때로는 그림을 삽입 할 때 파일 경로와 이름을 캡션으로 삽입해야합니다. Word 파일에서이 작업을 어떻게 처리 할 수 있습니까?

VBA 코드를 사용하여 파일 이름으로 여러 그림 삽입

Word 용 Kutools를 사용하여 파일 이름으로 여러 그림 삽입

VBA 코드를 사용하여 파일 이름으로 여러 그림 삽입

다음 VBA 코드는 이미지를 삽입 할 때 파일 경로와 이름을 캡션으로 삽입하는 데 도움이 될 수 있습니다. 다음과 같이하십시오.

1. 누르고 ALT + F11 키를 눌러 응용 프로그램 용 Microsoft Visual Basic 창.

2. 그런 다음 끼워 넣다 > 모듈, 아래 코드를 복사하여 열린 빈 모듈에 붙여 넣습니다.

VBA 코드 : 파일 이름으로 여러 그림 삽입 :

Sub PicWithCaption()
    Dim xFileDialog As FileDialog
    Dim xPath, xFile As Variant
    On Error Resume Next
    Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
    If xFileDialog.Show = -1 Then
        xPath = xFileDialog.SelectedItems.Item(1)
        If xPath <> "" Then
            xFile = Dir(xPath & "\*.*")
            Do While xFile <> ""
                If UCase(Right(xFile, 3)) = "PNG" Or _
                    UCase(Right(xFile, 3)) = "TIF" Or _
                    UCase(Right(xFile, 3)) = "JPG" Or _
                    UCase(Right(xFile, 3)) = "GIF" Or _
                    UCase(Right(xFile, 3)) = "BMP" Then
                    With Selection
                        .InlineShapes.AddPicture xPath & "\" & xFile, False, True
                        .InsertAfter vbCrLf
                        .MoveDown wdLine
                        .Text = xPath & "\" & xFile & Chr(10)
                        .MoveDown wdLine
                    End With
                End If
                xFile = Dir()
            Loop
        End If
    End If
End Sub

3. 그런 다음 F5 키를 눌러이 코드를 실행하면 찾아보기 창이 표시됩니다. 삽입하려는 이미지가 포함 된 폴더를 선택하십시오. 스크린 샷을 참조하십시오.

파일 이름이 1 인 문서 삽입 이미지