你好,这是一个"文字"/("TEXT")的快捷菜单.请参以下代码: '* +++++++++++++++++++++++++++++
'* Created By 守柔(ShouRou)@ExcelHome 2005-2-18 3:48:09
'仅测试于System: Windows NT Word: 10.0 Language: 2052
'^The Code CopyIn [ThisDocument-ThisDocument]^'
'* -----------------------------Option Explicit
Private Sub Document_Close()
On Error Resume Next '退出时恢复
Application.CommandBars("Text").Enabled = True
End Sub
'----------------------
Private Sub Document_Open()
On Error Resume Next '打开文档时禁用该菜单
Application.CommandBars("Text").Enabled = False
End Sub
'----------------------
Sub ResetText() '恢复
Application.CommandBars("Text").Enabled = True
End Sub
'---------------------- |