בעיה | רווח מיתר בין אותיות

[יוסף אלחנן]

@u88 ומה אני אמרתי?

[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]

@יוסף-אלחנן זה מוקח את כל הרווחים במסמך
אבל את
י ו ם ט ו ב
זה מסדר מצויין

[יוסף אלחנן]

@u88 לא הבנתי...

אם יש לך כזה טקסט

י ו ם   ט ו ב

אז אחרי שאתה מריץ קודם את הקוד הראשון - DeleteSingleSpaces
ייצא לך

יום   טוב

Spoiler

שהוא הרי מוחק את הרווחים הבודדים ולא את הכפולים.

ואחר כך את הקוד השני - NormalizeDoubleSpaces

ייצא לך

יום טוב

והנה הוא מחק את הווחים הכפולים והשאיר רק רווח אחד...

אולי תוכל להעלות לכאן איזה קטע מהטקסט?...

[u88]

@יוסף-אלחנן
וב י מ י ם ה ה ם ב ז מ ן ה ז ה ! ! !
אנו נזכה לקבל את התורה מחדש
ביום הגדול הזה,
ביום ההולדת של עמינו

ב ה צ ל ח ה

[יוסף אלחנן]

@u88 כתב בבעיה | רווח מיתר בין אותיות:

וב י מ י ם ה ה ם ב ז מ ן ה ז ה ! ! !

זה לא מה שכתבת שזה...
https://mitmachim.top/post/803819

אם זה ככה, אז אין לי איך לעזור...

אין דרך להסביר בפקודה שיזהה מה מילה ומה אות...

[u88]

@יוסף-אלחנן כותרות הטקסט הם כך אבל השאר לא

[יוסף אלחנן]

@u88 אתה מוכן להעלות עמוד WORD אחד, כדי לחסות אי הבנה?...

Spoiler

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

[u88]

@יוסף-אלחנן ב ה צ ל ח ה.docx

[יוסף אלחנן]

@u88 אני רואה רק שורה אחת שכתובה ככה...

ואת זה אתה יכול לתקן כמו שכתבתי לעייל, בסעייתא דישמיא!
תדגיש רק את השורה הזו, Alt + f8 ותבחר לפי הראשון ואחר כך שוב פעם ותבחר את השני...

לי זה עבד...