去00搜索

 Option Explicit
 
 Sub RunEverythingA()
 
 '这段VBA代码首先定义了两个字符串变量myFind和myFind2。
  '接着，通过判断选定文本的长度和最后两个字符来确定myFind的值。
  '如果长度为14且最后两个字符为"00"，则取前12个字符作为myFind的值；否则，直接使用选定文本作为myFind的值。
  '然后，将myFind的值用双引号包围，并将结果赋值给myFind2。
  '最后，使用Shell函数执行命令行操作，调用Everything程序并传递参数-nonewwindow -s以及myFind2的值。
    Dim myFind As String, myFind2 As String
        ' 检查选定文本的长度是否为14且最后两个字符是否为"00"
    
    If Len(Trim(Selection.Text)) = 14 And Right(Selection.Text, 2) = "00" Then
    myFind = Trim(Left(Selection.Text, 12))
    Else
    myFind = Trim(Selection.Text)
    End If
    ' 将myFind变量的值用双引号包围
    myFind2 = Chr(34) & myFind & Chr(34)
    ' 使用Shell函数执行命令行操作
    Shell "C:\Program Files\Everything\everything  -nonewwindow -s " & myFind2, 1
End Sub
 

'Callback for customButton onAction
Public Sub RunEverythings(control As IRibbonControl)
Call RunEverythingA
End Sub