此属性返回一个 FontNames 对象,该对象包括了所有有效的横向字体的名称。
expression.LandscapeFontNames
expression 必需。该表达式返回“应用于”列表中的一个对象。
本示例创建在 FontNames 对象中命名的横向字体名称新文档的排序列表。
Sub ListLandscapeFonts()
Dim docNew As Document
Dim intCount As Integer
Set docNew = Documents.Add
docNew.Content.InsertAfter "Landscape Fonts" & vbLf
For intCount = 1 To LandscapeFontNames.Count
docNew.Content.InsertAfter LandscapeFontNames(intCount) _
& vbLf
Next
With docNew
.Range(Start:=.Paragraphs(2).Range.Start, End:=.Paragraphs _
(docNew.Paragraphs.Count).Range.End).Select
End With
Selection.Sort
End Sub