В более старых версиях Word (гораздо более старых, чем Word для Windows 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 [Печать списка шрифтов].