מילה ראשונה וחלון בהערות שוליים

[u88]

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

[מניין]

@u88 כתב במילה ראשונה וחלון בהערות שוליים:

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

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

[u88]

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

[מניין]

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

Sub הקטנת_מרווח_בין_טורים_רק_בהערות_שוליים()
'
' הקטנת_מרווח_בין_טורים_רק_בהערות_שוליים Macro
'
'
    Selection.HomeKey Unit:=wdStory
    Selection.WholeStory
    With Selection.ParagraphFormat
        .LeftIndent = CentimetersToPoints(-0.5)
    End With
    If ActiveWindow.ActivePane.View.Type = wdPrintView Or ActiveWindow. _
        ActivePane.View.Type = wdWebView Or ActiveWindow.ActivePane.View.Type = _
        wdPrintPreview Then
        ActiveWindow.View.SeekView = wdSeekFootnotes
    Else
        ActiveWindow.View.SplitSpecial = wdPaneFootnotes
    End If
    Selection.WholeStory
    With Selection.ParagraphFormat
        .LeftIndent = CentimetersToPoints(-0.5)
    End With
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
End Sub

Sub הקטנת_מרווח_בין_טורים_רק_בהערות_שוליים_כולל_סידור_שוליים_רגילים()
'
' הקטנת_מרווח_בין_טורים_רק_בהערות_שוליים_כולל_סידור_שוליים_רגילים Macro
'
'
 Selection.HomeKey Unit:=wdStory
    Selection.WholeStory
    With Selection.ParagraphFormat
        .LeftIndent = CentimetersToPoints(-0.5)
    End With
    If ActiveWindow.ActivePane.View.Type = wdPrintView Or ActiveWindow. _
        ActivePane.View.Type = wdWebView Or ActiveWindow.ActivePane.View.Type = _
        wdPrintPreview Then
        ActiveWindow.View.SeekView = wdSeekFootnotes
    Else
        ActiveWindow.View.SplitSpecial = wdPaneFootnotes
    End If
    Selection.WholeStory
    With Selection.ParagraphFormat
        .LeftIndent = CentimetersToPoints(-0.5)
    End With
    Selection.HomeKey Unit:=wdStory
    Selection.WholeStory
    With ActiveDocument.PageSetup
        .RightMargin = CentimetersToPoints(3.67)
         Selection.MoveLeft Unit:=wdCharacter, Count:=1
    End With
End Sub

[מאקרו]

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

Sub הקטנת_מרווח_בין_טורים_רק_בהערות_שוליים_כולל_סידור_שוליים_רגילים()
'
' הקטנת_מרווח_בין_טורים_רק_בהערות_שוליים_כולל_סידור_שוליים_רגילים Macro
'
'
 Selection.HomeKey Unit:=wdStory
    Selection.WholeStory
    With Selection.ParagraphFormat
        .LeftIndent = CentimetersToPoints(-0.5)
    End With
    If ActiveWindow.ActivePane.View.Type = wdPrintView Or ActiveWindow. _
        ActivePane.View.Type = wdWebView Or ActiveWindow.ActivePane.View.Type = _
        wdPrintPreview Then
        ActiveWindow.View.SeekView = wdSeekFootnotes
    Else
        ActiveWindow.View.SplitSpecial = wdPaneFootnotes
    End If
    Selection.WholeStory
    With Selection.ParagraphFormat
        .LeftIndent = CentimetersToPoints(-0.5)
    End With
    Selection.HomeKey Unit:=wdStory
    Selection.WholeStory
    With ActiveDocument.PageSetup
        .RightMargin = .RightMargin - CentimetersToPoints(-0.5)
         Selection.MoveLeft Unit:=wdCharacter, Count:=1
    End With
End Sub

[מניין]

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

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

[ישראליק]

@pcinfogmach תוכל לצרף לתוסף שלך את המאקרו הזה?

[מניין]

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

@pcinfogmach תוכל לצרף לתוסף שלך את המאקרו הזה?

זה עוד לא מוכן

[מאקרו]

@מניין כתב במילה ראשונה וחלון בהערות שוליים:

וגם לפעמים יוצא שגיאה זו, האם אתה יודע מה הבעיה?

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

[מניין]

@מאקרו עכשיו יש שגיאה זו

[מאקרו]

@מניין צריך להיות כך:

 With Selection.ParagraphFormat
        .LeftIndent = CentimetersToPoints(-0.5)
 End With

[מניין]

@מאקרו אבל צריך שילך על כל ההערות שוליים ולא רק על פיסקא אחת

[מאקרו]

@מניין זה הולך על כל הבחירה (selection)

[מניין]

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

[pcinfogmach]

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

[מאקרו]

@מניין כתב במילה ראשונה וחלון בהערות שוליים:

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

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

[מניין]

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

@מניין כתב במילה ראשונה וחלון בהערות שוליים:

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

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

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

[מניין]

פוסט זה נמחק!

[u88]

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

[מניין]

@u88 כתב במילה ראשונה וחלון בהערות שוליים:

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

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

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