בירור | קוד מאקרו ליישור שני טורים בוורד

[האדם החושב]

@שמעלקא-0 כתב בבירור | קוד מאקרו ליישור שני טורים בוורד:

פקודת המאקרו שפותחת את טופס ההגדרות נקראת Open_my_userform חפש אותה ברשימת פקודות המאקרו.
בהצלחה

לי כשהתקנתי התפריט לא עלה בכלל ,וגם עכשיו זה מה שאני מקבל:

[שמעלקא 0]

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

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

בכל מקרה כדאי לעבור על הקובץ אחרי הרצת המאקרו, כי עדיין יש מקום לדייק ולהגיע ליישור מושלם, יתכן פער קטן לפה או לשם (יש איזו מגבלה בהגדרת המרווחים בוורד, שטרם התגברתי עליה לגמרי...).

[נתן מרדכי שלום]

ביטלתי את ההודעות הקופצות כדי לא להטריח. אולי אעשה הודע אחת בסיום.

לזה התכוונתי כמובן

[es0583292679]

@נתן-מרדכי-שלום כתב בבירור | קוד מאקרו ליישור שני טורים בוורד:

@es0583292679 כתב בבירור | קוד מאקרו ליישור שני טורים בוורד:

@דאנציג
לא זה לא.

@NykUser
הרעיון אצלי שניתן לעצבה את כל מילות הפתיח יחד, ולא רק גופן וגודל וכו', אלא גם גובה ועובי וכו'.

---

עריכה: @NykUser
כעת לאחר ניסוי המאקרו שלך יש לומר שהוא ממש טוב, אך לא מתאים לקובץ הניתן לשינוי, כי כל שינוי משבש את כל המסמך, זה מתאים רק למי שגמר לערוך את כל הגדרות הגופן ואולי גם הפיסקה, אך אולי עם כמה שיפורים זה יוטב, למשל שיהיה מאקרו שיחפש את התוספת וישמיט אותה - אולי עם תו נסתר - ויכניס חדש במקום זאת, ואז יהיה לזה הרצת תיקון וכן הרצת השמטה, אם כך זה יהיה ממש מוצלח! אולי אחליף את שלנו בשלך בתוכנה של כתר תורה.

מצד שני בתוסף שלך המילה הראשונה בדרך כלל קופצת למעלה או למטה, ואז צריך להתחיל לסדר (זה אני הייתי במייל), משאי"כ בתוסף שלו שכנראה עובד חלק מהבחינה הזו.

בתוסף זה בד"כ זה מסודר אוטומטית, כך חושבן בס"ד.
ואם חלילה קרה למישהו שלא - אז בלחיצת כפתור בערך זה מסתדר, אבל ממש ממש בלחיצת כפתור.
ואיני זוכר את כל מי ששלח לי מיילים, אך אם לך זה היה לא פשוט כי זה היה לך פעם ראשונה, זה לא אומר שהתוסף מחוסר חלילה, ב"ה התוסף עובד מצויין! ורק צריך ללמוד פעם אחת איך עובדים עם זה, ישתבח שמו לעד!

---

@ששמעון כתב בבירור | קוד מאקרו ליישור שני טורים בוורד:

@שמעלקא-0 הסרתי את כל התבניות שקשורות ליישור טורים, וכעת התקנתי מחדש,
מקודם יצרתי קיצור דרך אחר ואז זה עבד, כנראה שגם עכשיו זה יעבוד, אלט + 9 לא עובד משום שהוא מוקצה אצלי במחשב למשהו אחר....
אבל הגדרת מינ ומקס לא עובד גם עם קיצור דרך פנוי אחר. מוזר ביותר.
כלומר גם כשאני מפעיל אותו מאשף הפקודות מאקרו הוא מקפיץ שגיאה.
אולי @es0583292679 יודע פשר דבר?

יש בעיה אחת שעדיין עושה את המאקרו הנפלא שלך שייך לעולם הלא מושלם שלנו,
זה:

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

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

---

@שמעלקא-0 כתב בבירור | קוד מאקרו ליישור שני טורים בוורד:

לגבי שגיאת ההתקנה הזו, אמתין ל@NykUser שכתב עבורנו את חלק הקוד הזה. תודות לו!

