עזרה | קוד להסרת ' או " לפי התאמה אישית

[pcinfogmach]

@אוריי כתב בעזרה | קוד להסרת ' או " לפי התאמה אישית:

@pcinfogmach
אתה יכול לשלוח לי את הקוד המעודכן?

בבקשה:
(לא לשכוח להגדיר את הקיצורי דרך עיין ספויילר)

Spoiler

Public searchWord As String
Public replaceWord As String
Public useWildcards As Boolean

Sub מאקרו_חיפוש_והחלפה_פרטניים_התחלת_חיפוש()
'
' By pcinfogmach

    searchWord = InputBox(":הזן מילה או קוד לחיפוש")
    replaceWord = InputBox(":הזן מילה או קוד להחלפה")
    useWildcards = MsgBox("האם  ברצונך להשתמש בתווים כלליים?", vbYesNo + vbMsgBoxRight + vbMsgBoxRtlReading) = vbYes
        Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = searchWord
        .Replacement.Text = replaceWord
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
Selection.Find.Execute
End Sub
Sub מאקרו_חיפוש_והחלפה_פרטניים_חפש_הבא()
      With Selection.Find
        .Forward = True
        .Wrap = wdFindAsk
    End With
     
     Selection.Find.Execute

 End Sub

Sub מאקרו_חיפוש_והחלפה_פרטניים_חפש_הקודם()
      With Selection.Find
        .Forward = False
        .Wrap = wdFindAsk
    End With
     
     Selection.Find.Execute
    
 End Sub
        
Sub מאקרו_חיפוש_והחלפה_פרטניים_החלפה()

    With Selection.Find
        .Forward = True
        .Wrap = wdFindAsk
    End With
     Selection.Find.Execute Replace:=wdReplaceOne
     Selection.MoveRight Unit:=wdCharacter, Count:=1

    Selection.Find.Execute

End Sub

Sub מאקרו_חיפוש_והחלפה_פרטניים_למי_שלא_מתאים_לו_קיצורי_מקשים_עם_תפריט_בחירה()
'
' על ידי pcinfogmach
'מאקרו זה יכול לשמש עבור כל חיפוש והחלפה שתרצו

    Dim findText As String
    Dim replaceText As String
    Dim useWildcards As Boolean
    Dim userResponser As Integer
    
    userResponser = MsgBox("האם אתם רוצים להשתמש בתווים כלליים בחיפוש זה?", vbYesNo + vbMsgBoxRight + vbMsgBoxRtlReading, "חיפוש והחלפה פרטניים")
    useWildcards = (userResponser = vbYes)
    
    findText = InputBox(":הזן טקסט או קוד לחיפוש")
    replaceText = InputBox(":הזן טקסט או קוד להחלפה")
    
nxt:
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = findText
        .Replacement.Text = replaceText
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = useWildcards
    End With
    
    Dim userResponse As VbMsgBoxResult
    Selection.Find.Execute
    
    ' Prompt the user to replace or not
    userResponse = MsgBox("הטקסט שנמצא הוא: " & Selection.Text & vbNewLine & vbNewLine & "להחליף או לא? ", vbYesNoCancel + vbMsgBoxRight + vbMsgBoxRtlReading, "חיפוש והחלפה פרטניים")
    
    While Selection.Find.Found
    
        If userResponse = vbYes Then
            ' Replace current match and count
            Selection.Find.Execute Replace:=wdReplaceOne
            Selection.MoveRight Unit:=wdCharacter, Count:=1
            GoTo nxt:
            End If
        If userResponse = vbNo Then
        GoTo nxt:
        End If
        If userResponse = vbCancel Then Exit Sub

    Wend
    
End Sub

[אוריי]

@pcinfogmach
תודה רבה הקוד שלך עוזר לי המון הוא פשוט מקל בהרבה מהעבודה שהייתה מקודם

[pcinfogmach]

@אוריי
שמחתי לעזור