Word书签高级运用.doc

Word书签的高级运用 经常利用Word书签的朋友都知道，每插入一个书签都要点击好几次鼠标，才能打开那个书签窗口，最后还要点击确认，退出~~~，既麻烦有浪费时间。至于利用书签进行定位操作，同样要经过以上操作。如果频繁插入书签，则会把你累得半死！ 为此，笔者利用vba语言，大大简化了上述操作，一键搞定！思路是：在工具栏上建立2个按钮：一个是(插入书签)，另一个是(书签列表)。使用时，只要用鼠标选中有关标题，点击插入书签按钮，立即完成；要定位书签时，只要用鼠标点击书签列表按钮中的标题，立即完成。十分方便！ 下面是vba源代码,请打开Visual Basic 编辑器，然后把下面代码复制到Newmacros模块中，保存即可。 本代码在word2003上调试通过。 Dim Obj_Toolbar As CommandBar 代表工具栏的变量 Dim Obj_Menu As CommandBarPopup 代表菜单的变量 Dim Obj_Toolbar_button As CommandBarButton 代表菜单项和按钮的变量 Sub StartTimer() 设置延时控件 Application.OnTime Now() + TimeValue(00:00:01), StartTimer On Error GoTo 1 If ActiveDocument.Bookmarks.Count 0 Then StopTimer addbutton1 End If 1: VBA.DoEvents End Sub Sub StopTimer() 停止延时 On Error Resume Next Application.OnTime Now(), , False Debug.Print Stop!, Time End 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() 创建工具栏书签列表 deletebutton1 调用删除书签列表子程序 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 设置菜单项的属性，下同 .Caption = ActiveDocument.Bookmarks.Item(i).Name .BeginGroup = True .OnAction = GoToBookmark 设置单击菜单项执行的子程序名称 End With Next End With End Sub Sub addbutton() 创建工具栏和菜单并设置属性的子程序 deletebutton On Error Resume Next 该语句用于忽略错误 Application.CommandBars(1).Controls(书签列表).Delete Set Obj_Toolbar = Application.CommandBars(Standard) Set Obj_Toolbar