Trong bài viết này, chúng tôi xin cung cấp cho bạn cách chèn hàng loạt ảnh vào văn bản Word.
Bạn có thể cảm thấy thoải mái khi làm việc với hình ảnh trong Word. Khi bạn chèn ảnh vào tài liệu, bạn có thể phải thay đổi kích thước ảnh theo cách thủ công hoặc nhập tên của ảnh. Còn việc sử dụng macro để tự động thực hiện tác vụ thì sao?
Macro mà chúng tôi sắp giới thiệu cho bạn có khả năng thực hiện các chức năng sau:
- Thứ nhất, nó chèn số lượng ảnh chính xác mà bạn chỉ định trong mỗi trang.
- Thứ hai, nó chèn tên bên dưới mỗi bức tranh.
- Thứ ba, nó thay đổi kích thước ảnh theo số kích thước bạn nhập.
Bây giờ hãy xem cách chúng tôi làm cho nó hoạt động.
Chèn nhiều ảnh vào tài liệu hàng loạt
- Trước hết, hãy sắp xếp tất cả các ảnh cần chèn vào cùng một thư mục.
- Sau đó nhấn “Alt + F11” để gọi trình soạn thảo VBA trong Word.
- Tiếp theo nhấp vào dự án "Bình thường".
- Sau đó, trên thanh menu, nhấp vào “Chèn”.
- Và trên trình đơn thả xuống, hãy chọn “Mô-đun”.
- Mở mô-đun bằng cách nhấp đúp và dán mã sau:
Sub InsertSpecificNumberOfPictureForEachPage()
Dim StrFolder As String
Dim strFile As String
Dim objDoc As Document
Dim dlgFile As FileDialog
Dim objInlineShape As InlineShape
Dim nResponse As Integer
Dim strPictureNumber As Integer
Dim strPictureSize As String
Dim n As Integer
Set dlgFile = Application.FileDialog(msoFileDialogFolderPicker)
With dlgFile
If .Show = -1 Then
StrFolder = .SelectedItems(1) & "\"
Else
MsgBox ("No Folder is selected!")
Exit Sub
End If
End With
strFile = Dir(StrFolder & "*.*", vbNormal)
strPictureNumber = InputBox("Input the number of the picture for each page", "Picture Number", "For exemple: 1")
n = 1
While strFile <> ""
Selection.InlineShapes.AddPicture FileName:=StrFolder & strFile, LinkToFile:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.Collapse Direction:=wdCollapsEnd
Selection.TypeText Text:=Left(strFile, InStrRev(strFile, ".") - 1)
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
If ActiveDocument.InlineShapes.Count = strPictureNumber * n Then
Selection.InsertNewPage
Selection.TypeBackspace
n = n + 1
End If
Selection.TypeParagraph
strFile = Dir()
Wend
For Each objInlineShape In ActiveDocument.InlineShapes
objInlineShape.Select
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
Next objInlineShape
nResponse = MsgBox("Do you want to resize all pictures?", 4, "Resize Picture")
If nResponse = 6 Then
strPictureSize = InputBox("Input the height and width of the picture, seperated by comma", "Height and Width", "For exemple:500,500")
For Each objInlineShape In ActiveDocument.InlineShapes
objInlineShape.Height = Split(strPictureSize, ",")(0)
objInlineShape.Width = Split(strPictureSize, ",")(1)
Next objInlineShape
End If
End Sub
- Sau đó nhấp vào “Chạy” hoặc nhấn “F5”.
- Trong khi chạy macro, cửa sổ "Duyệt" sẽ bật lên. Chỉ cần chọn thư mục bạn lưu ảnh ở bước 1 và bấm “OK”.
- Tiếp theo trong hộp “Số ảnh”, nhập một số đại diện cho tổng số ảnh bạn muốn có trong một trang. Và nhấp vào “OK” để tiếp tục.
- Trong hộp “Thay đổi kích thước ảnh”, nhấp vào “Có” để thay đổi kích thước tất cả ảnh và “Không” để hủy kích thước.
- Bây giờ, trong hộp “Height and Width”, hãy nhập các giá trị và sử dụng dấu phẩy để phân tách. Hãy nhớ nhập chiều cao trước và sau đó là chiều rộng. Không có khoảng trắng sau dấu phẩy.
- Tương tự, nhấp vào “OK” để tiếp tục.
Bây giờ có 2 hình ảnh trong một trang và mỗi hình ảnh có tên bên dưới. Đây là kết quả:
Theo dõi tính toàn vẹn của dữ liệu
Luôn có nguy cơ mất dữ liệu hoặc bị xâm phạm bằng cách nào đó. Điều này có nghĩa là chúng tôi phải kiểm tra tính toàn vẹn của dữ liệu thường xuyên. Và một khi chúng tôi tìm thấy bất kỳ dấu hiệu nào của thiệt hại từ, cách tốt nhất để khôi phục dữ liệu là nhờ một công cụ sửa chữa.
Giới thiệu tác giả:
Vera Chen là một chuyên gia phục hồi dữ liệu trong DataNumen, Inc., công ty hàng đầu thế giới về công nghệ khôi phục dữ liệu, bao gồm phục hồi excel và pdf sửa chữa các sản phẩm phần mềm. Để biết thêm thông tin, hãy truy cập www.datanumennăm