Word (的 SynonymInfo 物件)
代表與指定之範圍或字串的同義字、反義字、相關字或相關的運算式有關的資訊。
使用 SynonymInfo 屬性可傳回 SynonymInfo 物件。 從某個範圍或從 Microsoft Office Word 可以傳回 SynonymInfo 物件。 如果它會傳回從 Word,指定查閱單字或片語及校對語言識別碼。 如果它會傳回範圍中,Word 就會使用指定的範圍為查閱 word。 下列範例會從 Word 傳回 SynonymInfo 物件。
temp = SynonymInfo(Word:="meant", LanguageID:=wdEnglishUS).Found
下列範例會從某個範圍傳回 SynonymInfo 物件。
temp = Selection.Range.SynonymInfo.Found
如果指定的範圍或單字在同義字中找到任何資訊用在上述範例中, 找到 屬性會傳回 True 。 但是請注意這個屬性會傳回 True 不只有相關單字、 相關運算式也找到同義字或反義字找到。
許多 SynonymInfo 物件的屬性會傳回 Variant 包含字串陣列。 時使用這些屬性,可以將傳回的陣列指派給變數,然後編製索引來查看的項目陣列中的變數。 在下列範例中,系統會將所選單字或片語的第一個意義的同義字清單指派給 Slist 。 UBound 函式會尋找陣列上限,然後每個元素會顯示在訊息方塊中。
Slist = Selection.Range.SynonymInfo.SynonymList(1)
For i = 1 To UBound(Slist)
Msgbox Slist(i)
Next i
您可以檢查可防止程式碼中的潛在錯誤 MeaningCount 屬性的值。 下列範例會傳回選取範圍中之單字或片語的第二個意義的同義字清單,並 立即] 窗格中顯示這些同義字。
Set synInfo = Selection.Range.SynonymInfo
If synInfo.MeaningCount >= 2 Then
synList = synInfo.SynonymList(2)
For i = 1 To UBound(synList)
Debug.Print synList(i)
Next i
Else
MsgBox "There is no second meaning for the selection."
End If
有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應。