עזרה | קוד להסרת ' או " לפי התאמה אישית
-
@אוריי כתב בעזרה | קוד להסרת ' או " לפי התאמה אישית:
@pcinfogmach
אתה יכול לשלוח לי את הקוד המעודכן?בבקשה:
(לא לשכוח להגדיר את הקיצורי דרך עיין ספויילר)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
תודה רבה הקוד שלך עוזר לי המון הוא פשוט מקל בהרבה מהעבודה שהייתה מקודם