通过

Global.LandscapeFontNames 属性 (Word)

返回一个 FontNames 对象，该对象包含所有可用横向字体的名称。

语法

expression. LandscapeFontNames

表达式是必需的。 一个代表“全局”对象的变量。

示例

本示例在新文档中的 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

另请参阅

Global 对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。