Рработа со шрифиами

[Вован46]

Господа модераторы, долго искал раздел для открытия темы, но остановился здесь, вроде как нейтральный раздел. Будьте снисходительны.
Скачал несколько шрифтов и хотел, что бы не путаться среди шрифтов по умолчанию перенести их на страницу word: название шрифта и строку из образца. Не тут-то было образцы в неизвестном, для меня, формате и не выделяются как текст или изображения.
Знатоки, знаете, ка переместить шрифт?

[Iska]

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

1. Font Fitting Room: A font preview tool with advanced features. (http://www.apolisoft.com/ffr/):
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

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

[Вован46]

Iska, СПАСИБО, но я выбрал путь попроще - сделал скрины.