תחומים - פורום חרדי מקצועי

וכשתרצו להחליף בו זמנית מילים קבועים מראש, מספר מילים (דהיינו "או או") למילה אחת תשתמשו עם זה:

Sub החלפת_כמה_מילים_למילה_אחת()
' ."פורסם על ידי מלאכת מחשבת ב"תחומים
' .הובא על ידי מגדלים 
arrFind = Array("א", "ב")


For f = 0 To UBound(arrFind)
    Selection.Find.Text = arrFind(f)
    Selection.Find.Replacement.Text = "להחליף_ב"
    Selection.Find.Wrap = wdFindContinue
    Selection.Find.Execute Replace:=wdReplaceAll
Next
End Sub

וכנ"ל להוסיף ולשנות למילים הנצרכים...
בהצלחה רבה.

וכשתרצו להחליף מספר מילים קבועים מראש, (בלי שתצטרכו כל פעם להכניס מילים, להחליף ב-)
תוכלו להשתמש עם פקודה זו:

Sub החלף_מילים_קבועים_מראש()
' ."פורסם על ידי מלאכת מחשבת ב"תחומים
' .הובא על ידי מגדלים 
arrFind = Array("א", "ב")
arrReplace = Array("א_להחליף_ב", "ב_להחליף_ב ")
For f = 0 To UBound(arrFind)
    Selection.Find.Text = arrFind(f)
    Selection.Find.Replacement.Text = arrReplace(f)
    Selection.Find.Wrap = wdFindContinue
    Selection.Find.Execute Replace:=wdReplaceAll
Next
End Sub

להוספת מילים הכניסו מילים וביניהם "," בלולאה וכנגדם בלולאה השניה . כמובן במקום המילים א_להחליף_ב להכניס את המילים הרצויים, ולמחוק מילים אלו.

שלום,
הבאתי קוד להחלפה באמצעות מאקרו כמה מילים בו זמנית , דהיינו "או או"... קרדיט לניק מגדלים במתמחים.
הוראות: כשתפעילו את המאקרו יקפוץ לכם תיבת דו שיח שבו תכניסו את כל המילים שתרצו להחליף עם פסיק בין מילה למילה ובהחלף ג"כ עם פסיק בין מילה למילה, ובהצלחה.

Sub החלפת_כמה_מילים_בו_זמנית()
' הובא על ידי מגדלים
' פורסם ע"י מלאכת מחשבת, ב"תחומים"
'Update by ExtendOffice 2018/10/25
    Dim xFind As String
    Dim xReplace As String
    Dim xFindArr, xReplaceArr
    Dim I As Long
    Application.ScreenUpdating = False
    xFind = InputBox(":הזן פריטים שיימצאו כאן, מופרדים באמצעות פסיק ", "!חפש כמה מילים בו זמנית")
    xReplace = InputBox("הזן המילים שאתה רוצה לקבל בתמורתן, (מופרדים (.באמצעות פסיק ", "-החלף ב")
    xFindArr = Split(xFind, ",")
    xReplaceArr = Split(xReplace, ",")
    If UBound(xFindArr) <> UBound(xReplaceArr) Then
        MsgBox "Find and replace characters must be equal.", vbInformation, "Kutools for Word"
        Exit Sub
    End If
    For I = 0 To UBound(xFindArr)
        Selection.HomeKey Unit:=wdStory
        With Selection.Find
            .ClearFormatting
            .Replacement.ClearFormatting
            .Text = xFindArr(I)
            .Replacement.Text = xReplaceArr(I)
            .Format = False
            .MatchWholeWord = False
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
    Next
    Application.ScreenUpdating = True
End Sub

העורכים בוורד נתקלים הרבה פעמים בהצורך להשתיל קוד מסוים לפני ואחרי הסוגריים, ומה שאפשרי בעצם לעשות ע"י חיפוש והחלפה סטנדרטי היא חפש (\(*\)) החלף ב@1\1@2 וכדומה, [אפשר גם כך \(*\) החלף ב @1^&@2 וכו' וכו' ]אבל הרבה פעמים נתקלים למצב שיש סוגריים בתוך סוגריים ...
ובעצם למצב חד פעמי אפשר פשוט להחליף קודם את הסוגר הפנימי ע"י חיפוש (\([!\)]@)\( (קרדיט ל @YOSSIZ ) ולהחליף את הסוגריים השניים לכל תו אחרת ואז להשתיל את הקודים ולהחליף בחזרה, דהיינו החלף ב\1{.
מאחר דאני נצרך לזה הרבה ואני סובר שיהיה מזה תועלת לעוד הרבה אביא לכאן מאקרו שיעזור בנושא דידן, + אפשרות של שינוי צבע הטקסט שבסוגריים והיינו ע"י הורדת הגרש בשורה המסומנת, + וכן אפשרות להקטנת גודל הגופן ב2 (אפשר להחליף לגודל הרצוי) נקודות ע"י הסרת הגרש בתחילת השורה המתאימה כמסומן.

