Word VBA教程:Outline属性

如果为 True,字体设置为镂空格式。返回值可为 True、False 或 wdUndefined(True 和 False 都有可能的情况下返回该值)。可以设为 True、False 或 wdToggle。Long 类型,可读写。

expression.Outline

expression   必需。该表达式返回一个Font对象。

VBA示例

本示例为活动文档前三个词设置镂空字体格式。


Set myRange = ActiveDocument.Range(Start:= _
    ActiveDocument.Words(1).Start, _
    End:=ActiveDocument.Words(3).End)
myRange.Font.Outline = True

本示例为选定文本切换镂空格式。


Selection.Font.Outline = wdToggle

当选定内容中的部分文本应用了镂空格式时,本示例清除选定内容中的镂空字体格式。


Set myFont = Selection.Font
If myFont.Outline = wdUndefined Then
    myFont.Outline = False
End If

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号