הרב @שלמה11 יישר כח עצום!

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

@שמעון-פרידנן האם אתה משתמש בזה בפועל ועובד? אולי תוכל ליצור הסרטת מסך ולהעלות? פשוט לא הבנתי הכל.

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

@pcinfogmach כתב בבירור | יישור טורים - מה הבאגים שצריך להתגבר עליהם?: מאת ידידנו @דאנציג אם אני זוכר טוב לא, אני הבאתי לך קובץ אחר לגמרי (נביא עם רשי - בלי הערות) לא מוצא אותו.

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

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

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

@שלמה11 כתב בבעיה | בעיה בהגדרת הפקודה: font.position: גם גודל טקסט הוא לפי נקודות צודק, בכל אופן האחד הוא משתנה של long בזמן שהשני הוא משתנה של single. המשתנה long מאפשר רק מספרים שלמים ללא נקודה עשרונית. https://learn.microsoft.com/en-us/office/vba/api/word.font.position https://learn.microsoft.com/en-us/office/vba/api/word.font.size אין לי עצה.

@איש-גמזו כתב בלהורדה | מאקרו - איזון שורה אחרונה בוורד: ניסיתי ולא עבד. תיקנתי, תבדוק עכשיו

@ezerphone לכתוב שיר עם תווים כדי לנגן

@pcinfogmach תודה רבה על העזרה. לתועלת הציבור הקוד הנ"ל מתוקן: קוד vba: Dim CheckBox1Pressed As Boolean Dim CheckBox2Pressed As Boolean Dim CheckBox3Pressed As Boolean Dim myRibbon As IRibbonUI Sub OnLoad(ribbon As IRibbonUI) Set myRibbon = ribbon End Sub Sub CheckBox_OnAction(control As IRibbonControl, pressed As Boolean) Select Case control.ID Case "CheckBox1" CheckBox1Pressed = pressed CheckBox2Pressed = False CheckBox3Pressed = False Case "CheckBox2" CheckBox2Pressed = pressed CheckBox1Pressed = False CheckBox3Pressed = False Case "CheckBox3" CheckBox3Pressed = pressed CheckBox1Pressed = False CheckBox2Pressed = False End Select myRibbon.InvalidateControl "CheckBox1" myRibbon.InvalidateControl "CheckBox2" myRibbon.InvalidateControl "CheckBox3" End Sub Sub CheckBox_OnGetPressed(control As IRibbonControl, ByRef returnedVal) Select Case control.ID Case "CheckBox1" returnedVal = CheckBox1Pressed Case "CheckBox2" returnedVal = CheckBox2Pressed Case "CheckBox3" returnedVal = CheckBox3Pressed End Select End Sub קוד xml: <customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui" onLoad="OnLoad"> <ribbon> <tabs> <tab id="CustomTab" label="My Custom Tab"> <group id="CustomGroup" label="Options"> <checkBox id="CheckBox1" label="Option 1" onAction="CheckBox_OnAction" getPressed="CheckBox_OnGetPressed"/> <checkBox id="CheckBox2" label="Option 2" onAction="CheckBox_OnAction" getPressed="CheckBox_OnGetPressed"/> <checkBox id="CheckBox3" label="Option 3" onAction="CheckBox_OnAction" getPressed="CheckBox_OnGetPressed"/> </group> </tab> </tabs> </ribbon> </customUI>

@שלמה11 שווה לבדוק אולי עדיף להתשמש עם Information(wdVerticalPositionRelativeToTextBoundary) אז פשוט אפשר להריץ את זה ישירות על השורה השניה

הנה מאקרו להסרה: Sub RemoveLineSpacingExactly() Dim Paragraph As Range Dim LineSpacingExactly As Double Dim LineSpacingSingle As Double Dim LineSpacing As Double Set Paragraph = Selection.Paragraphs(1).Range With Paragraph If Selection.ParagraphFormat.LineSpacingRule = wdLineSpaceExactly Then LineSpacingExactly = .ParagraphFormat.LineSpacing .ParagraphFormat.LineSpacingRule = wdLineSpaceSingle .Collapse wdCollapseStart .text = " " & Chr(11): .Collapse wdCollapseStart .MoveEnd wdCharacter, 2: .Collapse wdCollapseEnd LineSpacingSingle = .Information(wdVerticalPositionRelativeToTextBoundary) .MoveStart wdCharacter, -2: .Delete LineSpacing = LineSpacingExactly / LineSpacingSingle .ParagraphFormat.LineSpacingRule = wdLineSpaceMultiple .ParagraphFormat.LineSpacing = LinesToPoints(LineSpacing) End If End With End Sub

גירסה 2.0 תיקון באג: במידה ונבחר תו רווח או תו פיסקה בסוף הטקסט הוא לא יועתק.

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

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

@pcinfogmach זה