Sub השתלת_קידודים_לסוגריים()
Application.ScreenUpdating = False
again:
If Selection.Find.Execute(findText:="\(*\)", MatchWildcards:=True, Wrap:=wdFindStop) = True Then
    strt = 2: lent = Len(Selection.Text)
re:
     For i = strt To lent
        If Mid(Selection.Text, i, 1) = Chr(40) Then
        Selection.Extend Character:=Chr(41)
        strt = i + 1: lent = Len(Selection.Text)
        GoTo re
        End If
     Next
With Selection
' שורת הקוד, אפשר להחליף באיזה קודים שתרצו
.InsertBefore "@00": .InsertAfter "@01"
' שורת הקטנת גודל הגופן (ב-2)
'.Font.SizeBi = .Font.SizeBi - 2
'שורת הצבע
'.Font.Color = wdColorBlue
.Collapse (wdCollapseEnd)
End With
GoTo again
End If
Application.ScreenUpdating = True
End Sub

קרדיט ל @צורת-הדף (פרוג) .
ול @מגדלים .
בהצלחה.

@חינמי אז מה כן?

@dovid לאחר ששאלתי את זה פה , החלטתי לפתוח לזה נושא חדש למנוע שרשורים מיותרים... וע"כ העתקתי לשם את הנושא...
ורק בגלל לא לרכוב על נושא קיים!!!
סליחה.

@מלא אמר בעזרה בהכנסת מרכאות במלל במאקרו:

@מלאכת-מחשבת
פעמיים מרכאות ככה "לע""נ"

אבל זה מופיע לי במאקרו כאילו יש מלל לאחר שהוא גמר...
@אוריי אמר בעזרה בהכנסת מרכאות במלל במאקרו:

@מלאכת-מחשבת
או פעמיים גרש (')

האם גם סוגריים?

יש לי מאקרו שאני רוצה להכניס על ידו בהרבה טקסטים מלל ואני מסתבך עם המרכאות שבתוך המרכאות , איך אוכל להכניס מרכאות כזה " למאקרו?
לדוגמא

Selection.TypeText Text:="לעי"נ האשה החשובה... נלב"ע ...."

@הללוהו אמר באפשרות מובנית בוורד לצילום מסך ויצוא תמונה.:

@משה-פרוכטר צודק...
לפחות דרך לגישה מהירה..

גם אמת...

וייצוא אפשר כבכל וורד ע"י לחיצה 'ימנית' באמצעות העכבר ובחירה על "שמור כתמונה" ובהצלחה.
נ.ב. ה"צילום מסך" מביא שתי אופציות או לצלם באמצעות העכבר כבכל צילום מסך וזה באמצעות "גזירת מסך" או בוחר ומצלם תיקיות פתוחות ע"י "חלונות זמינים"...
בהצלחה.

וכן אפשרות כנ"ל להוספה לרצועת הכלים לגישה מהירה בוורד (למעלה, כבתמונה),
ע"י הכניסה כנ"ל רק במקום להתאמה אישית כו' להיכנס ל"סרגל כלים לגישה מהירה"...

שלום רב!
ראיתי שהרבה לא יודעים מהאפשרות המובנית בוורד של הוספת פונקציה של צילום מסך אז הבאתי כאן למי שלא מתמצא הוראות ברורות.
תיכנס לקובץ > אפשרויות > התאמה אישית של רצועת הכלים > בכרטיסיות ראשיות, הוסף 'קבוצה חדשה' > בבחר פקודות מתוך לסמן 'כל הפקודות' >בפקודות שמתחת המוצגות (לפי א-ב) בחר ב'צילום מסך' >'הוסף'>"אישור".
בהצלחה.