word vba 输入{{后自动运行某宏

sjh315 · 发表于 2015-4-14 18:26

求助高手：
如何实现：在word中输入内容“{{”后，自动运行某一个特定的宏？

非常感谢！

liuhoubin168 · 发表于 2015-4-15 10:43

本帖最后由 liuhoubin168 于 2015-4-15 15:27 编辑

实现不了，没有文档内容改变后能触发的事件。
只有位置改变后能触发的事件。
用计时器的方法可以实现，但你一定要在你指定的宏中，把特定的字符，比如“{{”改了或使用其他方法避免死循环，而且这个方法影响速度。

在word中使用计时器.rar (22.14 KB, 下载次数: 23)

liuhoubin168 · 发表于 2015-4-15 11:57

本帖最后由 liuhoubin168 于 2015-4-15 15:28 编辑

那个0.000002可以调整一点点

liuhoubin168 · 发表于 2015-4-16 09:22

本帖最后由 liuhoubin168 于 2015-4-16 09:42 编辑

'按楼主要求，又重新修改了一下，在ThisDocument对象中添加以下代码（本人觉得这段代码还是比较有实用价值的）。
Private Sub Document_Open()
Call 计时
End Sub
Sub 计时()
  Dim Rn As Range
  On Error Resume Next
  Set Rn = Selection.Range
  Rn.SetRange Selection.Start - 2, Selection.Start
  If Rn.Text = "{{" And Selection.Type = wdSelectionIP Then Call 指定宏
  Application.OnTime Now + 0.000002, "计时"  '到时递归调用本过程，经测试 0.000002这个值比较合适，这个值可能是0.2秒，具体没研究。
  DoEvents
End Sub
Sub 指定宏()
  Selection.TypeText " "  '在字符“{{”后添加一个空格，防止死循环。
  MsgBox "光标前面两个字符为“{{”！", , "输入提示"
End Sub

ais9009 · 发表于 2019-8-5 15:00

liuhoubin168 发表于 2015-4-16 09:22
'按楼主要求，又重新修改了一下，在ThisDocument对象中添加以下代码（本人觉得这段代码还是比较有实用价值 ...

牛逼这个思路很厉害

loquat · 发表于 2019-8-6 21:15

还可以用timesetevent来做

		自动登录	找回密码
密码			免费注册