עזרה | שינוי רוחב טורים בכמה מקטעים

[איש גמזו]

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

[975]

פוסט זה נמחק!

[pcinfogmach]

Sub Test()
    Dim i As Integer
    For i = 1 To ActiveDocument.Sections.Count
        With ActiveDocument.Sections(i).PageSetup.TextColumns
            If .Count = 2 Then .Spacing = CentimetersToPoints(3) 'פה יש להזין את המרווח בסנטימטרים
        End With
    Next i
End Sub

[975]

@pcinfogmach אולי כדאי להכניס את זה לאוסף המקרואים

[איש גמזו]

@pcinfogmach איפה בדיוק צריך להזין את גודל המרווח? ואיך? אם אני רוצה שיהיה 0.8 ס״מ מה לכתוב?
תודה ענקית

[pcinfogmach]

@איש-גמזו

תחליף את ה-3 ב-0.8

[איש גמזו]

@pcinfogmach הוא נותן לי איזו שגיאה ומקיף את השורה באדום
‎⁨צילום מסך 2025-10-22 ב-17.53.38⁩
אולי בגלל שאני על מק? לנסות לעשות את זה על ווינדוס?

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

[pcinfogmach]

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

Sub Test()
    Dim i As Integer
    Dim userInput As String
    Dim spacingCm As Double
    
    ' בקשת קלט מהמשתמש
    userInput = InputBox("הזן את המרווח בין הטורים (בסנטימטרים):", "מרווח טורים", "0.8")
    
    ' בדיקה שהקלט תקין
    If IsNumeric(userInput) Then
        spacingCm = CDbl(userInput)
    Else
        MsgBox "אנא הזן מספר תקין.", vbExclamation
        Exit Sub
    End If
    
    ' הגדרת המרווח
    For i = 1 To ActiveDocument.Sections.Count
        With ActiveDocument.Sections(i).PageSetup.TextColumns
            If .Count = 2 Then .Spacing = CmToPoints(spacingCm)
        End With
    Next i
End Sub

' פונקציה שממירה ס"מ לנקודות (תואמת ל-Mac ול-Windows)
Function CmToPoints(cm As Double) As Double
    CmToPoints = cm * 28.35
End Function

[שלמה11]

@איש-גמזו צריך להכיר את התוסף... יש פיתרון לזה בתוסף שולחן העורך!
קודם כל תשנה במקטע הראשון את רוחב הטורים כרצונך
לאחר מכן תלחץ על שגיאות עריכה>בדיקת רוחב ומרווח טורים
ייפתח לך חלון עם כל המידות של הטורים במסמך (במקרה שלנו יהיה לך את האופציה של המקטע הראשון אותו שינית, ואת האופציה של שאר המקטעים)
תבחר באופציה הרצויה - וזה יעבור על כל המקטעים בעלי 2 טורים במסמך

כידוע לך אין לי זמן... אם מישהו יוכל לעבור על התוסף בצורה רצינית ולכתוב לו מדריך הוא יבורך ממרום!

[איש גמזו]

פוסט זה נמחק!

[איש גמזו]

@pcinfogmach נותן לי את השגיאה הזו במק
‎⁨צילום מסך 2025-10-23 ב-11.32.18⁩

[975]

@שלמה11 כתב בעזרה | שינוי רוחב טורים בכמה מקטעים:

צריך להכיר את התוסף... יש פיתרון לזה בתוסף שולחן העורך!

צודק - כמו תמיד

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

תודה רבה - לא הכרתי

@איש-גמזו כתב בעזרה | שינוי רוחב טורים בכמה מקטעים:

נותן לי את השגיאה הזו

כעת בדקתי וגם לי בווינדוס (10) אמנם לא נותן שגיאה אבל לא מגיב לבחירה - כלומר לא קורה כלום.

@שלמה11 כתב בעזרה | שינוי רוחב טורים בכמה מקטעים:

אם מישהו יוכל לעבור על התוסף בצורה רצינית ולכתוב לו מדריך הוא יבורך ממרום!

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

[שלמה11]

@975 אמור להיות כפתור למטה של 'המשך' משום מה משיחתי עם @איש-גמזו הוא אמר שהכפתור הזה מופיע רק כאשר יש 3 אופציות במסמך - אני לא מבין איפה הבאג ואין לי זמן כרגע...

[975]

@שלמה11

רק כאשר יש 3 אופציות במסמך

בדקתי אצלי ויש רק ב-4
בנוסף זה עובד פיקס - לא מסמך גדול רק פתחתי לבדיקה

תודה רבה

[איש גמזו]

@975 אני בדקתי על מסמך של כ200 פלוס עמודים ועבד מצויין