В более старых версиях Word (гораздо более старых, чем Word для Windows 2) была функция, позволяющая быстро распечатать список шрифтов в вашей системе. К сожалению, это уже не так. Однако вы можете довольно легко создать макрос, который может составить для вас такой список:

Sub ListFontNames()

Dim J As Integer     Dim NewDoc As Document

' Create a new document     Set NewDoc = Documents.Add

' Add font names to document     For J = 1 To FontNames.Count         Selection.TypeText (FontNames(J))

Selection.TypeParagraph     Next J End Sub

Макрос создает новый документ, а затем просто проходит через коллекцию FontNames и добавляет каждое из имен в документ. Скорость, с которой работает макрос, зависит от того, сколько шрифтов вы установили в своей системе.

Если вам нужно что-то более сложное, вы можете использовать следующий макрос. Он создает документ, но затем помещает все имена шрифтов в таблицу. Во втором столбце таблицы приводится отформатированный образец шрифта.

Sub FontExamples()

Dim J As Integer     Dim F As Integer     Dim sTemp As String     Dim sTest As String     Dim Continue As Integer     Dim rng As Range     Dim FontTable As Table     Dim NewDoc As Document

' Specify the sample text for second column     sTest = "ABCDEFG abcdefg 1234567890"



' Check to see if the user wants to proceed     F = FontNames.Count     sTemp = "There are " & F & " fonts on this system."

sTemp = sTemp & "Building the document may take quite a while."

sTemp = sTemp & "Do you want to continue?"

Continue = MsgBox(sTemp, vbYesNo, "Build Font List")



If Continue = vbYes Then         ' Put together a string that contains the table contents         sTemp = "Font Name" & vbTab & "Font Example"

For J = 1 To F             sTemp = sTemp & vbCr & FontNames(J) & vbTab & sTest         Next J

' Create a new document         Set NewDoc = Documents.Add

' Add string contents and convert to table         Set rng = Selection.Range         rng.Text = sTemp         Set FontTable = rng.ConvertToTable(Separator:=vbTab, _           AutoFitBehavior:=wdAutoFitFixed)



' Set general table properties         With FontTable             .Borders.Enable = False             .Range.Font.Name = "Arial"

.Range.Font.Size = 10             .Rows(1).Range.Font.Bold = True             .Rows(1).Range.Font.Size = 12         End With

' Go through the sample cells and format them         For J = 1 To F             FontTable.Cell(J + 1, 2).Range.Font.Name = FontNames(J)

Next J

' Sort the table         FontTable.Sort SortOrder:=wdSortOrderAscending     End If End Sub

Этот макрос делает немного больше, чем предыдущий. Сама таблица создается довольно быстро, но может потребоваться много времени, чтобы пройти по каждой из ячеек образца и отформатировать ее с использованием соответствующего шрифта. Вот почему макрос позволяет узнать, сколько шрифтов в вашей системе, прежде чем продолжить.

Независимо от того, какой макрос вы решите использовать, вы получите полный список шрифтов для своей системы. Затем вы можете распечатать его и держать под рукой при работе с Word.

_Примечание: _

Если вы хотите знать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах WordTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / wordribbon-WordTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

WordTips — ваш источник экономичного обучения работе с Microsoft Word.

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (4358) применим к Microsoft Word 2007, 2010, 2013 и 2016. Вы можете найти версию этого совета для более старого интерфейса меню Word здесь: link: / word-Printing_a_Font_List [Печать списка шрифтов].