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

[חיוכון]

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

 

[5127109]

(אבא)|(יוסי)|(שרוליק)

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

 

[חיוכון]

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

 

[סמינר דוד]

(אבא)|(יוסי)|(שרוליק)

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

יש אפשרות להחליף רק מילים שלמות. בתוך ההחלפה, יש אופציה של עוד, ובחירה של אפשרויות, לבחור את האפשרות של מילים שלמות.

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

 

[חיוכון]

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

 

[צורת הדף]

יש לי מסמך וורד גדול ואני זקוק להחליף בו כמה מילים.

(אבא)|(יוסי)|(שרוליק)

בוורד?

 

[5127109]

בוורד?

נכון, זה לא בוורד. טעות שלי. סורי.

 

[שיקול דעת]

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

 

[חיוכון]

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

 

[שיקול דעת]

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

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

חפש עיצוב מודגש,
והחלף ב: @01^&@02
יתן לך קוד @01 לפני המודגש, וקוד @02 אחרי המודגש

 

[יוסי 5]

חפש עיצוב מודגש,
והחלף ב: @01^&@02
יתן לך קוד @01 לפני המודגש, וקוד @02 אחרי המודגש

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

 

[Rרחמים]

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

חפש עם תוים כללים: \@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

מחילה על ההקפצה, העתקתי את המאקרו ולא נפתח לי שום חלון.