在日常工作中，為了提高文檔瀏覽效率，我們經(jīng)常需要快速跳轉(zhuǎn)到文檔的目錄位置。利用VBA編程，在Word文檔中添加一個(gè)懸浮按鈕，只需輕輕一點(diǎn)即可實(shí)現(xiàn)跳轉(zhuǎn)回文檔目錄的便捷功能。 編輯VBA代碼實(shí)現(xiàn)懸浮按鈕的

在日常工作中，為了提高文檔瀏覽效率，我們經(jīng)常需要快速跳轉(zhuǎn)到文檔的目錄位置。利用VBA編程，在Word文檔中添加一個(gè)懸浮按鈕，只需輕輕一點(diǎn)即可實(shí)現(xiàn)跳轉(zhuǎn)回文檔目錄的便捷功能。

編輯VBA代碼實(shí)現(xiàn)懸浮按鈕的添加

首先，打開(kāi)Word文檔，按下“ALT F11”組合鍵，打開(kāi)Visual Basic for Applications（VBA）編輯器。在VBE編輯器中，右鍵點(diǎn)擊工程窗口，選擇“插入” - “用戶(hù)窗體”，插入一個(gè)新窗體命名為UserForm1。在UserForm1的屬性對(duì)話框中，將ShowModel屬性設(shè)為False，BorderStyle屬性設(shè)為0-fmBorderStyleNone，StartUpPosition屬性設(shè)為0-手動(dòng)，并在窗體上添加一個(gè)標(biāo)簽Label1，將其Caption屬性設(shè)置為“返回目錄”，BorderStyle屬性設(shè)置為0-fmBorderStyleNone。

添加VBA代碼實(shí)現(xiàn)按鈕功能

在UserForm1的代碼窗口中粘貼以下VBA代碼：

```vba

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long

Private Declare Sub ReleaseCapture Lib "user32" ()

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Const GWL_STYLE As Long (-16)

Private Const WS_CAPTION As Long HC00000

Private Const WM_NCLBUTTONDOWN As Long HA1

Private Const HTCAPTION As Long 2

Private Sub Label1_Click()

Selection.HomeKey unit:wdStory ' 返回文檔開(kāi)頭

unit:wdLine, Count:9 ' 將光標(biāo)移動(dòng)到文檔目錄位置（根據(jù)實(shí)際情況調(diào)整行數(shù)）

End Sub

Private Sub UserForm_Initialize()

Dim lngStyle As Long

Dim hWnd As Long

hWnd FindWindow(vbNullString, )

lngStyle GetWindowLong(hWnd, GWL_STYLE)

SetWindowLong hWnd, GWL_STYLE, lngStyle And Not WS_CAPTION

DrawMenuBar hWnd

Me.Height 31.5

Me.Left (wdHorizontalPositionRelativeToPage) 545

(wdVerticalPositionRelativeToPage) 50

End Sub

Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

Dim hWnd As Long

hWnd FindWindow(vbNullString, )

ReleaseCapture

SendMessage hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0

End Sub

```

將代碼添加至文檔打開(kāi)事件中

最后，在ThisDocument代碼窗口中粘貼以下代碼：

```vba

Private Sub Document_Open()

End Sub

```

通過(guò)以上步驟，成功添加了一個(gè)懸浮按鈕到Word文檔中，實(shí)現(xiàn)了方便快捷地返回目錄的功能。這樣，無(wú)需頻繁滾動(dòng)文檔，只需點(diǎn)擊懸浮按鈕即可快速回到目錄位置，大大提升了文檔瀏覽和編輯的效率。