@פינחסס
Public Sub EnHeb()
Const listEn = "qwertyuiopasdfghjkl;'zxcvbnm,./()[]{}"
Const listHeb = "/'קראטוןםפשדגכעיחלךף,זסבהנמצתץ.)(][}{"
Dim Status As Long
Dim i As Long
Dim Str As String
Dim Result As String
Str = Selection
Do While Status = 0 And Mid(Str, i + 1, 1) <> ""
If InStr(listEn, Mid(Str, i + 1, 1)) > 0 Then Status = -1
If InStr(listHeb, Mid(Str, i + 1, 1)) > 0 Then
If Status = -1 Then Status = 0 Else Status = 2
Else
Status = IIf(Status = -1, 1, 0)
End If
i = i + 1
Loop
For i = 1 To Len(Str)
If Status = 2 Then
If Mid(Str, i, 1) = "" Then
ElseIf InStr(listHeb, Mid(Str, i, 1)) > 0 Then
Result = Result & Mid(listEn, InStr(listHeb, Mid(Str, i, 1)), 1)
ElseIf InStr(listEn, Mid(Str, i, 1)) > 0 Then
Result = Result & Mid(listHeb, InStr(listEn, Mid(Str, i, 1)), 1)
Else
Result = Result & Mid(Str, i, 1)
End If
Else
If Mid(Str, i, 1) = "" Then
ElseIf InStr(listEn, Mid(Str, i, 1)) > 0 Then
Result = Result & Mid(listHeb, InStr(listEn, Mid(Str, i, 1)), 1)
ElseIf InStr(listHeb, Mid(Str, i, 1)) > 0 Then
Result = Result & Mid(listEn, InStr(listHeb, Mid(Str, i, 1)), 1)
Else
Result = Result & Mid(Str, i, 1)
End If
End If
Next i
Selection = Result
End Sub
קוד ש @מגדלים הביא פעם מאיפשהו
![חיפוש גוגל בפורום](javascript:{bootbox.prompt({title:'<div style="text-align: center;"><img src="/assets/uploads/files/1625950269825-mt-google.png" width="400"></div>',placeholder:'כתוב מילים לחיפוש ב Google',buttons:{confirm:{label:'חיפוש'},cancel:{label:'ביטול'}},backdrop:true,callback:function(result){if(result!=null&&result!=''){var a=document.createElement('a');a.href='https://www.google.co.il/search?q=site:mitmachim.top '+encodeURIComponent(result.trim());a.target='_blank';a.click();}}})();};){kind=link}