Nếu bạn làm việc với đồ họa khá nhiều, có lẽ bạn đã quen thuộc với thuật ngữ “hình thu nhỏ”. Đây là các phiên bản nhỏ hơn của đồ họa của bạn, được in trên một trang duy nhất, cho phép bạn có được “cái nhìn trực quan” của tất cả đồ họa của mình. Nhiều chương trình đồ họa và chương trình xuất bản trên máy tính để bàn bao gồm tính năng hình thu nhỏ cho phép bạn tự động in tổng quan của mình. Thật không may, Word không bao gồm tính năng này, nhưng bạn có thể thêm một tính năng như vậy bằng macro. Macro VBA sau tạo một tập hợp các hình ảnh thu nhỏ từ nội dung của một thư mục:

Sub Thumbnails()

Dim Directory As String     Dim FType As String     Dim FName As String     Dim ColCount As Integer, J As Integer

Directory = "d:\temp"

FType = "*.jpg"



ChDir Directory     FName = Dir(FType)

If FName <> "" Then         Documents.Add         ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=1, _           NumColumns:=5         Selection.Tables(1).Select         Selection.Cells.HeightRule = wdRowHeightAuto         With Selection.Rows             .Alignment = wdAlignRowCenter             .AllowBreakAcrossPages = False             .SetLeftIndent LeftIndent:=InchesToPoints(0), RulerStyle:= _               wdAdjustNone         End With         Selection.HomeKey Unit:=wdLine         ColCount = 1     End If

Do While FName <> ""

.Size = 10             .Bold = True         End With          Selection.TypeText Text:=Mid$(FName, Len(Directory) + 2)

Selection.MoveRight Unit:=wdCharacter, Count:=1         ColCount = ColCount + 1         If ColCount = 6 Then             Selection.InsertRows 1             Selection.EndKey Unit:=wdLine             Selection.MoveRight Unit:=wdCharacter, Count:=1             Selection.InsertRows 1             Selection.HomeKey Unit:=wdLine             ColCount = 1         End If         FName = Dir     Loop End Sub

Trong macro này, tất cả những gì bạn cần làm là thay đổi dòng chỉ định biến Thư mục để phản ánh thư mục mà đồ họa của bạn được lưu trữ. Bạn cũng có thể thay đổi đặc tả tệp đồ họa bằng cách thay đổi chỉ định của FType (hiện nó được đặt để trả về tất cả các tệp JPG trong thư mục). Khi bạn chạy macro này, một tài liệu mới sẽ được tạo và macro bắt đầu tạo một bảng có năm cột và tuy nhiên cần có nhiều hàng để in đồ họa của bạn. Macro sẽ in khoảng 40 hoặc lâu hơn hình thu nhỏ trên một tờ giấy, tùy thuộc vào cài đặt bạn sử dụng trong mẫu mặc định của mình.

Có một lưu ý khi sử dụng macro này — bạn nên biết rằng kích thước tài liệu của bạn sẽ phát triển rất, rất nhanh. Mặc dù đồ họa được hiển thị ở kích thước nhỏ (hình thu nhỏ) trong tài liệu, nhưng ở hậu trường, đồ họa được duy trì ở kích thước đầy đủ của chúng. Nếu bạn có rất nhiều đồ họa đang được xử lý, thì kích thước tài liệu có thể trở nên khó sử dụng và bạn có thể kết thúc với thời gian phản hồi rất chậm từ hệ thống của mình.

_Lưu ý: _

Nếu bạn muốn biết cách sử dụng các macro được mô tả trên trang này (hoặc trên bất kỳ trang nào khác trên các trang WordTips), tôi đã chuẩn bị một trang đặc biệt bao gồm thông tin hữu ích.

WordTips là nguồn của bạn để đào tạo Microsoft Word hiệu quả về chi phí.

(Microsoft Word là phần mềm xử lý văn bản phổ biến nhất trên thế giới.) Mẹo này (8023) áp dụng cho Microsoft Word 2007, 2010, 2013, 2016, 2019 và Word trong Office 365. Bạn có thể tìm thấy phiên bản của mẹo này cho giao diện menu cũ hơn của Word tại đây: