[原创]可动态添加的辅助录入快捷菜单

Trynew

游客，如果您要查看本帖隐藏内容请回复

选定文本后，单击鼠标右键，在快捷菜单中选＂添加为新辅助录入选项＂可动态添加快捷菜单．快捷菜单中前５项为固定项目，可手动自定义．快捷菜单可自己定义或从本数据库中导入．菜单的执行程序在公共模块＂全局代码中＂．需引用Microsoft Office库．

ublic Function AddNewItem() As Boolean
    Dim ctl As CommandBarButton, Str As String
    Str = Left(Screen.ActiveControl.SelText, 255)
    If Not Len(Str) > 0 Then Exit Function
    If CommandBars("FastSelect").Controls.Count > 20 Then CommandBars("FastSelect").Controls(10).Delete
    Set ctl = CommandBars("FastSelect").Controls.Add(msoControlButton)
    ctl.Caption = IIf(Len(Str) > 20, Left(Str, 20) & "...", Str)
    ctl. & Str & "')"
End Function

ublic Function GetFastSelect(Str As String) As Boolean
On Error Resume Next
    Dim intSelStart As Integer
    intSelStart = Screen.ActiveControl.SelStart
    Screen.ActiveControl.SelText = Str
    Screen.ActiveControl.SelStart = intSelStart + Len(Str)
End Function

zhao123

下载

lxtx

好，学习了

wh133@163.com

数据是存在哪里的， 这是？

yangmao130

www.office-cn.net

yyalm

学习了

lms008008

学习了

hjbboy

谢谢分享

niculas

学习学习

p51219

谢谢分享！