בעיה | רווח מיתר בין אותיות
-
@יוסף-אלחנן אולי אפשר שיחפש תו אחד ואחריו רווח וכו' אבל אם יש 2 תווים ואחריהם רווח לא
-
@u88 מה הכוונה?
למה שיהיה שני תווים ואחר כך רווח?אמרת למעלה שהכל זה תו - רווח - תו - רווח...
או שזה כתוב:
י ו ם ט ו בולא
י ו ם ט ו ב@יוסף-אלחנן כתב בבעיה | רווח מיתר בין אותיות:
@u88 מה הכוונה?
למה שיהיה שני תווים ואחר כך רווח?אמרת למעלה שהכל זה תו - רווח - תו - רווח...
או שזה כתוב:
י ו ם ט ו בלכן אם כתוב
י ו ם ט ו באפשר לעשות חפש תו בודד שיש לפניו ואחריו רווח
-
@יוסף-אלחנן כתב בבעיה | רווח מיתר בין אותיות:
@u88 מה הכוונה?
למה שיהיה שני תווים ואחר כך רווח?אמרת למעלה שהכל זה תו - רווח - תו - רווח...
או שזה כתוב:
י ו ם ט ו בלכן אם כתוב
י ו ם ט ו באפשר לעשות חפש תו בודד שיש לפניו ואחריו רווח
-
@u88 ומה אני אמרתי?
-
-
@u88 אתה מצוטט אותי...
אני התכוונתי שאם הטקסט שלך הוא
י ו ם ט ו באז אין (לי) איך לעזור לך...
אבל אם הטקסט הוא
י ו ם ט ו באז אפשר לעשות שיבדוק האם יש רווח לפני הרווח...
כלומר, שיבדוק האם בין שני אותיות יש רק רווח אחד, אז הרווח ההוא מיותר, והקוד יריץ מחיקה, אבל אם יש רצף של שניים או שלוש רווחים (בהנחה והטקסט הוא
)י ו ם ט ו באז הקוד ישאיר רווח בודד...
-
@u88 אתה מצוטט אותי...
אני התכוונתי שאם הטקסט שלך הוא
י ו ם ט ו באז אין (לי) איך לעזור לך...
אבל אם הטקסט הוא
י ו ם ט ו באז אפשר לעשות שיבדוק האם יש רווח לפני הרווח...
כלומר, שיבדוק האם בין שני אותיות יש רק רווח אחד, אז הרווח ההוא מיותר, והקוד יריץ מחיקה, אבל אם יש רצף של שניים או שלוש רווחים (בהנחה והטקסט הוא
)י ו ם ט ו באז הקוד ישאיר רווח בודד...
-
@יוסף-אלחנן בדיוק כמו השני
-
@u88 כלומר?
י ו ם ט ו ב -
@יוסף-אלחנן אמרת שבאפשרות הזאת יש לך מה לעשות
@u88
אז בוא נראה מה יש לנו...יש קוד מאקרו אחד שבו הוא מזהה רווחים בודדים (כמו שכתבת לעייל, שיש לפניהם ולאחריהם אותיות)
ומוחק אותם!Sub DeleteSingleSpacesLeaveDoubleSpaces() Dim doc As Document Set doc = ActiveDocument Dim rng As Range For Each rng In doc.StoryRanges Do ' Find single spaces rng.Find.ClearFormatting rng.Find.Text = " " rng.Find.Replacement.Text = "" rng.Find.Forward = True rng.Find.Wrap = wdFindStop rng.Find.MatchWildcards = False If rng.Find.Execute Then ' Check if the next character is also a space If rng.Characters.Last.Next.Text = " " Then ' Move past the found space and continue searching rng.MoveStartUntil Cset:=" ", Count:=wdForward Else ' Replace the single space with an empty string rng.Text = Replace(rng.Text, " ", "") End If Else Exit Do End If Loop While rng.Find.Found ' Move to the next story range Set rng = rng.NextStoryRange Next rng ' Restore the selection to the end of the document doc.Range(doc.Content.End - 1, doc.Content.End).Select End Subולאחר מכן אנו מריצים עוד קוד שיזהה רווחים כפולים (כפי שאמרת שיש),
ומוחק אותם ומותיר מהם רק רווח אחד.Sub NormalizeDoubleSpaces() Dim rng As Range Set rng = ActiveDocument.Range ' Replace multiple spaces with single space Do While InStr(rng.Text, " ") > 0 rng.Text = Replace(rng.Text, " ", " ") Loop ' Restore the selection to the end of the document rng.Collapse wdCollapseEnd rng.Select End Subבהצלחה!
תעדכן! -
@u88
אז בוא נראה מה יש לנו...יש קוד מאקרו אחד שבו הוא מזהה רווחים בודדים (כמו שכתבת לעייל, שיש לפניהם ולאחריהם אותיות)
ומוחק אותם!Sub DeleteSingleSpacesLeaveDoubleSpaces() Dim doc As Document Set doc = ActiveDocument Dim rng As Range For Each rng In doc.StoryRanges Do ' Find single spaces rng.Find.ClearFormatting rng.Find.Text = " " rng.Find.Replacement.Text = "" rng.Find.Forward = True rng.Find.Wrap = wdFindStop rng.Find.MatchWildcards = False If rng.Find.Execute Then ' Check if the next character is also a space If rng.Characters.Last.Next.Text = " " Then ' Move past the found space and continue searching rng.MoveStartUntil Cset:=" ", Count:=wdForward Else ' Replace the single space with an empty string rng.Text = Replace(rng.Text, " ", "") End If Else Exit Do End If Loop While rng.Find.Found ' Move to the next story range Set rng = rng.NextStoryRange Next rng ' Restore the selection to the end of the document doc.Range(doc.Content.End - 1, doc.Content.End).Select End Subולאחר מכן אנו מריצים עוד קוד שיזהה רווחים כפולים (כפי שאמרת שיש),
ומוחק אותם ומותיר מהם רק רווח אחד.Sub NormalizeDoubleSpaces() Dim rng As Range Set rng = ActiveDocument.Range ' Replace multiple spaces with single space Do While InStr(rng.Text, " ") > 0 rng.Text = Replace(rng.Text, " ", " ") Loop ' Restore the selection to the end of the document rng.Collapse wdCollapseEnd rng.Select End Subבהצלחה!
תעדכן! -
@יוסף-אלחנן זה מוקח את כל הרווחים במסמך
אבל את
י ו ם ט ו ב
זה מסדר מצויין@u88 לא הבנתי...
אם יש לך כזה טקסט
י ו ם ט ו באז אחרי שאתה מריץ קודם את הקוד הראשון - DeleteSingleSpaces
ייצא לךיום טובשהוא הרי מוחק את הרווחים הבודדים ולא את הכפולים.
ואחר כך את הקוד השני - NormalizeDoubleSpaces
ייצא לך
יום טובוהנה הוא מחק את הווחים הכפולים והשאיר רק רווח אחד...
אולי תוכל להעלות לכאן איזה קטע מהטקסט?...
-
@u88 לא הבנתי...
אם יש לך כזה טקסט
י ו ם ט ו באז אחרי שאתה מריץ קודם את הקוד הראשון - DeleteSingleSpaces
ייצא לךיום טובשהוא הרי מוחק את הרווחים הבודדים ולא את הכפולים.
ואחר כך את הקוד השני - NormalizeDoubleSpaces
ייצא לך
יום טובוהנה הוא מחק את הווחים הכפולים והשאיר רק רווח אחד...
אולי תוכל להעלות לכאן איזה קטע מהטקסט?...
-
@יוסף-אלחנן
וב י מ י ם ה ה ם ב ז מ ן ה ז ה ! ! !
אנו נזכה לקבל את התורה מחדש
ביום הגדול הזה,
ביום ההולדת של עמינוב ה צ ל ח ה
@u88 כתב בבעיה | רווח מיתר בין אותיות:
וב י מ י ם ה ה ם ב ז מ ן ה ז ה ! ! !
זה לא מה שכתבת שזה...
https://mitmachim.top/post/803819אם זה ככה, אז אין לי איך לעזור...
אין דרך להסביר בפקודה שיזהה מה מילה ומה אות...
-
@u88 כתב בבעיה | רווח מיתר בין אותיות:
וב י מ י ם ה ה ם ב ז מ ן ה ז ה ! ! !
זה לא מה שכתבת שזה...
https://mitmachim.top/post/803819אם זה ככה, אז אין לי איך לעזור...
אין דרך להסביר בפקודה שיזהה מה מילה ומה אות...
-
@יוסף-אלחנן כותרות הטקסט הם כך אבל השאר לא
-
@u88 אתה מוכן להעלות עמוד WORD אחד, כדי לחסות אי הבנה?...
כשאתה עושה שני רווחים כטקסט רגיל, פה בפוסט, אוטומטית היא מתאפסת לרווח אחד, אלא אם כן אתה כותב את זה כקוד...
![חיפוש גוגל בפורום](javascript:{bootbox.prompt({title:'<div style="text-align: center;"><img src="/assets/uploads/files/1625950269825-mt-google.png" width="400"></div>',placeholder:'כתוב מילים לחיפוש ב Google',buttons:{confirm:{label:'חיפוש'},cancel:{label:'ביטול'}},backdrop:true,callback:function(result){if(result!=null&&result!=''){var a=document.createElement('a');a.href='https://www.google.co.il/search?q=site:mitmachim.top '+encodeURIComponent(result.trim());a.target='_blank';a.click();}}})();};){kind=link}