אופיס 365 מאקרו הגדלת רווחים אחרי פסקאות עם רווחים שונים

[שיקול דעת]

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

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

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

מישהו יכול לעזור משהו בענין?

 

[שיקול דעת]

מישהו??
@צורת הדף @ישורון קובי @Yisrael

 

[Yisrael]

מישהו??
@צורת הדף @ישורון קובי @Yisrael

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

 

[שיקול דעת]

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

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

 

[Yisrael]

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

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

 

[שיקול דעת]

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

אולי תוכל 'לעדכן' לי המאקרו עם הלולאה?

 

[Yisrael]

אולי תוכל 'לעדכן' לי המאקרו עם הלולאה?

  With Selection
    For i = 1 To .Paragraphs.Count
    .Paragraphs(i).Format.SpaceAfter = .Paragraphs(i).Format.SpaceAfter + 0.1
    Next i
  End With