이전 버전의 Word (Windows 용 Word 2와 같이 훨씬 이전 버전)에는 시스템에서 글꼴 목록을 빠르게 인쇄 할 수있는 기능이있었습니다. 불행히도 더 이상 그렇지 않습니다. 그러나 다음 VBA 매크로는 정렬 된 순서로 전체 글꼴 목록이 포함 된 문서를 만듭니다.

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

매크로가 실행되면 시스템에 대한 전체 글꼴 목록이 표시됩니다. 그런 다음 인쇄하여 Word로 작업 할 때 편리하게 보관할 수 있습니다.

_ 참고 : _

이 페이지 (또는 WordTips 사이트의 다른 페이지)에 설명 된 매크로를 사용하는 방법을 알고 싶다면 유용한 정보가 포함 된 특별 페이지를 준비했습니다.

link : / wordribbon-WordTipsMacros [새 브라우저 탭에서 특별 페이지를 열려면 여기를 클릭하세요].

_WordTips_는 비용 효율적인 Microsoft Word 교육을위한 소스입니다.

(Microsoft Word는 세계에서 가장 널리 사용되는 워드 프로세싱 소프트웨어입니다.)이 팁 (405)은 Microsoft Word 97, 2000, 2002 및 2003에 적용됩니다. Word의 리본 인터페이스에 대한이 팁 버전 (Word 2007)을 찾을 수 있습니다. 이후) 여기 :

link : / wordribbon-Printing_a_Font_List [글꼴 목록 인쇄].