用输入法录入带有括号的序号换成手动输入

菜菜行者 · 发表于 2017-5-27 13:35

输入法录入的

⑴⑵⑶⑷⑸⑹⑺⑻⑼⑽⑾⑿⒀⒁⒂⒃⒄⒅⒆⒇

㈠㈡㈢㈣㈤㈥㈦㈧㈨㈩

⒈⒉⒊⒋⒌⒍⒎⒏⒐⒑⒒⒓⒔⒕⒖⒗⒘⒙⒚⒛

换成手动录入

（1）（2）（3）（4）（5）（6）（7）（8）（9）（10）（11）（12）（13）（14）（15）（16）（17）（18）（19）（20）

（一）（二）（三）（四）（五）（六）（七）（八）（九）（十）

1.2.3.4.5.6.7.8.9.10.

11.12.13.14.15.16.17.18.19.20

序号.rar (12.02 KB, 下载次数: 8)

谢谢各位

413191246se · 发表于 2017-5-27 19:50

楼主，按我的理解，你是想录入时打（1），自动出来软键盘上的序号？（还是我的理解有误？应该举个例子，再说明白一点。）

菜菜行者 · 发表于 2017-5-28 02:26

413191246se 发表于 2017-5-27 19:50
楼主，按我的理解，你是想录入时打（1），自动出来软键盘上的序号？（还是我的理解有误？应该举个例子，再 ...

谢谢关注！
是这样的，人家打好的内容，我要替换成我想要的。
1楼已经有附件了的

duquancai · 发表于 2017-5-28 11:16

Sub shishi()
a = Array("⑴", "⑵", "⑶", "⑷", "⑸", "⑹", "⑺", "⑻", "⑼", "⑽", "⑾", "⑿", "⒀", "⒁", "⒂", "⒃", "⒄", "⒅", "⒆", "⒇")
a1 = Array("（1）", "（2）", "（3）", "（4）", "（5）", "（6）", "（7）", "（8）", "（9）", "（10）", "（11）", "（12）", "（13）", "（14）", "（15）", "（16）", "（17）", "（18）", "（19）", "（20）")
b = Array("㈠", "㈡", "㈢", "㈣", "㈤", "㈥", "㈦", "㈧", "㈨", "㈩")
b1 = Array("（一）", "（二）", "（三）", "（四）", "（五）", "（六）", "（七）", "（八）", "（九）", "（十）")
c = Array("⒈", "⒉", "⒊", "⒋", "⒌", "⒍", "⒎", "⒏", "⒐", "⒑", "⒒", "⒓", "⒔", "⒕", "⒖", "⒗", "⒘", "⒙", "⒚", "⒛")
c1 = Array("1.", "2.", "3.", "4.", "5.", "6.", "7.", "8.", "9.", "10.", "11.", "12.", "13.", "14.", "15.", "16.", "17.", "18.", "19.", "20.")
For i = 1 To 3
      Select Case i
      Case 1
         For x = 0 To 19
            ActiveDocument.Content.Find.Execute a(x), replacewith:=a1(x), Replace:=2
         Next
      Case 2
         For x = 0 To 9
            ActiveDocument.Content.Find.Execute b(x), replacewith:=b1(x), Replace:=2
         Next
      Case 3
         For x = 0 To 19
            ActiveDocument.Content.Find.Execute c(x), replacewith:=c1(x), Replace:=2
         Next
      End Select
Next
End Sub

413191246se · 发表于 2017-5-28 12:07

杜先生，为什么不一次性用两个数组变量 A、B 替换？

菜菜行者 · 发表于 2017-5-28 12:49

duquancai 发表于 2017-5-28 11:16
Sub shishi()
a = Array("⑴", "⑵", "⑶", "⑷", "⑸", "⑹", "⑺", "⑻", "⑼", "⑽", "⑾", "⑿", ...

循环替换很多次，时间上稍久，但比手动替换方便，谢谢杜老师！！

duquancai · 发表于 2017-5-28 13:00

菜菜行者发表于 2017-5-28 12:49
循环替换很多次，时间上稍久，但比手动替换方便，谢谢杜老师！！

还嫌伙食差！那你想办法编写一个吧？哈哈哈

菜菜行者 · 发表于 2017-5-28 13:16

duquancai 发表于 2017-5-28 13:00
还嫌伙食差！那你想办法编写一个吧？哈哈哈

这个够用了，嘎嘎！

duquancai · 发表于 2017-5-28 13:33

菜菜行者发表于 2017-5-28 13:16
这个够用了，嘎嘎！

别人一次提问一个要求查找替换。你这相当于提问 50个问题的查找替换。也就是说你这个贴，包含了50个问题，本应该有50个提问的贴。

菜菜行者 · 发表于 2017-5-28 14:34

duquancai 发表于 2017-5-28 13:33
别人一次提问一个要求查找替换。你这相当于提问 50个问题的查找替换。也就是说你这个贴，包含了50个 ...

啊！
那看来我得消停消停！

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

[求助] 用输入法录入带有括号的序号换成手动输入

评分