יש אפשרות להחליף רק מילים שלמות. בתוך ההחלפה, יש אופציה של עוד, ובחירה של אפשרויות, לבחור את האפשרות של מילים שלמות.(אבא)|(יוסי)|(שרוליק)
רק תזהר עם זה - כי אם אתה מחליף את דני ביוסי, וכתוב לך דניאלה, זה יהיה יוסיאלה..
יש לי מסמך וורד גדול ואני זקוק להחליף בו כמה מילים.
בוורד?(אבא)|(יוסי)|(שרוליק)
נכון, זה לא בוורד. טעות שלי. סורי.בוורד?
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
חפש עיצוב מודגש,אני רוצה לנקד את הטקסט שלי, ולשם כך אני משתמש בדיקטה (https://nakdanpro.dicta.org.il/#)
הבעיה שהאתר הזה הורס לי את כל העיצובים של הטקסט, לדוגמא את כל הבולדים.
האם אני יכול בהוראת החלפה אחת, לגרום לכך שליד תחילת וסוף כל משפט בבולד, יופיע תו כלשהו, ואח"כ שאחזיר לוורד את הטקסט אחזיר אותו לבולד??
תודה! לזה היו לי פתרונות. השאלה היא איך חוזרים ומדגישים את כל המילים שיש סביבם את הקודים הללו??
חפש עם תוים כללים: \@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
לוח לימודים
מסלולי לימוד שאפשר לההצטרף
אליהם ממש עכשיו:
2.04
כ"ג אדר ב'
השקה חגיגית
חדש בפרוג
קורס חדשנות AI ובינה מלאכותית
14 שיעורים מפוצצים תוכן על כלי הAI השונים ליצירת תמונות וויז'ואל, עריכת וידאו ומושן, כתיבה ורעיונות, אפיון ועיצוב אתרים ועוד המון!
ההרשמה נפתחה!
20.03
י' אדר ב'
פתיחת מסלול
עיצוב ואדריכלות פנים
מלגות גבוהות!
26.03
טז' אדר ב'
פתיחת מסלול
מאסטר בשיווק דיגיטלי
מלגות גבוהות!
8.05
ל' ניסן
פתיחת מסלול
אוטומציות עסקיות, בוטים והטמעת מערכות מידע
מלגות גבוהות!
9.05
א' אייר
ירושלמי?
יש לנו מלגה מטורפת עבורך! קורס במימון כמעט מלא!!
אוטומציות עסקיות, בוטים והטמעת מערכות מידע
ההרשמה בעיצומה
28.05
כ' אייר
פתיחת מסלול מורחב:
פיתוח ובניית אתרים
מלגות גבוהות!
תהילים פרק קיט ב'
ט בַּמֶּה יְזַכֶּה נַּעַר אֶת אָרְחוֹ לִשְׁמֹר כִּדְבָרֶךָ:י בְּכָל לִבִּי דְרַשְׁתִּיךָ אַל תַּשְׁגֵּנִי מִמִּצְוֹתֶיךָ:יא בְּלִבִּי צָפַנְתִּי אִמְרָתֶךָ לְמַעַן לֹא אֶחֱטָא לָךְ:יב בָּרוּךְ אַתָּה יְהוָה לַמְּדֵנִי חֻקֶּיךָ:יג בִּשְׂפָתַי סִפַּרְתִּי כֹּל מִשְׁפְּטֵי פִיךָ:יד בְּדֶרֶךְ עֵדְוֹתֶיךָ שַׂשְׂתִּי כְּעַל כָּל הוֹן:טו בְּפִקֻּדֶיךָ אָשִׂיחָה וְאַבִּיטָה אֹרְחֹתֶיךָ:טז בְּחֻקֹּתֶיךָ אֶשְׁתַּעֲשָׁע לֹא אֶשְׁכַּח דְּבָרֶךָ: