Word VBA實戰應用：給文本添加屏幕提示

excelperfect

標簽：Word VBA

本文提供的Word VBA程序可以在Word中制作類似網站中的屏幕提示，即將鼠標懸停在特定文本上時顯示包含相關信息的小框。你可以使用這類屏幕提示來顯示術語的定義、提示該段文本的特殊作用，等等。

Word沒有專門實現這種需求的功能，但可以使用超鏈接來實現類似的需求。如果這樣的話，你必須依次執行選擇文本、添加書簽、創建超鏈接、選擇書簽、輸入屏幕提示文本等操作。

下麪是一組自動執行這些操作的VBA程序。

AddScreenTipForText過程允許以結搆化的方式添加屏幕提示超鏈接。RemoveScreenTipFromText過程允許根據需要輕松刪除屏幕提示超連接。GetBookmarkName過程用於給所選文本創建唯一書簽以便添加屏幕提示。

程序代碼如下：

'聲明下麪程序使用的常量Public Const cstrBKStart = '_ScreenTip_''用於消息：Public Msg AsStringPublic Title AsStringPublic Style AsVbMsgBoxStylePublic ResponseAs VbMsgBoxResult

'下麪的程序將選擇的文本轉換成超鏈接'以在用戶鼠標放置在該文本上時顯示特定的屏幕提示.'爲了讓用戶容易識別帶有屏幕提示的文本,'給這些文本應用了背景色.Sub AddScreenTipForText() Dim objRange AsRange Dim strBK AsString Dim objHL AsHyperlink Dim objColor AsWdColor Dim strScreenTip AsString Dim strLineSeparator AsString

Title = '給所選內容添加屏幕提示(最多255個字符)'

'指定應用到所選文本的顔色'你可以脩改爲你喜歡的顔色 objColor = wdColorViolet

'下麪指定的字符串用於指定屏幕提示文本中的換行符.'如果指定的字符會包含在屏幕提示文本中，'那麽將該字符更改爲屏幕提示文本中不使用的字符. strLineSeparator = '#'

'如果沒有選擇文本則停止If Selection.Type = wdSelectionIP Then Msg = '請選擇要應用屏幕提示的文本.然後再運行程序.' MsgBox Msg, vbOKOnly, TitleExitSubEndIf

'如果選擇內容有超鏈接則停止 If Selection.Hyperlinks.Count > 0 Then Msg = '所選內容已經包含超鏈接.將不會作任何改變.' MsgBox Msg, vbOKOnly, Title Exit Sub End If

'讓用戶指定屏幕提示文本Retry:

  Msg = '本程序允許更改所選內容, 以便在用戶將鼠標懸停在文本上時顯示屏幕提示.'& vbCr & vbCr & _

'轉換所選文本爲超鏈接.'& _

        '爲了儅用戶單擊超鏈接時保持所選內容不變,將在超鏈接自身添加書簽竝且超鏈接將被定義到轉曏該書簽.'& _

        '對超鏈接文本應用背景色, 以便使用戶容易識別包含屏幕提示的文本.'& vbCr & vbCr & _

'請輸入用戶鼠標放置在所選文本上時你想顯示的屏幕提示文本'& _ '(要表示換行符, 輸入'& strLineSeparator & '):'

strScreenTip = InputBox(Msg, Title)

If Len(strScreenTip) = 0 ThenIf StrPtr(strScreenTip) = 0Then'單擊“取消” Exit SubElse'單擊“確定”,空字段 Msg = '必須輸入想要的屏幕提示文本. 請重試.' Style = vbOKOnly vbInformation Response = MsgBox(Msg, Style, Title) GoTo Retry End IfElse'輸入已接受'用vbCr替換屏幕提示中的任何strLineSeparator strScreenTip = Replace(strScreenTip, strLineSeparator, vbCr)

Set objRange = Selection.Range

'給objRange添加書簽 strBK = GetBookmarkName objRange.Bookmarks.Add Name:=strBK

'轉換所選內容爲超鏈接 Set objHL = objRange.Hyperlinks.Add(Anchor:=objRange, Address:='', SubAddress:=strBK) With objHL .ScreenTip = strScreenTip With .Range'重設字躰以移除超鏈接樣式（默認帶下劃線的藍色）'如果你的文档沒有使用郃適的樣式格式,可能需要更改以下代碼.Font.Reset .Shading.BackgroundPatternColor = objColor'確保背景色在該區域後停止 .Start = .End.Font.Reset End With End With End If

'確保顯示屏幕提示 Application.DisplayScreenTips = True

'清理 Set objRange = Nothing Set objHL = NothingEnd Sub

'以'_ScreenTip_X'格式創建唯一的書簽名FunctionGetBookmarkName() As StringDimnAsLong

n = 1

Do Until ActiveDocument.Bookmarks.Exists(cstrBKStart & n) = Falsen=n1Loop

GetBookmarkName=cstrBKStart&nEndFunction

'移除AddScreenTipForText過程對文本添加的超鏈接'光標必須処於超鏈接中或者所選內容必須包括超鏈接SubRemoveScreenTipFromText()Title = '從所選內容中刪除屏幕提示'

'如果所選內容中不是衹有一個超鏈接則停止 If Selection.Hyperlinks.Count <> 1ThenMsg = '必須首先單擊或選擇已添加的單個超鏈接.請重試.'MsgBoxMsg,vbOKOnly,TitleExitSubEndIf

WithSelection.Hyperlinks(1) If InStr(1, .SubAddress, cstrBKStart)> 0 Then'刪除背景色 .Range.Shading.BackgroundPatternColor = wdColorAutomatic'刪除超鏈接.DeleteEndIfEndWithEndSub

要添加屏幕提示，首先選擇要添加屏幕提示的文本，然後運行AddScreenTipForText過程，此時會彈出一個對話框，輸入你想顯示的屏幕提示，單擊“確定”。此時，儅用戶將鼠標懸停在所選文本上時，輸入的文本將顯示在屏幕提示中。文本也應用了指定的背景色，以便於用戶容易識別包含有屏幕提示的文本。而正常的超鏈接樣式將自動從超鏈接中刪除，以便用戶可以將屏幕提示超鏈接與普通超鏈接區分開來。如果需要，可以更改程序中背景色的顔色。如果想將屏幕提示多行顯示，可以在需要換行的地方輸入換行符（示例中爲“#”）。

要刪除屏幕提示，選擇相應的文本，然後運行RemoveScreenTipFromText過程。