לא תייגת טוב, בא ננסה שוב בעה"י: @NykUser , ואגב, ייש"כ עצום לרב הנז' וכן לרב @שמעלקא-0 וכן לרב @מאקרו וכן לרב @נוכחות ולכל הרבנים על כל העזרה, המקום ישלם לכם היטב בעין יפה!

[מניין]

פוסט זה נמחק!

[ששמעון]

@נתן-מרדכי-שלום כתב בבירור | קוד מאקרו ליישור שני טורים בוורד:

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

הם באמת בטור השמאלי.
אכן לא העלתי את כל התמונה עד סוף העמודים, בסוף הם יוצאים ישר.

[מניין]

@שמעלקא-0 אלט 0 לא עובד, יש שגיאה.

[NykUser]

@es0583292679 כתב

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

@נתן-מרדכי-שלום כתב

מצד שני בתוסף שלך המילה הראשונה בדרך כלל קופצת למעלה או למטה, ואז צריך להתחיל לסדר

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

@האדם-החושב כתב

זה מה שאני מקבל:

@שמעלקא-0 כתב

לגבי שגיאת ההתקנה הזו, אמתין ל@NykUser שכתב עבורנו את חלק הקוד הזה. תודות לו!

הקוד שלי פשוט העתק את התבנית לנתיב ההפעלה. זה לא קשור לזה.
לחץ על Debug ושלח צילום מסך של איזו שורה עוררה את הבעיה.

[poker]

מצד שני בתוסף שלך המילה הראשונה בדרך כלל קופצת למעלה או למטה, ואז צריך להתחיל לסדר (זה אני הייתי במייל), משאי"כ בתוסף שלו שכנראה עובד חלק מהבחינה הזו.

אני לא מזמן שאלתי את @es0583292679 האם הוא יכול בתוסף שלו להגדיר שהמילה הראשונה תיצור סגנון לעצמה (כוונתי כשמפעילים את התוסף, והוא מעצב את המילה הראשונה, שהיא תהיה בסגנון) והוא ענה לי שאכן כמה אנשים ביקשו ממנו וכשיהיה לו זמן בעז"ה הוא יטפל בזה.
אולי הגיע הזמן......?

[poker]

אני מעלה כאן גירסה מתוקנת של המאקרו שמיישר טורים בוורד.
עם שיפורים ניכרים בזכות החברים:
א. המאקרו מיישר את כל המסמך בלחיצה אחת, ותוך שניות בודדות!
ב. אין צורך להגדיר בכל פעם את המרווח המינימלי והמקסימלי בין פיסקאות.
אך מומלץ לעשות זאת בלחיצה על alt+0
הצלחה וברכה
הנה הקובץ
‏‏‏‏LineToLines4.dot

ניסיתי כעת את הקוד על קונטרס מעומד עם תוספים של @es0583292679 והקוד לא 'עובד' על המסמך.
מה עושים??

[ששמעון]

@שמעלקא-0 כתב בבירור | קוד מאקרו ליישור שני טורים בוורד:

@ששמעון הצדיק, אכן זה מרחיב רק בין פסקאות, ולא בין שורות.

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

