什么？您怎么能沒有印象呢？那么，試一試吧。在該文本區域鍵入一些文本，然后突出顯示該文本的一部分：

現在單擊標簽為 Show Selection（顯示選擇）的按鈕。非常幸運的是，您將看到一個消息框，告訴您哪些文本已被選中：

您說對了：看上去就是這個樣子了。

那么，這一切都是如何做到的呢？我們首先創建一個含有一個文本區域和一個按鈕的 HTA。我們不討論創建 HTA 本身的細節，如果您需要一些背景信息，請查看 HTA Developers Center（英文）或 Scripting Week 3 webcast on HTAs（英文）。今天我們只重點討論您單擊此按鈕時運行的子例程：
Sub ShowSelection
    Set objSelection = Document.Selection.CreateRange()
    Msgbox objSelection.Text
End Sub
沒錯：只有兩行代碼。首先我們創建一個新的 TextRange 對象；這一過程可通過調用 CreateRange() 方法來實現，此方法恰好是 Document.Selection 對象的一部分：