麻烦大神看看一小段超简单的代码，一直出Bug，心态崩了~

Yorphone

请问各位大神，下面这个代码中，
当我不选择区域的时候，为什么只有删除空格的Sub会出现弹窗，
另外两个则会继续执行，往光标下面进行删除换行符或者空行呀？？
真的百思不得其解~
还想请教一下，如果我定义一个变量，
只想在这一个Sub中使用，我该如何定义呢？
也就是说，我下面的这三个变量都用myRange会不会有问题呢~
实在是麻烦各位大神啦，先提前和大神们说谢谢~

1. Sub 删除空格()
   
2.     Dim myRange As Range
   
3.     '选择区域为插入点
   
4.     If Selection.Type = wdSelectionIP Then
   
5.         MsgBox "未选定区域！"
   
6.     Else
   
7.         Set myRange = Selection.Range
   
8.         myRange.Find.Execute FindText:=" ", replacewith:="", Replace:=wdReplaceAll
   
9.     End If
   
10. End Sub
    
11. Sub 删除换行符()
    
12.     Dim myRange As Range
    
13.     '选择区域为插入点
    
14.     If Selection.Type = wdSelectionIP Then
    
15.         MsgBox "未选定区域！"
    
16.     Else
    
17.         Set myRange = Selection.Range
    
18.         myRange.Find.Execute FindText:="^p", replacewith:="", Replace:=wdReplaceAll
    
19.     End If
    
20. End Sub
    
21. Sub 删除空行()
    
22.     Dim myRange As Range
    
23.     '选择区域为插入点
    
24.     If Selection.Type = wdSelectionIP Then
    
25.         MsgBox "未选定区域！"
    
26.     Else
    
27.         Set myRange = Selection.Range
    
28.         myRange.Find.Execute FindText:="^p^p", replacewith:="", Replace:=wdReplaceAll    '删除所有全角空格
    
29.     End If
    
30. End Sub
    

复制代码

dgerwin

经测试，不选区域，3个程度都有弹出框，

Yorphone

dgerwin 发表于 2020-4-11 22:55
经测试，不选区域，3个程度都有弹出框，

非常感谢大神，破案了，可能是我前面的模块有相同的宏名，我的自定义的按钮不知道是不是调用的前面模块的宏，我改了宏名之后就好了，谢谢大神指导哦~

Yorphone

dgerwin 发表于 2020-4-11 22:55
经测试，不选区域，3个程度都有弹出框，

请问一下大神，不同的模块的宏名相同的问题怎么处理呀，只能手动地一个个找然后改名字吗？

Yorphone

Yorphone 发表于 2020-4-11 23:12
请问一下大神，不同的模块的宏名相同的问题怎么处理呀，只能手动地一个个找然后改名字吗？

我自己发现了，可以直接在整个工程那自动查找，按ctrl f 调出窗口即可