Word VBA教程:StrikeThrough属性

如果该属性值为 True,则将字体设为删除线格式。该属性返回 True、False 或 wdUndefined(当返回值既可为 True 亦可为 False 时取该值)。该属性值可设为 True、False 或 wdToggle。Long 类型,可读写。

expression.StrikeThrough

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

说明

使用DoubleStrikeThrough属性可设置或返回双删除线格式。

VBA示例

本示例为活动文档中的前三个单词设置删除线格式。


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

本示例为选定文本设置删除线格式。


If Selection.Type = wdSelectionNormal Then
    Selection.Font.StrikeThrough = True
Else
    MsgBox "You need to select some text."
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号