[Iska]

Вован46, Вы установили загруженные шрифты? Что есть «образцы», где они «не выделяются»? Куда «переместить»? Ничего не понятно.

1. Font Fitting Room: A font preview tool with advanced features.:

Font Fitting Room Running on 2000/XP/2003/Vista/Winddows 7 platforms Font Fitting Room handles the most popular font types used on PC today, helps you to quickly preview them, easily add them to and remove from your system. Supported font types include: True Type font(*.ttf, *.ttc), Open Type font(*.ttf, *.ttc,*.otf),PostScript Type 1 font(*.pfm,*.pfb), and Microsoft Windows font(*.fnt, *.fon).

2. В случае, если шрифты установлены — создайте документ Microsoft Word, добавьте в его модуль «ThisDocument» следующий код:

читать дальше »

Код:

Option Explicit

Sub Samples()
    Dim i As Integer
    Dim strFontName As String
    
    With ThisDocument.PageSetup
        .TopMargin = CentimetersToPoints(1)
        .BottomMargin = CentimetersToPoints(1)
        .LeftMargin = CentimetersToPoints(1)
        .RightMargin = CentimetersToPoints(1)
    End With
    
    With Selection
        For i = 1 To FontNames.Count
            strFontName = FontNames.Item(i)
            
            .InsertBefore strFontName & vbTab
            .Font.Name = "Verdana"
            
            .Collapse wdCollapseEnd
            .InsertBefore "Съешь ещё этих мягких французских булок, да выпей чаю." & vbCrLf
            .Font.Name = strFontName
            
            .Collapse wdCollapseEnd
        Next i
        
        .WholeStory
        
        With .ConvertToTable(Separator:=wdSeparateByTabs, NumColumns:=2, AutoFitBehavior:=wdAutoFitFixed)
            .Style = "Сетка таблицы"
            .ApplyStyleHeadingRows = True
            .ApplyStyleLastRow = True
            .ApplyStyleFirstColumn = True
            .ApplyStyleLastColumn = True

            .Sort ExcludeHeader:=False, FieldNumber:="столбцам 1", SortFieldType:=wdSortFieldAlphanumeric, SortOrder:=wdSortOrderAscending
        End With
    End With
End Sub

и исполните его.