Trong các phiên bản Word cũ hơn (cũ hơn nhiều, như trong Word dành cho Windows 2), có một tính năng cho phép bạn in nhanh danh sách phông chữ trên hệ thống của mình. Thật không may, đó không còn là trường hợp nữa. Tuy nhiên, macro VBA sau sẽ tạo một tài liệu có chứa danh sách phông chữ hoàn chỉnh, theo thứ tự được sắp xếp:

Sub ListAllFonts()

Dim J As Integer Dim FontTable As Table 'Start off with a new document Set NewDoc = Documents.Add 'Add a table and set the table header Set FontTable = NewDoc.Tables.Add(Selection.Range, FontNames.Count + 1, 2)

With FontTable     .Borders.Enable = False     .Cell(1, 1).Range.Font.Name = "Arial"

.Cell(1, 1).Range.Font.Bold = 1     .Cell(1, 1).Range.InsertAfter "Font Name"

.Cell(1, 2).Range.Font.Name = "Arial"

.Cell(1, 2).Range.Font.Bold = 1     .Cell(1, 2).Range.InsertAfter "Font Example"

End With 'Go through all the fonts and add them to the table For J = 1 To FontNames.Count     With FontTable         .Cell(J + 1, 1).Range.Font.Name = "Arial"

.Cell(J + 1, 1).Range.Font.Size = 10         .Cell(J + 1, 1).Range.InsertAfter FontNames(J)

.Cell(J + 1, 2).Range.Font.Name = FontNames(J)

.Cell(J + 1, 2).Range.Font.Size = 10         .Cell(J + 1, 2).Range.InsertAfter "ABCDEFG abcdefg 1234567890"

End With Next J FontTable.Sort SortOrder:=wdSortOrderAscending End Sub

Khi macro chạy xong, bạn sẽ có một danh sách phông chữ hoàn chỉnh cho hệ thống của mình. Sau đó, bạn có thể in nó ra và giữ nó tiện dụng khi bạn đang làm việc với Word.

_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 (405) áp dụng cho Microsoft Word 97, 2000, 2002 và 2003. Bạn có thể tìm thấy 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: