בעיית טורים שווים בוורד

[צפוני אבוד]

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

 

[Avshalom05]

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

 

[tkh]

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

 

[שיקול דעת]

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

 

[צפוני אבוד]

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

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

 

[חיים V]

אולי תעלה דוגמה,

 

[שיקול דעת]

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

לא הבנתי, למה לא עוזר, מה פי' 'נשאר קבוע'?

 

[סלט פירות]

שתי טורים שוים עם הערות, זה אחד הדברים המסובכים

 

[שיקול דעת]

סליחה אבל בדרך שהצגתי לעיל אני לא רואה מה הבעיה

 

[סלט פירות]

סליחה אבל בדרך שהצגתי לעיל אני לא רואה מה הבעיה

הרבה פעמים כשמתקנים כאן קופץ שם

 

[א.ש. אמיתי]

לשחק עם המרווח בין השורות.

 

[סלט פירות]

לשחק עם המרווח בין השורות.

חבל שאין משהו אוטומטי שיסדר את זה

 

[שיקול דעת]

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

 

[שיקול דעת]

הנה המאקרו להוסיף נקודה אחת אחרי פסקה:

Sub הגדלת_רווח_אחרי_פסקה_בנקודה_1()
'
' הגדלת_רווח_אחרי_פסקה_בנקודה_1 Macro
'
'
    With Selection.ParagraphFormat
        .LeftIndent = CentimetersToPoints(0)
        .RightIndent = CentimetersToPoints(0)
        .SpaceBefore = 0
        .SpaceBeforeAuto = False
        .SpaceAfter = .SpaceAfter + 1
        .SpaceAfterAuto = False
        .LineSpacingRule = wdLineSpaceExactly
        .Alignment = wdAlignParagraphJustify
        .WidowControl = True
        .KeepWithNext = False
        .KeepTogether = False
        .PageBreakBefore = False
        .NoLineNumber = False
        .Hyphenation = True
        .FirstLineIndent = CentimetersToPoints(0)
        .OutlineLevel = wdOutlineLevelBodyText
        .CharacterUnitLeftIndent = 0
        .CharacterUnitRightIndent = 0
        .CharacterUnitFirstLineIndent = 0
        .LineUnitBefore = 0
        .LineUnitAfter = 0
        .MirrorIndents = False
        .TextboxTightWrap = wdTightNone
        .ReadingOrder = wdReadingOrderRtl
    End With
End Sub

 

[צורת הדף]

הנה המאקרו להוסיף נקודה אחת אחרי פסקה:

Sub הגדלת_רווח_אחרי_פסקה_בנקודה_1()
    With Selection.ParagraphFormat
        .SpaceAfter = .SpaceAfter + 1
    End With
End Sub

במקום שאמרו לקצר אינו רשאי להאריך......

 

[צפוני אבוד]

במקום שאמרו לקצר אינו רשאי להאריך......

אני משתמש ב - wordaccessoris ויש שם אפשרות זו מובנית.
תודה

 

[שיקול דעת]

במקום שאמרו לקצר אינו רשאי להאריך......

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

ורק כדי להשלים הענין, אני ישים המאקרו להקטין רווח (אם בטעות הוסיפו נקודה אחת מידי), זה אותו דבר ורק במקום + שמים -:

Sub הקטנת_רווח_אחרי_פסקה_בנקודה_1()
    With Selection.ParagraphFormat
        .SpaceAfter = .SpaceAfter - 1
    End With
End Sub

 

[Yisrael]

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

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