word书签的高级运用

《word书签的高级运用》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、Word书签的高级运用经常利用Word书签的朋友都知道，每插入一个书签都要点击好几次鼠标，才能打开那个书签窗口，最后还要点击确认，退出~~~，既麻烦有浪费时间。至于利用书签进行定位操作，同样要经过以上操作。如果频繁插入书签，则会把你累得半死！为此，笔者利用vba语言，大大简化了上述操作，一键搞定！思路是：在工具栏上建立2个按钮：一个是(插入书签)，另一个是(书签列表)。使用时，只要用鼠标选中有关标题，点击插入书签按钮，立即完成；要定位书签时，只要用鼠标点击书签列表按钮中的标题，立即完成。十分方便！下面是

2、vba源代码,请打开VisualBasic编辑器，然后把下面代码复制到Newmacros模块中，保存即可。本代码在word2003上调试通过。DimObj_ToolbarAsCommandBar'代表工具栏的变量DimObj_MenuAsCommandBarPopup'代表菜单的变量DimObj_Toolbar_buttonAsCommandBarButton'代表菜单项和按钮的变量SubStartTimer()'设置延时控件Application.OnTimeNow()+TimeValue("00:0

3、0:01"),"StartTimer"OnErrorGoTo1IfActiveDocument.Bookmarks.Count>0ThenStopTimeraddbutton1EndIf1:VBA.DoEventsEndSubSubStopTimer()'停止延时OnErrorResumeNextApplication.OnTimeNow(),"",FalseDebug.Print"Stop!",TimeEndSubSubdeletebutton()'删除工具栏和菜单的子程序OnErrorResumeN

4、ext'该语句用于忽略错误Application.CommandBars(1).Controls("书签").DeleteApplication.CommandBars(1).Controls("书签列表").DeleteEndSubSubdeletebutton1()'删除书签列表DimiAsLongOnErrorResumeNext'该语句用于忽略错误WithApplication.CommandBars(1).Controls("书签列表").ControlsFori=.CountTo1Step-

5、1.Item(i).DeleteNextEndWithEndSubSubaddbutton1()'创建工具栏书签列表deletebutton1'调用删除书签列表子程序DimiAsLongWithApplication.CommandBars(1).Controls("书签列表").ControlsFori=1ToActiveDocument.Bookmarks.CountSetObj_Toolbar_button=.Add(Type:=msoControlButton,ID:=1)'新建菜单项，下同Wi

6、thObj_Toolbar_button'设置菜单项的属性，下同.Caption=ActiveDocument.Bookmarks.Item(i).Name.BeginGroup=True.OnAction="GoToBookmark"'设置单击菜单项执行的子程序名称EndWithNextEndWithEndSubSubaddbutton()'创建工具栏和菜单并设置属性的子程序deletebuttonOnErrorResumeNext'该语句用于忽略错误Application.CommandBars(1

7、).Controls("书签列表").DeleteSetObj_Toolbar=Application.CommandBars("Standard")SetObj_Toolbar_button=Obj_Toolbar.Controls.Add(msoControlButton,1,,,True)'在工具栏上新建下拉菜单，“ID:=1”代表该工具栏的功能由用户自定义，下同WithObj_Toolbar_button'设置下拉菜单的属性.Caption="书签"'设置标题.BeginGroup=True.O

8、nAction="AddToBookmark"'设置单击菜单项执行的子程序名称.FaceId=481EndWithSetObj_Menu=Obj_Toolbar.Controls.Add(Type:=msoControlPopup,ID:=1)'在工具栏上新建下拉菜单，“ID:=1”代表该工具栏的功能由用户自定义，下同WithObj_Menu'设置下拉菜单的属性.Caption="书签列表"'设置标题.BeginGroup=True'设置分