Note: The other languages of the website are Google-translated. Back to English

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 인 문서 삽입 이미지

4. 그런 다음 OK 버튼을 클릭하면 선택한 폴더의 모든 이미지가 Word 문서에 삽입되고 파일 경로와 이름이 캡션으로 삽입됩니다. 스크린 샷 참조 :

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


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

당신이 있으면 Word 용 Kutools그와 이미지 기능을 사용하면 파일 경로와 이름이있는 여러 그림을 Word 문서에 즉시 빠르게 삽입 할 수 있습니다.

Word 용 Kutools : 100 개 이상의 편리한 Word 추가 기능으로 60 일 동안 제한없이 무료로 사용해 볼 수 있습니다.. 

설치 후 Word 용 Kutools, 다음과 같이하십시오.

1. . 쿠툴 > 이미지, 스크린 샷 참조 :

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

2. 튀어 나온 그림 삽입 대화 상자에서 아래 작업을 수행하십시오.

  • (1.) 클릭 파일 추가 or 폴더 추가 삽입 할 이미지를 선택하는 버튼;
  • (2.) 그런 다음 확인 각 그림의 파일 경로를 캡션으로 삽입 대화 상자의 왼쪽 하단에있는 옵션;
  • (3.) 그런 다음 끼워 넣다 버튼을 클릭합니다.

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

3. 이미지를 삽입하면 각 그림의 파일 경로와 이름도 삽입되는 것을 볼 수 있습니다. 스크린 샷을 참조하십시오.

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

지금 Word 및 무료 평가판 용 Kutools를 다운로드하려면 클릭하십시오!


추천 단어 생산 도구

 

Word 용 Kutools-Word 용 100 개 이상의 고급 기능으로 50 % 시간 절약

  • 복잡하고 반복되는 작업은 몇 초 만에 한 번 처리 할 수 ​​있습니다.
  • 여러 폴더의 이미지를 한 번에 Word 문서에 삽입합니다.
  • 폴더에있는 여러 Word 파일을 원하는 순서대로 하나로 병합하고 결합합니다.
  • 제목, 섹션 나누기 또는 기타 기준에 따라 현재 문서를 별도의 문서로 분할합니다.
  • Doc과 Docx, Docx와 PDF, 일반적인 변환 및 선택을위한 도구 모음 등의 파일 변환 ...
코멘트 (6)
아직 평가가 없습니다. 가장 먼저 평가하세요!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
buenas noches amigo me ha servido mucho su información sinembargo me 급증 una duda cree que es posible incertar imagenes en word de la misma manera pero dentro de celdas incertadas?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
어떤 코드 줄을 변경하고 캡션(파일 이름)이라고도 하는 그림 앞에 파일 경로를 작성하는 방법은 아래가 아니라 위에 있습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
선택과 함께
.텍스트 = x파일
.InlineShapes.AddPicture xPath & "\" & xFile, False, True
.InsertAfter vbCrLf
.MoveDown wdLine

이 댓글은 사이트의 중재자에 의해 최소화되었습니다
.Text=xFile 뒤에 이 .MoveDown wdLine을 추가해야 합니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
와 대박이다! 파일 이름만 필요했기 때문에 .Text 줄에서 "xPath & "\" &"를 삭제했는데 완벽하게 작동했습니다. 감사합니다!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
추가할 파일 이름이 10을 초과하면 문제가 발생합니다.

pic1
pic10
pic11
pic12
pic2
pic3
pic4
pic5...
아직 코멘트가 없습니다
여러분의 의견을 남겨
게스트로 게시
×
이 게시물 평가 :
0  등장 인물
추천 위치