Word VBA教程:Found属性

SynonymInfo对象:如果该属性值为 True,则在同义词库里找到了单词或短语的同义词、反义词、相关单词或相关短语等。Boolean 类型,只读。

Find对象:如果该属性值为 True,则查找找到了匹配项。Boolean 类型,只读。

VBA示例

本示例检测同义词库里是否有关于单词“authorize”的同义词方面的建议。


Dim siTemp As SynonymInfo
Set siTemp = SynonymInfo(Word:="authorize", _
    LanguageID:=wdEnglishUS)
If siTemp.Found = True Then
    Msgbox "The thesaurus has suggestions."
Else
    Msgbox "The thesaurus has no suggestions."
End If

本示例检测同义词库中是否有关于所选内容的同义词方面的建议。如果有,则将显示列有同义词的“同义词库”对话框。


Dim siTemp As SynonymInfo
Set siTemp = Selection.Range.SynonymInfo
If siTemp.Found = True Then
    Selection.Range.CheckSynonyms
Else
    Msgbox "The thesaurus has no suggestions."
End If

在查找选定部分之前,清除查找条件中的格式。如果查找到的单词“Hello”为加粗格式,则选定整个段落,并将其复制至剪贴板上。


With Selection.Find
    .ClearFormatting
    .Font.Bold = True
    .Execute FindText:="Hello", Format:=True, Forward:=True
    If .Found = True Then
        .Parent.Expand Unit:=wdParagraph
        .Parent.Copy
    End If
End With

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号