Word書簽的高級運用.doc

Word書簽的高級運用經(jīng)常利用Word書簽的朋友都知道，每插入一個書簽都要點擊好幾次鼠標，才能打開那個書簽窗口，最后還要點擊確認，退出，既麻煩有浪費時間。至于利用書簽進行定位操作，同樣要經(jīng)過以上操作。如果頻繁插入書簽，則會把你累得半死！為此，筆者利用vba語言，大大簡化了上述操作，一鍵搞定！思路是：在工具欄上建立2個按鈕：一個是(插入書簽)，另一個是(書簽列表)。使用時，只要用鼠標選中有關(guān)標題，點擊插入書簽按鈕，立即完成；要定位書簽時，只要用鼠標點擊書簽列表按鈕中的標題，立即完成。十分方便！下面是vba源代碼,請打開Visual Basic 編輯器，然后把下面代碼復(fù)制到Newmacros模塊中，保存即可。本代碼在word2003上調(diào)試通過。Dim Obj_Toolbar As CommandBar 代表工具欄的變量 Dim Obj_Menu As CommandBarPopup 代表菜單的變量 Dim Obj_Toolbar_button As CommandBarButton 代表菜單項和按鈕的變量 Sub StartTimer() 設(shè)置延時控件 Application.OnTime Now() + TimeValue(00:00:01), StartTimer On Error GoTo 1 If ActiveDocument.Bookmarks.Count 0 Then StopTimer addbutton1 End If1: VBA.DoEventsEnd SubSub StopTimer() 停止延時On Error Resume Next Application.OnTime Now(), , False Debug.Print Stop!, TimeEnd Sub Sub deletebutton() 刪除工具欄和菜單的子程序 On Error Resume Next 該語句用于忽略錯誤 Application.CommandBars(1).Controls(書簽).Delete Application.CommandBars(1).Controls(書簽列表).Delete End Sub Sub deletebutton1() 刪除書簽列表 Dim i As Long On Error Resume Next 該語句用于忽略錯誤 With Application.CommandBars(1).Controls(書簽列表).Controls For i = .Count To 1 Step -1 .Item(i).Delete Next End With End Sub Sub addbutton1() 創(chuàng)建工具欄書簽列表 deletebutton1 調(diào)用刪除書簽列表子程序 Dim i As Long With Application.CommandBars(1).Controls(書簽列表).Controls For i = 1 To ActiveDocument.Bookmarks.Count Set Obj_Toolbar_button = .Add(Type:=msoControlButton, ID:=1) 新建菜單項，下同 With Obj_Toolbar_button 設(shè)置菜單項的屬性，下同 .Caption = ActiveDocument.Bookmarks.Item(i).Name .BeginGroup = True .OnAction = GoToBookmark 設(shè)置單擊菜單項執(zhí)行的子程序名稱 End With Next End With End Sub Sub addbutton() 創(chuàng)建工具欄和菜單并設(shè)置屬性的子程序 deletebutton On Error Resume Next 該語句用于忽略錯誤 Application.CommandBars(1).Controls(書簽列表).Delete Set Obj_Toolbar = Application.CommandBars(Standard) Set Obj_Toolbar_button = Obj_Toolbar.Controls.Add(msoControlButton, 1, , , True) 在工具欄上新建下拉菜單，“ID:=1”代表該工具欄的功能由用戶自定義，下同 With Obj_Toolbar_button 設(shè)置下拉菜單的屬性 .Caption = 書簽 設(shè)置標題 .BeginGroup = True .OnAction = AddToBookmark 設(shè)置單擊菜單項執(zhí)行的子程序名稱 .FaceId = 481 End With Set Obj_Menu = Obj_Toolbar.Controls.Add(Type:=msoControlPopup, ID:=1) 在工具欄上新建下拉菜單，“ID:=1”代表該工具欄的功能由用戶自定義，下同 With Obj_Menu 設(shè)置下拉菜單的屬性 .Caption = 書簽列表 設(shè)置標題 .BeginGroup = True 設(shè)置分組 End WithEnd Sub “標準風格”子程序 Private Sub GoToBookmark() Selection.GoTo What:=wdGoToBookmark, Name:=CommandBars.ActionControl.Caption With ActiveDocument.Bookmarks .DefaultSorting = wdSortByName .ShowHidden = False End With End Sub Private Sub AddToBookmark() Call 插入書簽 End Sub Sub AutoExec() addbutton 在工具欄上添加按鈕 StartTimer 設(shè)置延時控件 End Sub Sub AutoExit() deletebutton End SubSub 插入書簽() With ActiveDocument.Bookmarks Dim S As String, myReg S = Application.Selection 獲取選中文本 S = Trim(S) If S = Then Exit Sub Set myReg = CreateObject(VBscript.regexp) 建立正則表達式對象 myReg.IgnoreCase = True 設(shè)置是否區(qū)分字符大小寫 myReg.Global = True 設(shè)置全局可用性 myReg.Pattern = s*tnr S = myReg.Replace(S, ) 去除字符串中的空格、回車、換行符、制表符 myReg.Pattern = wdu3000-u9FA5+$ If myReg.test(S) = False Then MsgBox 請輸入數(shù)字、字母、中文或下劃線！ GoTo 1 End If .Add Range:=Selection.Range, Name:=S .DefaultSorting = wdSortByName .ShowHidden = False End With addbutton1 刷新書簽列表1: Set myReg = NothingEnd Sub myReg.IgnoreCase = True 設(shè)置是否區(qū)分字符大小寫 myReg.Global = True 設(shè)置全局可用性 myReg.Pattern = s*tnr S = myReg.Replace(S, ) 去除字符串中的空格、回車、換行符、制表符 myReg.Pattern = wdu3000-u9FA5+$ If myReg.test(S) = False Then MsgBox 請輸入