- הוסף לסימניות
- #1,521
בזה אני לא כל כך מבין!
בזה אני לא כל כך מבין!
בעבר קיבלתי המלצה מקלדנית, אשמח להעביר הלאהסתם מאד נוח אם אתה נגיד משתמש יותר ב" ופחות ב' אז תחליף אותם בתיקון שגיאות אוטומטי אני לדוגמא אין לי כוח לעשות שיפט לסימן שאלה אז אני עושה פעמיים נקודה זה נהיה סימן שאלה וכן הלאה
נכון מאודבעבר קיבלתי המלצה מקלדנית, אשמח להעביר הלאה
'מומלץ מאוד להתרגל לבצע דברים באופן החוקי שלהם ולא לייצר מעקפים משובשים, אחר כך קשה לשנות הרגלים'
להחליף לסוגריים רגילות, 2 חיפושים והחלפות. חפש { החלף ב- (, ואח"כ חפש } החלף ב-).איך מחליפים סוגרים כאלו בוורד
בָנָֽיו: {ב} וְשֵׁ֣ם
שָֽׁם: {ג} וַיָּ֥מָת
להחליף אותם לסוגריים רגילות
או לשנות להם את הגודל וכו' ...
וכן איך מחליפים סוגרים מרובעות[ ]
מצאתי את זה עכשיו אחר כמה שנים, זה עזר לי אבל לא הוריד את הנקודות מאות ש'
מישהו יודע היאך להוריד את זה?
[^0192-^0204^0209^0210]
Sub הסר־ניקוד־וטעמים()
'
' הסר־ניקוד־וטעמים Macro
'
'
Application.ScreenUpdating = False
'החלפת מקפים ברווח
'With ActiveDocument.Range.Find ' עובד על כל המסמך מעבר לבחירה
Selection.Find.ClearFormatting
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Format = False
.Forward = True
.Wrap = wdFindStop
.Text = ChrW(1470)
.Replacement.Text = " "
End With
Selection.Find.Execute Replace:=wdReplaceAll
' מחיקת ניקוד וטעמים
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Format = False
.Forward = True
.Wrap = wdFindStop
.MatchWildcards = True
.Text = "[" & ChrW(1425) & "-" & ChrW(1475) & ChrW(1479) & "]"
.Replacement.Text = ""
End With
Selection.Find.Execute Replace:=wdReplaceAll
' בדיקת אם יש composed characters
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Format = False
.Forward = True
.Wrap = wdFindStop
.MatchWildcards = True
.MatchDiacritics = True
.Text = "[" & ChrW(64285) & "-" & ChrW(64334) & "]"
End With
If Selection.Find.Found = True Then
'טיפול בי חירק
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Format = False
.Forward = True
.Wrap = wdFindStop
.MatchDiacritics = True
.Text = ChrW(64285)
.Replacement.Text = "י"
End With
Selection.Find.Execute Replace:=wdReplaceAll
'טיפול בש מורכב מכל הסוגים
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Format = False
.Forward = True
.Wrap = wdFindStop
.MatchWildcards = True
.MatchDiacritics = True
.Text = "[" & ChrW(64298) & "-" & ChrW(64301) & "]"
.Replacement.Text = "ש"
End With
Selection.Find.Execute Replace:=wdReplaceAll
' טיפול בשלושה סוגי א
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Format = False
.Forward = True
.Wrap = wdFindStop
.MatchWildcards = True
.MatchDiacritics = True
.Text = "[" & ChrW(64302) & "-" & ChrW(64304) & "]"
.Replacement.Text = "א"
End With
Selection.Find.Execute Replace:=wdReplaceAll
' טיפול באותיות מורכבות עם דגש
Dim i As Integer
For i = 1489 To 1514
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Format = False
.Forward = True
.Wrap = wdFindStop
.MatchDiacritics = True
.Text = ChrW(i + 62816)
.Replacement.Text = ChrW(i)
End With
Selection.Find.Execute Replace:=wdReplaceAll
Next i
' טיפול בו׳ עם חולם
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Format = False
.Forward = True
.Wrap = wdFindStop
.MatchDiacritics = True
.Text = ChrW(64331)
.Replacement.Text = "ו"
End With
Selection.Find.Execute Replace:=wdReplaceAll
End If
Application.ScreenUpdating = True
End Sub
Sub הסרת_טעמים_וניקוד_מהמסמך_ומקטע_נבחר()
Application.ScreenUpdating = False
With Selection.Find
.ClearFormatting: .Replacement.ClearFormatting
' בשביל למחוק רק טעמים: להפחית ל-1455
For i = 1425 To 1479
.Execute findText:=ChrW(i), ReplaceWith:="", Forward:=True, Wrap:=wdFindStop, MatchWildcards:=True, Replace:=wdReplaceAll
Next
End With
End Sub
.Text = "[" & ChrW(1425) & "-" & ChrW(1479) & "]"
For i = 1425 To 1479
findText:=ChrW(i),
Next
אתה צודק, אבל אני התכוונתי לכותב שבטקסט פשוט שאינו מורכב אפשר להשתמש בקוד קצר...נסה לעשות העתק הדבק מהפסוק הבא (מההודעה הזאת כמובן, לא להעתיק ממקור אחר) ולבדוק מה המאקרו שלך יעשה: וְהַנּוֹתָ֖ר מִבְּשַׂ֣ר הַזָּ֑בַח בַּיּוֹם֙ הַשְּׁלִישִׁ֔י בָּאֵ֖שׁ יִשָּׂרֵֽף . (הפסוק הזה מכיל גם ש ימנית גם ש שמאלית, ושתיהן גם דגושות וגם רפויות, וגם חולם מלא וגם דגשים).
מחילה לא זו הייתה הכוונה, תודה על העדכון...צר לי שאני משקיע זמן לכתוב ואחרים מיד משקיעים הרבה זמן להגיב (כולל וידאו) אבל לא משקיעים זמן לקרוא את מה שכתבתי.
אתה באמת צודק אפילו לא בדקתי אחרי שראיתי שאצלי זה עובד כרגיל, לפעמים יש נמהרות להשיב על דבר שיש לך בו מעט ניסיון אע"פ שלא בדקת קודם אם אתה באמת 100% צודק...האם ניסית לעשות העתק הדבק משני הביתים הדגושות שכתבתי ולבדוק האם המאקרו שלך מוריד מהם הדגשים? (ברור שלא, וברור שהתוצאה היתה שלראשונה לא היה קורה דבר).
rhon.co.il
מעכשיו, תהיו הראשונים לקבל את כל העדכונים, החדשות, ההפתעות בלעדיות, והתכנים הכי חמים שלנו בפרוג!
חלה שגיאה בשליחה. נסו שוב!
לוח לימודים
מסלולי לימוד שאפשר להצטרף
אליהם ממש עכשיו:
תהילים פרק כה
אלְדָוִד אֵלֶיךָ יי נַפְשִׁי אֶשָּׂא:באֱלֹהַי בְּךָ בָטַחְתִּי אַל אֵבוֹשָׁה אַל יַעַלְצוּ אֹיְבַי לִי:גגַּם כָּל קוֶֹיךָ לֹא יֵבֹשׁוּ יֵבֹשׁוּ הַבּוֹגְדִים רֵיקָם:דדְּרָכֶיךָ יי הוֹדִיעֵנִי אֹרְחוֹתֶיךָ לַמְּדֵנִי:ההַדְרִיכֵנִי בַאֲמִתֶּךָ וְלַמְּדֵנִי כִּי אַתָּה אֱלֹהֵי יִשְׁעִי אוֹתְךָ קִוִּיתִי כָּל הַיּוֹם:וזְכֹר רַחֲמֶיךָ יי וַחֲסָדֶיךָ כִּי מֵעוֹלָם הֵמָּה:זחַטֹּאות נְעוּרַי וּפְשָׁעַי אַל תִּזְכֹּר כְּחַסְדְּךָ זְכָר לִי אַתָּה לְמַעַן טוּבְךָ יי:חטוֹב וְיָשָׁר יי עַל כֵּן יוֹרֶה חַטָּאִים בַּדָּרֶךְ:טיַדְרֵךְ עֲנָוִים בַּמִּשְׁפָּט וִילַמֵּד עֲנָוִים דַּרְכּוֹ:יכָּל אָרְחוֹת יי חֶסֶד וֶאֱמֶת לְנֹצְרֵי בְרִיתוֹ וְעֵדֹתָיו:יאלְמַעַן שִׁמְךָ יי וְסָלַחְתָּ לַעֲוֹנִי כִּי רַב הוּא:יבמִי זֶה הָאִישׁ יְרֵא יי יוֹרֶנּוּ בְּדֶרֶךְ יִבְחָר:יגנַפְשׁוֹ בְּטוֹב תָּלִין וְזַרְעוֹ יִירַשׁ אָרֶץ:ידסוֹד יי לִירֵאָיו וּבְרִיתוֹ לְהוֹדִיעָם:טועֵינַי תָּמִיד אֶל יי כִּי הוּא יוֹצִיא מֵרֶשֶׁת רַגְלָי:טזפְּנֵה אֵלַי וְחָנֵּנִי כִּי יָחִיד וְעָנִי אָנִי:יזצָרוֹת לְבָבִי הִרְחִיבוּ מִמְּצוּקוֹתַי הוֹצִיאֵנִי:יחרְאֵה עָנְיִי וַעֲמָלִי וְשָׂא לְכָל חַטֹּאותָי:יטרְאֵה אוֹיְבַי כִּי רָבּוּ וְשִׂנְאַת חָמָס שְׂנֵאוּנִי:כשָׁמְרָה נַפְשִׁי וְהַצִּילֵנִי אַל אֵבוֹשׁ כִּי חָסִיתִי בָךְ:כאתֹּם וָיֹשֶׁר יִצְּרוּנִי כִּי קִוִּיתִיךָ:כבפְּדֵה אֱלֹהִים אֶת יִשְׂרָאֵל מִכֹּל צָרוֹתָיו:
הנושאים החמים