Word VBA教程:LandscapeFontNames属性

此属性返回一个FontNames对象,该对象包括了所有有效的横向字体的名称。

expression.LandscapeFontNames

expression   必需。该表达式返回“应用于”列表中的一个对象。

VBA示例

本示例创建在 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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号