Рработа со шрифиами
Господа модераторы, долго искал раздел для открытия темы, но остановился здесь, вроде как нейтральный раздел. Будьте снисходительны.
Скачал несколько шрифтов и хотел, что бы не путаться среди шрифтов по умолчанию перенести их на страницу word: название шрифта и строку из образца. Не тут-то было образцы в неизвестном, для меня, формате и не выделяются как текст или изображения.
Знатоки, знаете, ка переместить шрифт?
|
Вован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
и исполните его.
|
Iska, СПАСИБО, но я выбрал путь попроще - сделал скрины.
|
Время: 18:04.
© OSzone.net 2001-