אם המרווח הגדול מידי צורם לך,
היכנס שוב לטופס, הקטן את המקסימום, ואחר כך עבור על הקובץ והוסף מרווח שורות ידני.
[רק לפני כן בחר את כל המסמך, ותן לו מרווח פיסקאות של 8 נק' אחרי. בלשונית פריסה. זו הברירת מחדל בדר"כ].

פקודת המאקרו שפותחת את טופס ההגדרות נקראת Open_my_userform חפש אותה ברשימת פקודות המאקרו.
בהצלחה

דווקא יש כאן משהו שאתה יכול לשחק איתו על מרווח בין שורות:

הבעיה שזה עלול להיות יותר מדאי מסובך....

[ששמעון]

@NykUser כתב בבירור | קוד מאקרו ליישור שני טורים בוורד:

ומסגרת הטקסט יכולה להיות חלק מהסגנון

איך עושים דבר כזה?

[NykUser]

@ששמעון כתב בבירור | קוד מאקרו ליישור שני טורים בוורד:

@NykUser כתב בבירור | קוד מאקרו ליישור שני טורים בוורד:

ומסגרת הטקסט יכולה להיות חלק מהסגנון

איך עושים דבר כזה?

כך, סליחה אצלי הכל באנגלית

[מניין]

@שמעלקא-0 לאחרונה לפעמים כשאני פותח מסמך חדש נפתח לי חלון זה,

מי יודע איך מבטלים את זה?

[es0583292679]

@מניין
שלב ראשון, תתפלל.
שלב שני, תנסה להשבית את החיבור לתבנית מ'מפתחים'>תבנית מסמך, ולהחליף תבנית, ואולי אפילו נתיב אך לא נראה שזה הבעיה, ולחבר את החדש.

[שמעלקא 0]

@מניין יש לך את תוכנת החיפוש Everytinge במחשב?
אם כן חפש את שם קובץ התבנית ההוא בכל נבכי המחשב, ומחק אותו.

[אבי 0]

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

[רפרם בר בר פפא]

@אבי-0 כתב בבירור | קוד מאקרו ליישור שני טורים בוורד:
ניתן לעבור בלולאה על כל השורות עד שמוצא את השורה אם גובה כמו שהוגדר לגובה טור 1
דוגמא (גובה טור 1 בדוגמא מוגדר ב col1 )

'הולך לשורה הראשונה בעמוד
Set MyRange = ActiveDocument.Bookmarks("\page").range
    MyRange.SetRange Start:=MyRange.Start, End:=MyRange.Start
    MyRange.Select
'רד לשורה אחרונה בטור
    For i = 1 To NumLines
    Selection.GoTo What:=wdGoToLine, Which:=wdGoToNext, Count:=1, Name:=""
    If col1 = Selection.Information(wdVerticalPositionRelativeToPage) Then
    Exit For
    ElseIf col1 > Selection.Information(wdVerticalPositionRelativeToPage) Then

[אבי 0]

@רפרם-בר-בר-פפא תודה על המענה זה כותב לי את השגיאה הבאה

אני חושב שמחמת שהשורה התחתונה בקוד שלך חסר משהו אחרי "THEN".
2. האם בבקשה אתה יכול להסביר יותר, מה אתה מתכוון שאני צריך להגדיר במקרו, ומה כוונתך ל"גובה טור 1"
תודה!

[רפרם בר בר פפא]

@אבי-0
1 השגיאה היא חוסר ב סוף אם (End If) כעת תקנתי
`2 יש להוסיף אחרי המאקרו שהביא`` @NykUser שמגדיר הפרש בין טורים ומגדיר גובה טור 1 וגובה טור 2 והוספה שלי מגדירה בסיום המאקרו לעבור לשורה השווה לגובה טור 1 שהיא השורה האחרונה בטור הימני
להלן הקוד המלא אם החלק הראשון שבנוי על הקוד שהביא @NykUser ובתוספת שכתבתי

Public Sub שורה_אחרונה_בטור()
'בודק אם יש שני טורים
If Selection.PageSetup.TextColumns.Count <> 2 Then MsgBox ("לא נמצאו 2 טורים"): Exit Sub
'עדכון מסך שקר
Application.ScreenUpdating = False
Dim WRange As range
Dim NumLines, col1, col2, Ignore As Double
'מספר שורות כולל בשני טורים

NumLines = ActiveDocument.Bookmarks("\page").range.ComputeStatistics(wdStatisticLines)
ActiveDocument.Bookmarks("\page").range.Select
Selection.MoveLeft Unit:=wdCharacter, Count:=1
'מגדיר אורך טור 1
For i = 1 To NumLines
    Selection.GoTo What:=wdGoToLine, Which:=wdGoToNext, Count:=1, Name:=""
   If col1 > Selection.Information(wdVerticalPositionRelativeToPage) Then
        Exit For
    Else
        col1 = Selection.Information(wdVerticalPositionRelativeToPage)
    End If
    
Next
'עובר לשורה ראשונה בעמוד
Set MyRange = ActiveDocument.Bookmarks("\page").range
    MyRange.SetRange Start:=MyRange.Start, End:=MyRange.Start
    MyRange.Select
'רד לשורה אחרונה בטור
    For i = 1 To NumLines
    Selection.GoTo What:=wdGoToLine, Which:=wdGoToNext, Count:=1, Name:=""
    If col1 = Selection.Information(wdVerticalPositionRelativeToPage) Then
    Exit For
    ElseIf col1 > Selection.Information(wdVerticalPositionRelativeToPage) Then

    End If
    Next
    
End Sub