能否设定运行某一宏的快捷键为一个按键，而非组合键?

tangqingfu

我们可以将编写好的宏通过"自定义",将其拖曳到菜单中,右击该宏,在"命名"处的名称后添加如(&Z)的内容,来指定运行该宏的快捷键.但这种方法的指定的快捷键是Alt+Z。
请教能否做到指定的快捷键为一个按键（非组合键）？

wjhere

这样的实现也是有可能的，需要使用vb 拦截键盘之类的东西，但是他的局限性也很明显，我们需要设置一个开关，使之生效或失效，避免无意碰到该键。我以前使用过Pause键来实现Word朗读工具的朗读和停止，感觉不实用就取消了。不能使用常用的按键，如果我们使用a，键盘想输入这个字母，宏却运行了是不是很可怕。所以Word就聪明的使用了组合键作为快捷键，避免误会。

wjhere

以前是在加载项做的，直接用vba我没有成功。

tangqingfu

wjhere兄说的是!
F4为重复前一操作的快捷键,所以也想定义这些在Word中比较少用到的按键为其快捷键,不知能否实现,怎么实现?

tangqingfu

谢谢wjhere兄的回复!
期待有解决的办法!

wjhere

F2键
参考http://club.excelhome.net/viewth ... p;page=2#pid3043489
请慎用，测试中Word停止响应

tangqingfu

水平太菜,看不懂!
比如说:我想设置一个快捷键(一个按键，非组合键)运行下面这段代码，请教如何解决(最好是F1~F12其中一个键)?
sylun兄写的代码：
Sub test3()
Dim TF As Boolean, myRange As Range
With Selection
    If .Type <> wdSelectionIP Then Exit Sub
    Set myRange = .Paragraphs(1).Range
    With myRange.Find  '确定每一对括号（如果有）的内容范围
        .ClearFormatting
        .Text = "\(*\)"
        .MatchWildcards = True
        Do While .Execute
            With .Parent
                Do While UBound(Split(.Text, "(")) <> UBound(Split(.Text, ")"))  '处理嵌套括号内容
                    .MoveEndUntil ")"
                    .End = .End + 1
                Loop
                If Selection.InRange(myRange) Then  '如果插入点在该对括号内容范围内
                    TF = True
                    .SetRange .Start + 1, .End - 1  '确定所指目标内容范围
                    Exit Do
                End If
                .Collapse wdCollapseEnd
            End With
        Loop
        If TF = False Then Exit Sub
    End With
100
    Do While .Previous Like "[!，；]" And .Start > myRange.Start  '确定所需保留内容的起始位置
        .Start = .Start - 1
    Loop
200
    Do While .Next Like "[!，；]" And .End < myRange.End  '确定所需保留内容的结束位置
        .End = .End + 1
    Loop
    If UBound(Split(.Text, "(")) < UBound(Split(.Text, ")")) Or UBound(Split(.Text, "（")) < UBound(Split(.Text, "）")) Then
        .Start = .Start - 1
        GoTo 100
    ElseIf UBound(Split(.Text, "(")) > UBound(Split(.Text, ")")) Or UBound(Split(.Text, "（")) > UBound(Split(.Text, "）")) Then
        .End = .End + 1
        GoTo 200
    End If
    myRange.Text = .Text
    '试图删除词性缩写词（存在误删可能）
    If InStr(myRange, ".") > 0 And myRange Like "[!.]*" And Left(myRange, InStr(myRange, ".")) Like "*[一-龥]*" = False _
        Then myRange.Text = Mid(myRange, InStr(myRange, ".") + 1)
End With
End Sub

[ 本帖最后由 tangqingfu 于 2009-8-1 20:19 编辑 ]

wjhere

大略看看document open事件和mSubClass下面函数
Public Function WndProc(ByVal hwnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

    'wParam - the number of the hotkey, its identification.
    'lParam - HiWord is the Modifiere e.g. Shift, Ctrl, Alt
    'lParam . LoWord is the KeyCode, it is the same Code found in the Objectbrowser (F2)

10 Static VPressed As Boolean
20     WndProc = 0
30     If uMsg = WM_HOTKEY And GetActiveWindow = myHw Then
        'The Hotkey message

40      If wParam = 1 Then Call Test3

130     Else
        'All other messages to the old Windowprocedure
140         WndProc = CallWindowProcA(oldProc, hwnd, uMsg, wParam, lParam)
150     End If
End Function
修改一下就可以实现自己的东西。

tangqingfu

谢谢wjhere兄!
我试试,看一下能否将这个文档中两个模块中的内容移到normal中的模块中使用.

wjhere

应该可以吧。如果要修改文档的代码，可以通过禁用宏打开。如果启用宏，到vbe修改代码，就可能造成Word崩溃。