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

חיוכון

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

5127109

מהמשתמשים המובילים!
עיצוב גרפי
עימוד ספרים
(אבא)|(יוסי)|(שרוליק)

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

חיוכון

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

סמינר דוד

משתמש מקצוען
(אבא)|(יוסי)|(שרוליק)

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

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

חיוכון

משתמש מקצוען
עיצוב גרפי
לא הבנתי
מעלה צילו"מ
מה צריך לעשות עוד ?
 

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

  • 2019-06-11_175014.png
    2019-06-11_175014.png
    KB 11.3 · צפיות: 100

שיקול דעת

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

חיוכון

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

שיקול דעת

משתמש סופר מקצוען
מנוי פרימיום
בוגר/תלמיד פרוג
עיצוב גרפי
עריכה תורנית
עימוד ספרים
אם בנטפרי פתוח אני מאמין שגם בנתיב יפתחו את זה.
אי אפשר לשנות חוץ מהמלל (רק מי ששולט בקודי 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
 

יוסי 5

משתמש חדש
אני רוצה לנקד את הטקסט שלי, ולשם כך אני משתמש בדיקטה (https://nakdanpro.dicta.org.il/#)
הבעיה שהאתר הזה הורס לי את כל העיצובים של הטקסט, לדוגמא את כל הבולדים.
האם אני יכול בהוראת החלפה אחת, לגרום לכך שליד תחילת וסוף כל משפט בבולד, יופיע תו כלשהו, ואח"כ שאחזיר לוורד את הטקסט אחזיר אותו לבולד??
 

Rרחמים

משתמש סופר מקצוען
עיצוב גרפי
איור וציור מקצועי
מוזיקה ונגינה
עריכה תורנית
D I G I T A L
עימוד ספרים
אני רוצה לנקד את הטקסט שלי, ולשם כך אני משתמש בדיקטה (https://nakdanpro.dicta.org.il/#)
הבעיה שהאתר הזה הורס לי את כל העיצובים של הטקסט, לדוגמא את כל הבולדים.
האם אני יכול בהוראת החלפה אחת, לגרום לכך שליד תחילת וסוף כל משפט בבולד, יופיע תו כלשהו, ואח"כ שאחזיר לוורד את הטקסט אחזיר אותו לבולד??
חפש עיצוב מודגש,
והחלף ב: @01^&@02
יתן לך קוד @01 לפני המודגש, וקוד @02 אחרי המודגש
 

Rרחמים

משתמש סופר מקצוען
עיצוב גרפי
איור וציור מקצועי
מוזיקה ונגינה
עריכה תורנית
D I G I T A L
עימוד ספרים
תודה! לזה היו לי פתרונות. השאלה היא איך חוזרים ומדגישים את כל המילים שיש סביבם את הקודים הללו??
חפש עם תוים כללים: \@01[!\@]@\@02
החלף ב: עיצוב מודגש
 

בן מיכאל

משתמש מקצוען
עריכה תורנית
אם בנטפרי פתוח אני מאמין שגם בנתיב יפתחו את זה.
אי אפשר לשנות חוץ מהמלל (רק מי ששולט בקודי 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
מחילה על ההקפצה, העתקתי את המאקרו ולא נפתח לי שום חלון.
 

אולי מעניין אותך גם...

הפרק היומי

הפרק היומי! כל ערב פרק תהילים חדש. הצטרפו אלינו לקריאת תהילים משותפת!


תהילים פרק קיט ב'

ט בַּמֶּה יְזַכֶּה נַּעַר אֶת אָרְחוֹ לִשְׁמֹר כִּדְבָרֶךָ:י בְּכָל לִבִּי דְרַשְׁתִּיךָ אַל תַּשְׁגֵּנִי מִמִּצְוֹתֶיךָ:יא בְּלִבִּי צָפַנְתִּי אִמְרָתֶךָ לְמַעַן לֹא אֶחֱטָא לָךְ:יב בָּרוּךְ אַתָּה יְהוָה לַמְּדֵנִי חֻקֶּיךָ:יג בִּשְׂפָתַי סִפַּרְתִּי כֹּל מִשְׁפְּטֵי פִיךָ:יד בְּדֶרֶךְ עֵדְוֹתֶיךָ שַׂשְׂתִּי כְּעַל כָּל הוֹן:טו בְּפִקֻּדֶיךָ אָשִׂיחָה וְאַבִּיטָה אֹרְחֹתֶיךָ:טז בְּחֻקֹּתֶיךָ אֶשְׁתַּעֲשָׁע לֹא אֶשְׁכַּח דְּבָרֶךָ:
נקרא  9  פעמים

לוח מודעות

למעלה