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

Làm thế nào để chèn nhiều ảnh với tên tệp trong tài liệu Word?

Trong tài liệu Word, bạn có thể nhanh chóng chèn nhiều ảnh cùng một lúc bằng cách sử dụng chức năng Chèn. Tuy nhiên, đôi khi, bạn cần chèn đường dẫn tệp và tên làm chú thích khi chèn ảnh. Làm thế nào bạn có thể giải quyết tác vụ này trong tệp Word?

Chèn nhiều ảnh với tên tệp bằng cách sử dụng mã VBA

Chèn nhiều hình ảnh với tên tệp bằng cách sử dụng Kutools cho Word


Chèn nhiều ảnh với tên tệp bằng cách sử dụng mã VBA

Mã VBA sau có thể giúp bạn chèn đường dẫn tệp và tên làm chú thích khi chèn hình ảnh, vui lòng thực hiện như sau:

1. Giữ ALT + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. Và sau đó, nhấp vào Chèn > Mô-đun, sao chép và dán mã bên dưới vào mô-đun trống đã mở:

Mã VBA: Chèn nhiều ảnh với tên tệp:

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. Sau đó nhấn F5 để chạy mã này, cửa sổ Browse sẽ hiển thị, vui lòng chọn thư mục chứa hình ảnh bạn muốn chèn, xem ảnh chụp màn hình:

doc chèn hình ảnh với tên tệp 1

4. Sau đó nhấn vào OK , tất cả hình ảnh trong thư mục đã chọn đã được chèn vào tài liệu Word, và đường dẫn tệp và tên cũng được chèn làm chú thích, chúng tôi xem ảnh chụp màn hình:

doc chèn hình ảnh với tên tệp 2


Chèn nhiều hình ảnh với tên tệp bằng cách sử dụng Kutools cho Word

Nếu bạn có Kutools cho Word, Với khả hình ảnh tính năng, bạn có thể nhanh chóng chèn nhiều ảnh với đường dẫn và tên tệp vào tài liệu Word ngay lập tức.

Kutools cho Word : với hơn 100 phần bổ trợ Word tiện dụng, dùng thử miễn phí không giới hạn trong 60 ngày. 

Sau khi cài đặt Kutools cho Word, hãy làm như sau:

1. Nhấp chuột Kutools > hình ảnh, xem ảnh chụp màn hình:

doc chèn hình ảnh với tên tệp 3

2. Trong cửa sổ bật ra Chèn ảnh hộp thoại, vui lòng thực hiện các thao tác dưới đây:

  • (1.) Nhấp vào Add Files or Thêm thư mục để chọn hình ảnh mà bạn muốn chèn;
  • (2.) Sau đó kiểm tra Chèn đường dẫn tệp của mỗi ảnh làm chú thích tùy chọn ở dưới cùng bên trái của hộp thoại;
  • (3.) Và sau đó nhấp vào Chèn .

doc chèn hình ảnh với tên tệp 4

3. Sau khi chèn hình ảnh, bạn sẽ thấy đường dẫn tệp và tên của mỗi bức ảnh cũng được chèn, xem ảnh chụp màn hình:

doc chèn hình ảnh với tên tệp 5

Nhấp để tải xuống Kutools cho Word và dùng thử miễn phí ngay bây giờ!


Công cụ năng suất Word được đề xuất

 

Kutools cho Word - Hơn 100 tính năng nâng cao cho Word, tiết kiệm 50% thời gian của bạn

  • Các hoạt động phức tạp và lặp đi lặp lại có thể được thực hiện xử lý một lần trong vài giây.
  • Chèn nhiều hình ảnh trên các thư mục vào tài liệu Word cùng một lúc.
  • Hợp nhất và kết hợp nhiều tệp Word trên các thư mục thành một với thứ tự mong muốn của bạn.
  • Chia tài liệu hiện tại thành các tài liệu riêng biệt theo tiêu đề, ngắt phần hoặc các tiêu chí khác.
  • Chuyển đổi tệp giữa Doc và Docx, Docx và PDF, bộ sưu tập các công cụ để chuyển đổi và lựa chọn phổ biến, v.v.
Nhận xét (7)
Chưa có xếp hạng. Hãy là người đầu tiên xếp hạng!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
buenas noches amigo me ha servido mucho su Información sinembargo me sur una duda cree que es posible incertar imagenes en word de la misma manra pero dentro de celdas incertadas?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Bạn sẽ thay đổi dòng mã nào và làm thế nào để có đường dẫn tệp được viết trước ảnh, hay còn gọi là chú thích (tên tệp) ở trên chứ không phải ở dưới.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Với sự lựa chọn
.Văn bản = xFile
.InlineShapes.AddPicture xPath & "\" & xFile, False, True
.InsertSau vbCrLf
.MoveDown wdLine

Kết thúc với
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Phải thêm cái này .MoveDown wdLine sau .Text = xFile
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Wow điều này thật tuyệt! Tôi chỉ cần tên tệp, vì vậy tôi đã xóa "xPath &" \ "&" khỏi dòng .Text và điều đó hoạt động hoàn hảo. Cảm ơn vì điều đó!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Sự cố xảy ra khi tên tệp được thêm vào vượt quá 10.

pic1
pic10
pic11
pic12
pic2
pic3
pic4
pic5 ...
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
đổi tên file thành 01, 02, 03 là được
Không có bình luận nào được đăng ở đây
Để lại ý kiến ​​của bạn
Đăng với tư cách khách
×
Đánh giá bài viết này:
0   Nhân vật
Các vị trí được đề xuất

Kết nối với chúng tôi

Bản quyền © 2009 - www.extendoffice.com. | Đã đăng ký Bản quyền. cung cấp bởi ExtendOffice. | BẢN ĐỒ CHI NHÁNH
Microsoft và logo Office là các nhãn hiệu hoặc nhãn hiệu đã đăng ký của Microsoft Corporation tại Hoa Kỳ và / hoặc các quốc gia khác.
Được bảo vệ bởi Sectigo SSL