公司上网行为管理,就用安企神软件
立即咨询本Word的VBA代码的功能简介:在右键文本菜单的中部位置(相当于右击文本时出现的菜单),添加一个自定义命令,并执行相应过程。
Private Sub Document_Close()
On Error Resume Next
Application.CommandBars("Text").Controls("Test").Delete ’恢复原有菜单
End Sub
Private Sub Document_Open()
Dim Half As Byte
On Error Resume Next
Dim NewButton As CommandBarButton
Application.CommandBars("Text").Controls("Test").Delete ‘预防性删除
Half = Int(Application.CommandBars("Text").Controls.Count / 2) ‘中间位置
Set NewButton = Application.CommandBars("Text").Controls.Add(Type:=msoControlButton, Before:=Half)
With NewButton
.Caption = "Test" ’命令名称
.FaceId = 100 ’命令的FaceId
.Visible = True ’可见
.OnAction = "MySub" ‘指定响应过程名
End With
End Sub
Sub MySub()
MsgBox "It’s A Test For CommandBars(""Text"")!", vbOKOnly + vbInformation
End Sub
Sub ComReset() ‘重新设置右键菜单,彻底恢复默认设置
Application.CommandBars("Text").Reset
End Sub
生成具有Commandbars(“Toolbar list”)或者当于CommandBars("View").Controls("工具栏(&T)")中的命令按钮形式:
Private Sub Document_Close()
On Error Resume Next
Application.CommandBars("Text").Controls("New Menu").Delete ’恢复原有菜单
End Sub
Private Sub Document_Open()
Dim i As Byte, Half As Byte, strName As String, NewButton As CommandBarPopup
Dim MenuAdd As CommandBarButton
On Error Resume Next
Application.CommandBars("Text").Controls("New Menu").Delete ‘预防性删除
Half = Int(Application.CommandBars("Text").Controls.Count / 2) ‘中间位置
Set NewButton = Application.CommandBars("Text").Controls.Add(Type:=msoControlPopup, Before:=Half)
With NewButton ’这是弹出式菜单即右边带有小三角型的
.Caption = "New Menu" ’命令名称
.Visible = True ‘可见
End With
For i = 1 To 4 ’新建四个子命令,批量生成
strName = "Menu" & i
Set MenuAdd = NewButton.Controls.Add(Type:=msoControlButton)
With MenuAdd
.Caption = strName
.OnAction = "MySub"
.State = msoButtonDown ‘带勾选的命令按钮
.Visible = True
End With
Next
End Sub
Sub MySub()
Dim ActionTag As String
ActionCap = CommandBars.ActionControl.Caption
MsgBox ActionCap
Select Case ActionTag
’以此来区分各个命令并执行指定过程
End Select
With Application.CommandBars("Text").Controls("New Menu")
If .Controls(ActionCap).State = msoButtonDown Then
MsgBox "It’s A Test!", vbOKOnly + vbInformation
.Controls(ActionCap).State = msoButtonUp
Else
.Controls(ActionCap).State = msoButtonDown
End If
End With
End Sub
Sub ComReset() ‘重新设置右键菜单,彻底恢复默认设置
Application.CommandBars("Text").Reset
End Sub
以下为禁用命令和快捷键的常用方式与保存路径,提倡使用修改WORD命令更方便。
Sub Example()
‘将自定义菜单栏工具栏或者自定义键盘的改变保存于活动文档中
Application.CustomizationContext = ActiveDocument
‘利用CommandBars(Name).Controls(Caption)来定位按钮,具有唯一性
Application.CommandBars("Standard").Controls("打开(&O)...").Enabled = False ‘TRUE
‘ 利用来定位按钮,不太直观,容易受调整后的命令位置干扰
Application.CommandBars("Standard").Controls(2).Enabled = True ‘False
‘利用Findcontrol(ID:=)来定位按钮,具有唯一性,并可循环,作用多个此按钮命令
Application.CommandBars.FindControl(ID:=23).Enabled = True ‘False
‘利用CommandBars(Index).Controls(Index)来定位按钮,直观,但受调整后的命令位置干扰
Application.CommandBars(1).Controls(2).Enabled = False ‘True
End Sub
Sub FileOpen() ‘可以将命令与快捷键一并禁用
MsgBox "这是修改WORD命令/打开文件"
End Sub
Sub Sample() ’将 CTRL+O快捷键重新分配或者修改并保存于当前文档中
CustomizationContext = ActiveDocument
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyControl, wdKeyO), _
KeyCategory:=wdKeyCategoryMacro, Command:="NoFileOpen"
End Sub
Sub NoFileOpen()
MsgBox "This is only a test!"
End Sub
安企神桌管软件:提升企业管理效率的全能助力
安企神桌管软件:提升企业管理效率的全能助力在当今竞争激烈的商业环境中,企业必须不断优化管理和运营流程,以提高效率和盈利能力。安企神桌管软件正是这样一款面向中小企业的管理工具,能够帮助企业在多方面提升综合管理水平。本文将详细探讨安企神桌管软件给企业带来的多重价值。一、全方位的管理功能安企神桌管软件是一款集成了多种管理功能...
安企神:揭开终端安全管理软件的神秘面纱
安企神:揭开终端安全管理软件的神秘面纱在数字化日益普及的今天,企业的网络安全问题愈发显得重要。数据泄露、网络攻击等事件层出不穷,如何保障企业内部信息的安全性成为众多企业关心的焦点。安企神终端安全管理软件应运而生,作为一款专业的安全管理工具,它的功能与优势备受关注。本文将全面揭秘安企神软件的核心功能、应用场景及其在终端安...
安企神文件加密软件的功能优势全面解析
安企神文件加密软件的功能优势全面解析在信息化飞速发展的今天,数据安全问题愈发凸显。尤其是企业在日常运营中,面对海量敏感信息,如何有效保护这些信息已成为一个不容忽视的课题。安企神文件加密软件作为一款专业的数据保护工具,凭借其独特的功能与优势,正逐渐成为市场的热门选择。本文将详细探讨安企神文件加密软件的各项功能及其带来的实...
揭秘安企神文件加密软件:让数据安全无懈可击的功能
揭秘安企神文件加密软件:让数据安全无懈可击的功能在如今这个互联网技术迅速发展的时代,数据安全问题愈发受到重视。尤其是企业内部的重要文件和数据,保护其安全性变得尤为关键。面对日益复杂的网络威胁,安企神文件加密软件作为一款功能强大的安全工具,正在逐渐成为众多企业的首选。那么,这款软件究竟具备哪些独特而实用的功能呢?本文将对...
安企神上网行为审计软件:让您掌握网络安全的每一个细节
安企神上网行为审计软件:让您掌握网络安全的每一个细节在信息技术高速发展的今天,企业的网络安全问题愈加突出。网络攻击、数据泄露、内部人员的不当行为等风险无时无刻不在威胁着企业的正常运作。为了有效应对这些挑战,安企神上网行为审计软件应运而生。本文将详细揭秘该软件的强大功能,让您充分了解它如何帮助企业提升网络安全管理水平。一...