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

[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. איפוס הכניסות. כדאי בכל אופן לאפס לפני השימוש עם המאקרו, ואם לא מאפסים מקודם, לפעמים יוצא שגיאה, ואז צריך לאפס ולחזור שוב על המאקרו.
בהצלחה

[pcinfogmach]

@מניין

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

Sub הקטנת_מרווח_בין_טורים_רק_בהערות_שוליים()
'
' הקטנת_מרווח_בין_טורים_רק_בהערות_שוליים Macro
'
'
 
If ActiveDocument.Footnotes.Count = 0 Then
MsgBox "אין הערות שוליים במסמך"
Exit Sub
End If
       
Application.ScreenUpdating = False
Dim currpagenum As Integer
currpagenum = Selection.Information(wdActiveEndPageNumber)
 
        ActiveWindow.View.SeekView = wdSeekFootnotes
   
        Selection.WholeStory
        
    With Selection.ParagraphFormat
        .RightIndent = .RightIndent - CentimetersToPoints(0.1)
    End With
    
        Selection.HomeKey Unit:=wdStory
        Selection.WholeStory
        
    With Selection.ParagraphFormat
        .RightIndent = .RightIndent - CentimetersToPoints(0.1)
    End With
    
        With ActiveDocument.PageSetup
        .LeftMargin = .LeftMargin - CentimetersToPoints(-0.1)
    End With
    
    Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=currpagenum
    Application.ScreenUpdating = True
End Sub
Sub הרחבת_מרווח_בין_טורים_רק_בהערות_שוליים()
'
' הרחבת_מרווח_בין_טורים_רק_בהערות_שוליים Macro
'
'
If ActiveDocument.Footnotes.Count = 0 Then
MsgBox "אין הערות שוליים במסמך"
Exit Sub
End If
        
Application.ScreenUpdating = False
Dim currpagenum As Integer
currpagenum = Selection.Information(wdActiveEndPageNumber)
 
    ActiveWindow.View.SeekView = wdSeekFootnotes
    
    Selection.WholeStory
    
    With Selection.ParagraphFormat
        .RightIndent = .RightIndent - CentimetersToPoints(-0.1)
            End With
            
    Selection.HomeKey Unit:=wdStory
    
    Selection.WholeStory
    
    With Selection.ParagraphFormat
        .RightIndent = .RightIndent - CentimetersToPoints(-0.1)
    End With
    
    With ActiveDocument.PageSetup
        .LeftMargin = .LeftMargin - CentimetersToPoints(0.1)
    End With
        
    Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=currpagenum
    Application.ScreenUpdating = True
    
End Sub
Sub איפוס_כניסות()
'
' מרווח_איפוס Macro
'
'
 
Application.ScreenUpdating = False
Dim currpagenum As Integer
currpagenum = Selection.Information(wdActiveEndPageNumber)
 
If ActiveDocument.Footnotes.Count = 0 Then
MsgBox "אין הערות שוליים במסמך"
Exit Sub
End If
 
        ActiveWindow.View.SeekView = wdSeekFootnotes
 
        Selection.WholeStory
        
    With Selection.ParagraphFormat
        .RightIndent = CentimetersToPoints(0)
    End With
    
        Selection.HomeKey Unit:=wdStory
        Selection.WholeStory
        
    With Selection.ParagraphFormat
        .RightIndent = CentimetersToPoints(0)
        Selection.MoveLeft Unit:=wdCharacter, Count:=1
    End With
    
    With ActiveDocument.PageSetup
        .LeftMargin = .RightMargin
    End With
      
    Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=currpagenum
    Application.ScreenUpdating = True
    
End Sub

[מניין]

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

@מניין

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

זה פשוט גאוני מה שהצלחת לעשות כאן, וגם איך הצלחת באיפוס לאפס את הכל כולל השוליים? כל הכבוד!!!