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"



With Application.FileSearch       .FileName = FType       .LookIn = Directory       .Execute       If .FoundFiles.Count > 0 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

For J = 1 To .FoundFiles.Count          FName = .FoundFiles(J)

.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             If J <> .FoundFiles.Count 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          End If       Next J    End With 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 được tạo và macro bắt đầu xây dựng 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 (116) áp dụng cho Microsoft Word 97, 2000, 2002 và 2003. Bạn có thể tìm phiên bản của mẹo này cho giao diện ribbon của Word (Word 2007 và sau này) tại đây: