יש אפשרות להחליף רק מילים שלמות. בתוך ההחלפה, יש אופציה של עוד, ובחירה של אפשרויות, לבחור את האפשרות של מילים שלמות.(אבא)|(יוסי)|(שרוליק)
רק תזהר עם זה - כי אם אתה מחליף את דני ביוסי, וכתוב לך דניאלה, זה יהיה יוסיאלה..
יש לי מסמך וורד גדול ואני זקוק להחליף בו כמה מילים.
בוורד?(אבא)|(יוסי)|(שרוליק)
נכון, זה לא בוורד. טעות שלי. סורי.בוורד?
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
לוח לימודים
מסלולי לימוד שאפשר לההצטרף
אליהם ממש עכשיו:
8.05
ל' ניסן
פתיחת מסלול
אוטומציות עסקיות, בוטים והטמעת מערכות מידע
מלגות גבוהות!
9.05
א' אייר
הנחת ענק!
ירושלמי?
יש לנו מלגה מטורפת עבורך! קורס במימון כמעט מלא!!
ההרשמה בעיצומה
28.05
כ' אייר
פתיחת מסלול מורחב:
פיתוח ובניית אתרים
מלגות גבוהות!
2.06
כ"ה אייר
פתיחת מסלול
קורס עריכת וידאו
מלגות והנחות משמעותיות!
24.06
י"ח סיוון
פתיחת מסלול
מאסטר בשיווק דיגיטלי
מלגות גבוהות!
27.06
כ"א סיוון
פתיחת מסלול
עיצוב ואדריכלות פנים
מלגות גבוהות!
27.06
כ"א סיוון
השקה חגיגית!
עיצוב גרפי ודיגיטל - בסילבוס חדש ומטורף!
מלגות גבוהות!
7.05
כ"ט ניסן
#רקבפרוג
הרצאה מרתקת:
מלחמה מבעד לעדשה
עם אילן לורנצי
שיתוף מטלטל ומיוחד על צילומים בזמן מלחמה ותיעודים יותאי דופן זווית יוצאת דופן מתוך עזה והעוטף ועד הצפון
לתלמידים ובוגרים בלבד!
תהילים פרק קלג
א שִׁיר הַמַּעֲלוֹת לְדָוִד הִנֵּה מַה טּוֹב וּמַה נָּעִים שֶׁבֶת אַחִים גַּם יָחַד:ב כַּשֶּׁמֶן הַטּוֹב עַל הָרֹאשׁ יֹרֵד עַל הַזָּקָן זְקַן אַהֲרֹן שֶׁיֹּרֵד עַל פִּי מִדּוֹתָיו:ג כְּטַל חֶרְמוֹן שֶׁיֹּרֵד עַל הַרְרֵי צִיּוֹן כִּי שָׁם צִוָּה יְהוָה אֶת הַבְּרָכָה חַיִּים עַד הָעוֹלָם: