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:
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:
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:
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 .
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:
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 văn phòng tốt nhất
Kutools cho Word - Nâng cao trải nghiệm sử dụng từ của bạn với Over 100 Các tính năng đáng chú ý!
🤖 Trợ lý AI của Kutools: Biến đổi bài viết của bạn bằng AI - Tạo nội dung / Viết lại văn bản / Tóm tắt tài liệu / Hỏi thông tin dựa trên tài liệu, tất cả đều có trong Word
📘 Làm chủ tài liệu: Chia trang / Hợp nhất tài liệu / Lựa chọn xuất khẩu ở nhiều định dạng khác nhau (PDF/TXT/DOC/HTML...) / Chuyển đổi hàng loạt sang PDF / Xuất trang dưới dạng hình ảnh / In nhiều tập tin cùng một lúchữu ích. Cảm ơn !
✏ Chỉnh sửa nội dung: Tìm và thay thế hàng loạt trên nhiều tệp / Thay đổi kích thước tất cả hình ảnh / Hoán đổi hàng và cột của bảng / Chuyển bảng thành văn bảnhữu ích. Cảm ơn !
🧹 Dễ dàng làm sạch: Quét đi Không gian bổ sung / Phần ngắt / Tất cả các tiêu đề / Hộp văn bản / Các siêu liên kết / Để biết thêm các công cụ xóa, hãy truy cập Xóa nhómhữu ích. Cảm ơn !
➕ Phụ trang quảng cáo: Chèn Ngàn dấu phân cách / Hộp kiểm tra / Nút radio / Mã QR / Mã vạch / Bảng đường chéo / Chú thích phương trình / Hình ảnh Caption / Bảng chú thích / Nhiều Hình Ảnh / Khám phá thêm trong Chèn nhómhữu ích. Cảm ơn !
???? Lựa chọn chính xác: Xác định trang cụ thể / bảng / hình dạng / đoạn văn tiêu đề / Tăng cường điều hướng với chi tiết Chọn tính nănghữu ích. Cảm ơn !
⭐ Cải tiến sao: Điều hướng nhanh chóng đến bất kỳ vị trí nào / tự động chèn văn bản lặp đi lặp lại / chuyển đổi liền mạch giữa các cửa sổ tài liệu / 11 công cụ chuyển đổihữu ích. Cảm ơn !
