אופיס 365 יצירת לחצן להגדת המרווח בין תווים ב0.1 נקודה

[פרידמן]

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

 

[צורת הדף]

זה יעבוד על כל הפסקה, אין צורך לבחור.

Sub Spacing_Expend()
Selection.Paragraphs(1).Range.Font.Spacing = Selection.Paragraphs(1).Range.Font.Spacing + 0.1
End Sub

Sub Spacing_Condense()
Selection.Paragraphs(1).Range.Font.Spacing = Selection.Paragraphs(1).Range.Font.Spacing - 0.1
End Sub

שבת שלו'

 

[פרידמן]

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

 

[צורת הדף]

ערכתי תגובה הקודמת.

 

[sek]

אינו פועל על הפיסקה אלא אם כן בוחרים כמדומני.
אבקש אם אפשרי להעלות מאקרו בדומה להנ"ל שיפעל על מרווח בין שורות בפיסקה [נבחרת] בתודה מראש

 

[שמח לעזור]

אינו פועל על הפיסקה אלא אם כן בוחרים כמדומני.

????
פועל גם ללא בחירה.

הנה קוד דומה למרווח בין שורות:

Selection.Paragraphs(1).LineSpacing = Selection.Paragraphs(1).LineSpacing + 1

 

[שלמה נץ]

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

 

[צמרא]

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

להגדיל הרווח לפני קטעים:

Selection.Paragraphs(1).SpaceBefore = Selection.Paragraphs(1).SpaceBefore + 1

להגדיל הרווח אחרי קטעים:

Selection.Paragraphs(1).SpaceAfter  = Selection.Paragraphs(1).SpaceAfter  + 1