为Word与Excel联合舰队修建快速通道
#1?牐牭谝徊剑罕嘈春杲疟?
?牐牭慊鳌肮ぞ摺辍鶹isual Basic编辑器”，打开宏脚本编辑器（注意：不是进入“Microsoft 脚本编辑器”）。在编辑器“代码窗口”（如果没有发现代码窗口，点击“视图→代码窗口”即可显示）中输入以下代码：
?牐燬ub open_excell?煟?
?牐燨n Error Resume Next
?牐營f MsgBox（“要复制所选内容到剪贴板吗？”， vbYesNo， “数据传递！”）??
?牐?= vbYes Then
?牐燬election.Copy
?牐燛nd If
?牐燬hell “excel.exe”，vbMaximizedFocus
?牐燛nd Sub
?牐牻疟驹诵泻蠡岬觥笆荽荩 毕⒖颍誓闶欠褚粗扑∧谌荩≡瘛笆恰焙螅《ǖ哪谌荼桓粗频絎indows公用剪贴板，实现数据交换。
?牐犉渌绦颍鏟owerPoint、FrontPage和MS-DOS等的运行大致相同，必要时使用绝对路径即可。
#1?牐牭诙剑杭傻讲说ィ?立快速通道
?牐犎绻皇潜嗉桓稣庋慕疟荆⒚挥惺裁词导实囊庖澹蛭诵谐绦蛭颐峭耆梢栽诓僮飨低诚峦瓿伞＠米远ㄒ骞ぞ呃福ú说ナ翘厥獾墓ぞ呃福┑墓δ埽颐强梢园押昝睿ń疟荆┘傻浇缑妫ú说セ蚬ぞ呃福?，为“联合舰队”建立“快速通道”。
?牐犗抻谄疚慕鼋樯茉凇拔募辈说ブ刑砑印疤紼xcel”的方法，在工具栏中的添加步骤也基本相同。
?牐?1.在“文件”菜单中新建“跳转到…”子菜单
?牐犜谌我夤ぞ呃干嫌壹セ鳎≈锌旖莶说ブ械摹白远ㄒ濉? 菜单，打开自定义工具栏对话框，单击“命令”选项卡，在“类别”列表选择“新菜单”，在右边的“命令”列表中会出现一个“新菜单”命令，选中该命令并将其拖动到“文件”菜单的适当位置后放开鼠标，这样就新建了一个名为“新菜单”的子菜单。
?牐牪灰乇铡白远ㄒ濉惫ぞ呃付曰翱颍俅未蚩拔募辈说ィ诟詹判陆ǖ摹靶虏说ァ鄙系慊魇蟊暧壹谟壹说ブ谢峥吹胶竺嬗幸桓鑫谋究虻摹懊睢辈说ヌ酰苯有薷钠渲滴颐切枰牟说ッ绫纠械摹疤健薄?
?牐?2.为“跳转到…”子菜单增加菜单命令
?牐牎白远ㄒ濉惫ぞ呃付曰翱蛑校凇袄啾稹绷斜碇醒≡瘛昂辍保梢钥吹轿颐歉詹疟嘈吹暮杲疟荆ㄈ绫纠Ω梦篘ormal.NewMacros. open-excell）。参照上边的方法，将该宏拖放到“跳转到…”子菜单内（注意：“内”和“下”的区别），并完成更名，然后后关闭“自定义工具栏“对话框。
?牐牬耸钡牟说ッ挥写课淖植说ィ芯跎细低潮旧淼牟说セ故怯械悴罹唷Ｈ绾紊柚玫酶昝滥兀看鸢妇驮诠ぞ呃副嗉肪诚拢?即在“自定义”工具栏对话框打开时）的那个右键菜单中了，刚才编辑子菜单项目时不可用的很多菜单命令都可用了，有复制按钮图标、粘贴按钮图标和更改按钮图标等。具体有什么用，相信就不用我多说了吧。
?牐犚陨辖樯艿闹皇谴覹ord跳转到Excel的方法，完全一模一样的脚本在Excel下也可以使用。只是要提醒一下：Shell “excel.exe”，vbMaximizedFocus应该改成Shell“winword.exe”，vbMaximizedFocus，读者可以自己试试。