חיפוש והחלפה בוורד של כמה מילים בו זמנית

הנושא בפורום 'פורום תוכנות מייקרוסופט אופיס' פורסם ע"י חיוכון, ‏10/6/19.

  1. חיוכון

    חיוכון משתמש מקצוען עיצוב גרפי פרסום וקופירייטינג

    הצטרף:
    ‏14/4/10
    הודעות:
    1,478
    תודות :
    254
    נקודות:
    104
    שלום רב
    יש לי מסמך וורד גדול ואני זקוק להחליף בו כמה מילים.
    לדוגמא: בכל מקום שכתוב אבא, חיים, יוסי, שרוליק, יואלי, אני רוצה שיהיה כתוב 'פלוני'.
    האם יש אפשרות לעשות זאת בפקודת החלפה אחת ??
    תודה למשיבים
     
  2. 5127109

    5127109 עימוד ספרים מעמד ספרים עיצוב גרפי

    הצטרף:
    ‏14/7/14
    הודעות:
    2,437
    תודות :
    2,394
    נקודות:
    230
    (אבא)|(יוסי)|(שרוליק)

    רק תזהר עם זה - כי אם אתה מחליף את דני ביוסי, וכתוב לך דניאלה, זה יהיה יוסיאלה..:)
     
    אפר ו-חיוכון מודים על התגובה.
  3. חיוכון

    חיוכון משתמש מקצוען עיצוב גרפי פרסום וקופירייטינג

    הצטרף:
    ‏14/4/10
    הודעות:
    1,478
    תודות :
    254
    נקודות:
    104
    לא מחליף לי.
    מה לא בסדר ?
    האם צריך להגדיר משהו ?
    ניסיתי לסמן וי בהשתמש בתווים כלליים וזה לא עזר
    אשמח להוראות
    תודה
     
  4. סמינר דוד

    סמינר דוד משתמש פעיל

    הצטרף:
    ‏29/12/15
    הודעות:
    296
    תודות :
    724
    נקודות:
    99
    יש אפשרות להחליף רק מילים שלמות. בתוך ההחלפה, יש אופציה של עוד, ובחירה של אפשרויות, לבחור את האפשרות של מילים שלמות.

    והאם האפשרות של החלפת כמה מילים נמצאת בכל האופיס, או רק משנה מסויימת?
     
  5. חיוכון

    חיוכון משתמש מקצוען עיצוב גרפי פרסום וקופירייטינג

    הצטרף:
    ‏14/4/10
    הודעות:
    1,478
    תודות :
    254
    נקודות:
    104
    לא הבנתי
    מעלה צילו"מ
    מה צריך לעשות עוד ?
     

    קבצים מצורפים:

  6. צורת הדף

    צורת הדף עימוד ספרים מעמד ספרים עיצוב גרפי

    הצטרף:
    ‏27/8/07
    הודעות:
    1,497
    תודות :
    234
    נקודות:
    84
    עיסוק:
    מעמד
    מיקום:
    ארצות הברית
    בוורד?
     
    חיוכון מודה על התגובה.
  7. 5127109

    5127109 עימוד ספרים מעמד ספרים עיצוב גרפי

    הצטרף:
    ‏14/7/14
    הודעות:
    2,437
    תודות :
    2,394
    נקודות:
    230
    נכון, זה לא בוורד. טעות שלי. סורי.
     
  8. שיקול דעת

    שיקול דעת משתמש פעיל עורך תורני כתיבה ספרותית

    הצטרף:
    ‏11/2/18
    הודעות:
    394
    תודות :
    348
    נקודות:
    69
    באתר הזה יש מאקרו לעשות את זה.
    לאלו שלא מבינים אני יתרגם בקצרה:
    מעתיקים המאקרו לתוך וורד. כשמריצים המאקרו נפתח חלון שמכניסים שם כל המילים שרוצים להחליף בהפסק פסיק (בלי רווח) > אישור. אח"כ נפתח חלון שני שם מעתיקים את כל ההחלפות בהתאם לסדר הקודם. כלומר, בחלון הראשון אני מעתיק יוסי,שלומי,ברוך,געציל, ובחלון השני אני מעתיק פלוני,פלוני,פלוני,פלוני. לא מספיק לכתוב פעם אחד 'פלוני' לכל הארבע, צריך לכתוב ארבע פעמים.
    יש בזה קצת חסרון, אבל מעלה אחרת, כי אפשר להחליף בו זמנית כמה מילים שרוצים לכמה מילים אחרים, לדוגמה, היום,מחר,השבוע ל-יום שני,אתמול,שבוע שעבר.
     
    TZILUM, אטקטיבי ו-חיוכון מודים על התגובה.
  9. חיוכון

    חיוכון משתמש מקצוען עיצוב גרפי פרסום וקופירייטינג

    הצטרף:
    ‏14/4/10
    הודעות:
    1,478
    תודות :
    254
    נקודות:
    104
    חסום לי בנתיב
    מישהו יכול לעזור לי ?
    יש אפשרות להעלות את המאקרו לכאן ?
    יש אפשרות עם הקוד לשנות רק את העיצוב ?? נניח שאני רוצה להגדיל כמה מילים בו זמנית. יש אפשרות ?
     
  10. שיקול דעת

    שיקול דעת משתמש פעיל עורך תורני כתיבה ספרותית

    הצטרף:
    ‏11/2/18
    הודעות:
    394
    תודות :
    348
    נקודות:
    69
    אם בנטפרי פתוח אני מאמין שגם בנתיב יפתחו את זה.
    אי אפשר לשנות חוץ מהמלל (רק מי ששולט בקודי VBA, יכול מסתמא להוסיף במאקרו שיהא אפשר לשנות גם העיצוב).
    אבל בכל זאת אפשר באמצעתו להוסיף קוד לכל מלה שרוצים למשל להקטין וכדו', ואח"כ באמצעת החפש והחלף המובנה בוורד לשנות העיצוב, ואח"כ למחוק הקוד.
    מועתק המאקרו:
    קוד:
    Sub FindAndReplaceMultiItems()
    '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("Enter items to be found here,seperated by comma: ", "Kutools for Word")
        xReplace = InputBox("Enter new items here, seperated by comma: ", "Kutools for Word")
        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
     
    TZILUM, אטקטיבי ו-חיוכון מודים על התגובה.