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

u88

יש לי טקסט עם כותרות שמישהוא "חכם" עשה בצורה כזאת
י ו ם ט ו ב
מקווה שאני מובן
יש למישהוא ידע איך אפשר לתקן את הדבר הזה
(אולי החלפה מסויימת עם סגנונות או משהוא כזה )
אשמח לפיתרון
תודה רבה!

YAAKOVSAS

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

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

גופן-מתקדם-מרווח בין תווים.

יוסף אלחנן

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

גופן-מתקדם-מרווח בין תווים.

רק לשים לב שזה לא ימחק את הרווח מבין המילים
זה הרי כתוב ככה:

י ו ם ט ו ב

ולא

י ו ם   ט ו ב

ואם תסיר את המרווח בין התווים, זה יראה ככה

יוםטוב

YAAKOVSAS

@יוסף-אלחנן כתב בבעיה | רווח מיתר בין אותיות:

רק לשים לב שזה לא ימחק את הרווח מבין המילים

ממש לא קשור.
המרווח הנ"ל מתייחס למרווח בין תווים, כשמו, ולא למקש רווח.

יוסף אלחנן

@YAAKOVSAS
כלומר, המרווח לא נעשה על ידי מקש הרווח?

YAAKOVSAS

@יוסף-אלחנן כתב בבעיה | רווח מיתר בין אותיות:

המרווח לא נעשה על ידי מקש הרווח?

אם זה באמת ע"י מקש רווח, אין לי איך לעזור.
אבל אם זה ע"י הגדלת הרווח בין האותיות, כמו בהגדרה הנ"ל אז זה קשור רק למרווח בין אותיות ולא למקש הרווח (לכאורה במקש הרווח זה יהיה יותר רחב).

יוסף אלחנן

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

אבל אם זה ע"י הגדלת הרווח בין האותיות, כמו בהגדרה הנ"ל אז זה קשור רק למרווח בין אותיות ולא למקש הרווח (לכאורה במקש הרווח זה יהיה יותר רחב).

אה, לזה כוונתך, חשבתי שאתה מתכוון להריץ איזה קוד שיסיר את כל הרווחים המיותרים...

u88

@YAAKOVSAS זה באמת רווח בין האותיות כמו מקש רווח
אשמח אם יש פקודת מאקרו למישהוא
כמו @pcinfogmach @מאקרו

יוסף אלחנן

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

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

ואיך הוא יעבוד?
הוא לכאורה ימחק את הרווחים הנצרכים...

ויעשה - יוםטוב...

u88

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

יוסף אלחנן

@u88 אולי, לא כל כך הבנתי מה אפשר לעשות...

אבל בכל אופן, אני לא מתמצא במאקרו.

כך שאני אצפה מהצד, ואחכה למומחים פה...

דוד משה 1

אני לא מבין מה אתה רקוצה שיעשו אפשר לעשות מקרו שימחק את כל התוים של רוח אבל אין מה שיסביר למקרו אופו אתה צריך רווח ואיפו לא (יכול להיות שאפשר גם לעשות שהוא ימחוק את כל הרווחים בכותרות אבל גם שם את הכל וגםביןמיליםככה)
אלא אם מי שעשה לא עשה רווך בין המילים אלא רווח בין האותיות ואז זה רק לשנות את זה ברווח בין אותיות

יוסף אלחנן

@דוד-משה-1
אולי יש משהו עם מילון?

כאילו, איזה סקריפט שמתקן טקסט ויש לו לקסיקון...

דוד משה 1

@יוסף-אלחנן כתב בבעיה | רווח מיתר בין אותיות:

אולי יש משהו עם מילון?

כאילו, איזה סקריפט שמתקן טקסט ויש לו לקסיקון...

קשה לי להאמין
גם אם כן כל מילה שהוא לא מכיר....

יוסף אלחנן

@דוד-משה-1
בסדר אז יהיה לו עבודה אחר כך...

בכל מקרה, יהיה לו עבודה ליצור רווח חדש לבין המילים.
איך קראת לזה?! איפו?

וזה פחות עבודה ולמחוק את הרווח מבין כל אות ותו...

אני רק חושב על ההוא שכתב את זה ככה, כמה קשה הוא עבד...

דוד משה 1

@יוסף-אלחנן כתב בבעיה | רווח מיתר בין אותיות:

כמה קשה הוא עבד...

אם הוא הבין בוורד יכול להיות שהוא עשה את זה אם פקודת מקרו

יוסף אלחנן

@דוד-משה-1 כתב בבעיה | רווח מיתר בין אותיות:

אם הוא הבין בוורד יכול להיות שהוא עשה את זה אם פקודת מקרו

הוא עדיין היה צריך לכתוב

יוםטוב

שזה עדיין עבודה קשה...
תנסה...

יוסף אלחנן

@u88 אם אתה רוצה לעשות את מה ש @דוד-משה-1 הציע

@דוד-משה-1 כתב בבעיה | רווח מיתר בין אותיות:

אני לא מבין מה אתה רקוצה שיעשו אפשר לעשות מקרו שימחק את כל התוים של רוח אבל אין מה שיסביר למקרו אופו אתה צריך רווח ואיפו לא (יכול להיות שאפשר גם לעשות שהוא ימחוק את כל הרווחים בכותרות אבל גם שם את הכל וגםביןמיליםככה)

אז יש לך כאן קוד מאקרו לזה

 Sub RemoveExtraSpacesBetweenLetters()
    Dim rng As Range
    Dim txt As String
    Dim newText As String
    Dim i As Long
    
    Set rng = Selection.Range
    txt = rng.Text
    
    newText = ""
    
    For i = 1 To Len(txt)
        If Mid(txt, i, 1) Like "[!א-ת]" Then
            newText = newText & Mid(txt, i, 1)
            If i < Len(txt) And Mid(txt, i + 1, 1) = " " Then
                i = i + 1
            End If
        Else
            newText = newText & Mid(txt, i, 1)
        End If
    Next i
    
    rng.Text = newText
End Sub

אתה יודע איך להפעיל את זה, כן?

u88

@יוסף-אלחנן אולי אפשר שיחפש תו אחד ואחריו רווח וכו' אבל אם יש 2 תווים ואחריהם רווח לא

יוסף אלחנן

@u88 מה הכוונה?
למה שיהיה שני תווים ואחר כך רווח?

אמרת למעלה שהכל זה תו - רווח - תו - רווח...

או שזה כתוב:

י ו ם    ט ו ב

ולא

י ו ם ט ו ב

	Sub RemoveExtraSpacesBetweenLetters()
	Dim rng As Range
	Dim txt As String
	Dim newText As String
	Dim i As Long

	Set rng = Selection.Range
	txt = rng.Text

	newText = ""

	For i = 1 To Len(txt)
	If Mid(txt, i, 1) Like "[!א-ת]" Then
	newText = newText & Mid(txt, i, 1)
	If i < Len(txt) And Mid(txt, i + 1, 1) = " " Then
	i = i + 1
	End If
	Else
	newText = newText & Mid(txt, i, 1)
	End If
	Next i

	rng.Text = newText
	End Sub