עזרה | שינוי רוחב טורים בכמה מקטעים
-
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@pcinfogmach איפה בדיוק צריך להזין את גודל המרווח? ואיך? אם אני רוצה שיהיה 0.8 ס״מ מה לכתוב?
תודה ענקית -
@pcinfogmach איפה בדיוק צריך להזין את גודל המרווח? ואיך? אם אני רוצה שיהיה 0.8 ס״מ מה לכתוב?
תודה ענקית -
תחליף את ה-3 ב-0.8
@pcinfogmach הוא נותן לי איזו שגיאה ומקיף את השורה באדום
צילום מסך 2025-10-22 ב-17.53.38
אולי בגלל שאני על מק? לנסות לעשות את זה על ווינדוס?עריכה כעת ניסיתי בווינדוס, ועובד מצוין,
תודה רבה, חסכת לי שעות עבודה!
כדאי לדבר עם @שלמה11 לכשיתפנה שיכניס את זה לשולחנו, זה לא פעם ראשונה שאני נתקל בזה, כל קונטרס חבורות קלאסי שהכותרות בו הם בטור אחד והטקסט בשניים עלול להיתקל בזה אם לא שהגדיר מראש את הרווח. -
@pcinfogmach הוא נותן לי איזו שגיאה ומקיף את השורה באדום
צילום מסך 2025-10-22 ב-17.53.38
אולי בגלל שאני על מק? לנסות לעשות את זה על ווינדוס?עריכה כעת ניסיתי בווינדוס, ועובד מצוין,
תודה רבה, חסכת לי שעות עבודה!
כדאי לדבר עם @שלמה11 לכשיתפנה שיכניס את זה לשולחנו, זה לא פעם ראשונה שאני נתקל בזה, כל קונטרס חבורות קלאסי שהכותרות בו הם בטור אחד והטקסט בשניים עלול להיתקל בזה אם לא שהגדיר מראש את הרווח.@איש-גמזו
תעשה כך במק
גם הוספתי תיבת טקסט כך שאין תורך לשנות את הקוד כל פעם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 -
יש לי מסמך וורד עם הרבה מקטעים, כשחלק מהם מעוצבים בטור אחד, וחלק מהם בשניים, כעת אני רוצה לשנות את המרווח בין הטורים בכל המקטעים בהם יש שני טורים, איך אני עושה את זה בלי לעבור ידנית על קטע בפני עצמו?
שאלתי את ג׳ימיני, והוא כתב לי שאפשרי רק בעזרת מאקרו שהוא הלחין בעבורי.
הכנסתי אותו בספויילר, האם הוא אמור להיות טוב? והאם יש דרך יותר פשוטה?Sub ChangeColumnSpacingForTwoColumnSections()
' הגדרת יחידת המידה
' 1 ס"מ = 28.35 נקודות (Points)
' 1 אינץ' = 72 נקודות (Points)' שנה את הערך הזה למרווח הרצוי בנקודות (Points) ' לדוגמה: עבור מרווח של 0.5 ס"מ, השתמש ב- 14.175 (28.35 * 0.5) ' עבור מרווח של 1 ס"מ, השתמש ב- 28.35 Const NewSpacing As Single = 28.35 ' **המרווח החדש בנקודות (Points)** Dim oSection As Section ' מעבר על כל המקטעים במסמך For Each oSection In ActiveDocument.Sections ' בדיקה אם המקטע מעוצב עם בדיוק 2 טורים If oSection.PageSetup.TextColumns.Count = 2 Then ' הגדרת המרווח בין הטורים עבור המקטע הזה ' (ה-Index 1 הוא תמיד המרווח בין הטור הראשון לשני) oSection.PageSetup.TextColumns(1).Spacing = NewSpacing End If Next oSection MsgBox "השינוי בוצע בהצלחה לכל המקטעים בעלי שני טורים.", vbInformationEnd Sub
@איש-גמזו צריך להכיר את התוסף... יש פיתרון לזה בתוסף שולחן העורך!
קודם כל תשנה במקטע הראשון את רוחב הטורים כרצונך
לאחר מכן תלחץ על שגיאות עריכה>בדיקת רוחב ומרווח טורים
ייפתח לך חלון עם כל המידות של הטורים במסמך (במקרה שלנו יהיה לך את האופציה של המקטע הראשון אותו שינית, ואת האופציה של שאר המקטעים)
תבחר באופציה הרצויה - וזה יעבור על כל המקטעים בעלי 2 טורים במסמךכידוע לך אין לי זמן... אם מישהו יוכל לעבור על התוסף בצורה רצינית ולכתוב לו מדריך הוא יבורך ממרום!
-
@איש-גמזו צריך להכיר את התוסף... יש פיתרון לזה בתוסף שולחן העורך!
קודם כל תשנה במקטע הראשון את רוחב הטורים כרצונך
לאחר מכן תלחץ על שגיאות עריכה>בדיקת רוחב ומרווח טורים
ייפתח לך חלון עם כל המידות של הטורים במסמך (במקרה שלנו יהיה לך את האופציה של המקטע הראשון אותו שינית, ואת האופציה של שאר המקטעים)
תבחר באופציה הרצויה - וזה יעבור על כל המקטעים בעלי 2 טורים במסמךכידוע לך אין לי זמן... אם מישהו יוכל לעבור על התוסף בצורה רצינית ולכתוב לו מדריך הוא יבורך ממרום!
-
@איש-גמזו
תעשה כך במק
גם הוספתי תיבת טקסט כך שאין תורך לשנות את הקוד כל פעם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@pcinfogmach נותן לי את השגיאה הזו במק
צילום מסך 2025-10-23 ב-11.32.18 -
@pcinfogmach נותן לי את השגיאה הזו במק
צילום מסך 2025-10-23 ב-11.32.18@שלמה11 כתב בעזרה | שינוי רוחב טורים בכמה מקטעים:
צריך להכיר את התוסף... יש פיתרון לזה בתוסף שולחן העורך!
צודק - כמו תמיד
קודם כל תשנה במקטע הראשון את רוחב הטורים כרצונך
לאחר מכן תלחץ על שגיאות עריכה>בדיקת רוחב ומרווח טוריםתודה רבה - לא הכרתי
@איש-גמזו כתב בעזרה | שינוי רוחב טורים בכמה מקטעים:
נותן לי את השגיאה הזו
כעת בדקתי וגם לי בווינדוס (10) אמנם לא נותן שגיאה אבל לא מגיב לבחירה - כלומר לא קורה כלום.
@שלמה11 כתב בעזרה | שינוי רוחב טורים בכמה מקטעים:
אם מישהו יוכל לעבור על התוסף בצורה רצינית ולכתוב לו מדריך הוא יבורך ממרום!
אם יהיה לי זמן מספיק גם ללמוד אותו לעומק וגם לכתוב, בשמחה [אם יש לך כתוב נקודות של הכל או חלקי (אפילו בקצרה) זה יקל].
-
@שלמה11 כתב בעזרה | שינוי רוחב טורים בכמה מקטעים:
צריך להכיר את התוסף... יש פיתרון לזה בתוסף שולחן העורך!
צודק - כמו תמיד
קודם כל תשנה במקטע הראשון את רוחב הטורים כרצונך
לאחר מכן תלחץ על שגיאות עריכה>בדיקת רוחב ומרווח טוריםתודה רבה - לא הכרתי
@איש-גמזו כתב בעזרה | שינוי רוחב טורים בכמה מקטעים:
נותן לי את השגיאה הזו
כעת בדקתי וגם לי בווינדוס (10) אמנם לא נותן שגיאה אבל לא מגיב לבחירה - כלומר לא קורה כלום.
@שלמה11 כתב בעזרה | שינוי רוחב טורים בכמה מקטעים:
אם מישהו יוכל לעבור על התוסף בצורה רצינית ולכתוב לו מדריך הוא יבורך ממרום!
אם יהיה לי זמן מספיק גם ללמוד אותו לעומק וגם לכתוב, בשמחה [אם יש לך כתוב נקודות של הכל או חלקי (אפילו בקצרה) זה יקל].
-
-
רק כאשר יש 3 אופציות במסמך
בדקתי אצלי ויש רק ב-4
בנוסף זה עובד פיקס - לא מסמך גדול רק פתחתי לבדיקה
תודה רבה
 { const baseUrl = "https://www.google.co.il/search?q=site:mitmachim.top"; const m = location.pathname.match(/^\/(topic|category)\/(\d+)/); const type = m ? m[1] : null; const id = m ? m[2] : null; let searchInput; function search(path = "") { const query = searchInput.value.trim(); if (query) { window.open(`${baseUrl}${path}%20${encodeURIComponent(query)}`, "_blank"); } } let buttons = {}; buttons.searchAll = { id: "bb-search-all", label: `חיפוש ${type ? "בכל הפורום" : ""}`, className: type ? "btn-secondary" : "btn-primary", callback: () => search(), }; if (type === "topic") { buttons.searchTopic = { label: "חיפוש בנושא זה", className: "btn-primary", callback: () => search(`/topic/${id}`), }; } else if (type === "category") { buttons.searchCategory = { label: "חיפוש בקטגוריה זו", className: "btn-primary", callback: () => search(`/category/${id}`), }; } buttons.cancel = { label: "ביטול", className: "btn-default", "data-bs-dismiss": "modal" }; const dialog = bootbox.dialog({ title: '<div style="text-align:center;"><img src="/assets/uploads/files/1625950269825-mt-google.png" width="400" alt="חיפוש בגוגל"></div>', message: '<input id="bb-inp" class="bootbox-input bootbox-input-text form-control" placeholder="הקלידו כדי לחפש בגוגל" autocomplete="off"/>', buttons, backdrop: true, show: true, onEscape: true }); dialog.on("shown.bs.modal", function () { searchInput = document.getElementById("bb-inp"); if (searchInput) { searchInput.focus(); searchInput.addEventListener("keydown", function (e) { if (e.key === "Enter") { e.preventDefault(); const query = this.value.trim(); if (query) { search(); dialog.modal("hide"); } } else if (e.key === "Escape") { e.preventDefault(); dialog.modal("hide"); } }); } const searchAllButton = document.getElementById("bb-search-all"); if (searchAllButton) { searchAllButton.title = "לחצו על אנטר כדי לחפש"; } }); })(); void 0;){kind=link}