点击鼠标自动插入一个指定字符

相见是缘8

各位老师好！

想要实现下面的功能：

如需要进入该模式，按电脑键盘上某个键，进入该模式，即：鼠标左键点击之处，自动插入一个中文顿号，如：鼠标右键点击之处，自动插入一对中文双引号，如需要退出该模式，按电脑键盘上某个键，退出该模式，鼠标恢复原有的功能。

插入的标点或符号，都可手动自由更换。

求会的老师帮忙，谢谢！

过客fppt

点击鼠标插入，我想不到什么方法。不过可以先写好代码，然后在设置选项中，给这一个代码设置为快捷键，一个快捷键输入顿号，一个快捷键输入冒号。这还是可以做到的。

相见是缘8

过客fppt 发表于 2023-8-20 09:15
点击鼠标插入，我想不到什么方法。不过可以先写好代码，然后在设置选项中，给这一个代码设置为快捷键，一个 ...

过客fppt老师好！感谢回复！能请你编一个代码吗？

batmanbbs

https://getquicker.net/Sharedact ... mp;fromMyShare=True

sylun

也可试试附件文档效果

相见是缘8

batmanbbs 发表于 2023-8-20 17:18
https://getquicker.net/Sharedaction?code=01677fab-9622-4143-1ded-08dba1189b3c&fromMyShare=True

batmanbbs 老师好！
你这个怎么用？

相见是缘8

sylun 发表于 2023-8-20 19:58
也可试试附件文档效果

sylun 老师好！
好久不见，感谢你多次出手相助！
代码 OK！
1、让它在其它的 Word 文档上可使用，要怎样修改？
2、受 batmanbbs 老师的启发，可不可以劳你再增加一个，对选中的内容，两侧插入符号（如：“选中的内容”）。

过客fppt

相见是缘8 发表于 2023-8-20 10:01
过客fppt老师好！感谢回复！能请你编一个代码吗？

过客fppt

相见是缘8 发表于 2023-8-20 10:01
过客fppt老师好！感谢回复！能请你编一个代码吗？

Option Explicit


Sub 光标位置插入顿号()
    Selection.TypeText Text:="、"
End Sub

Sub 选中内容两端插入双引号()
    Dim selectedText As String
    Dim originalRange As Range
    Dim newRange As Range
   
    ' 检查是否有文本被选中
    If Selection.Type = wdSelectionNormal Then
        Set originalRange = Selection.Range
        selectedText = originalRange.Text
        
        ' 添加双引号
        originalRange.InsertBefore Chr(34) ' 双引号的ASCII码为34
        originalRange.InsertAfter Chr(34)
        
        ' 调整新的范围以便循环到插入的双引号之间
        Set newRange = ActiveDocument.Range(Start:=originalRange.Start, End:=originalRange.End + 2)
'        newRange.Select
    End If
End Sub

相见是缘8

过客fppt 发表于 2023-8-21 10:21

过客fppt 老师好！感谢！

我的 Word 文档，是 2003 版本的（见图）。我还是不明白放那里，还请详教，谢谢！