@נפתלי-צבי-יהודה כתב:

תראה לי כזה דבר שהערה מפוצלת בשני עמודים!!

למה לא תסתכל בדוגמא כאן ותראה שהערה 3 עובר מעמוד הראשון לעמוד השני, מה לא ברור.

@נפתלי-צבי-יהודה כתב:

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

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

@שמעון-פרידנן אכן הבעיה היא בגלל המעבר מקטע, הפיתרון צריך להיות בפיזור הרווחים בעמוד הראשון ואז זה מסתדר.
888a614c-f0ea-4711-b051-8117026cf96e-דוגמא 2.docx

@ישיבישער כתב:

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

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

עיין כאן

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

אחת מהשגיאות הנפוצות בהקלדה היא כתיבת מילה מילה כפולה, וגם הרבה מאוד פעמים גם גם אחרי הגהה גם מומחים מפספסים אותה ולא מוצאים את את זה (ההסבר המדעי הוא כי המוח נוטה "לתקן" את הקריאה באופן אוטומטי), ומצאתי על זה פיתרון קל מאוד דרך נוסחה פשוטה בחיפוש הרגיל של וורד.
פשוט פותחים את חלונית החיפוש וההחלפה (Ctrl + H), מסמנים את האפשרות "השתמש בתווים כלליים", ומדביקים בשורת החיפוש את הקוד הבא:
(<*>) \1
בלחיצה על חפש את הבא וורד יסרוק את המסמך ויקפוץ ישירות לכל מקום שבו יש מילה שחוזרת על עצמה.
מי שרוצה אפשר גם על ידי מאקרו שעושה את זה, יש שני אפשרויות, אחד שצובע כל המילים הכפולות בצהוב, ואחד שפשוט מחפש את המופע הבא של מילים כפולות.
דרך אגב יש כאן גם מאקרו שמחפש פיסקאות כפולות זהות אחת ליד השניה, [בזה אין אפשרות דרך חיפוש רגיל רק במאקרו], וגם בזה יש שני האפשרויות הנ"ל עם צביעה ובלי צביעה.

Sub חיפוש_מילים_כפולות_וצביעתן_בצהוב()
    Dim rng As Range
    Set rng = ActiveDocument.Content
    
    With rng.Find
        .ClearFormatting
        .Text = "(<*>) \1"
        .MatchWildcards = True
        .Forward = True
        .Wrap = wdFindStop
        
        ' לולאה שעוברת על כל המילים הכפולות ומסמנת אותן בצהוב
        Do While .Execute
            rng.HighlightColorIndex = wdYellow
            rng.Collapse wdCollapseEnd
        Loop
    End With
    
    MsgBox "החיפוש הסתיים! כל המילים הכפולות סומנו בצהוב.", vbInformation, "סיום בדיקה"
End Sub
Sub חיפוש_מילים_כפולות()
    Dim rng As Range
    Set rng = Selection.Range
    
    ' הגדרת החיפוש להתחלה ממיקום הסמן הנוכחי והלאה
    rng.Collapse wdCollapseEnd
    Set rng = ActiveDocument.Range(rng.End, ActiveDocument.Content.End)
    
    With rng.Find
        .ClearFormatting
        .Text = "(<*>) \1"
        .MatchWildcards = True
        .Forward = True
        .Wrap = wdFindStop
        
        ' אם נמצא צמד מילים כפולות, המאקרו יבחר (יסמן) אותו ויעצור
        If .Execute Then
            rng.Select
        Else
            MsgBox "לא נמצאו מילים כפולות נוספות בהמשך המסמך.", vbInformation, "חיפוש הסתיים"
        End If
    End With
End Sub
Sub חיפוש_פסקאות_כפולות_וצביעתן_באדום()
    Dim i As Long
    Dim doc As Document
    Set doc = ActiveDocument
    
    ' כיבוי עדכון מסך לביצועים מהירים בקבצים גדולים
    Application.ScreenUpdating = False
    
    ' מעבר על הפסקאות מהסוף להתחלה (בטוח יותר ללולאות מסוג זה)
    For i = doc.Paragraphs.Count To 2 Step -1
        ' השוואת הטקסט של הפסקה הנוכחית לפסקה שלפניה (ללא רווחים מיותרים בסוף)
        If Trim(doc.Paragraphs(i).Range.Text) = Trim(doc.Paragraphs(i - 1).Range.Text) Then
            ' אם הן זהות, צביעת הפסקה השנייה באדום
            doc.Paragraphs(i).Range.Font.ColorIndex = wdRed
        End If
    Next i
    
    Application.ScreenUpdating = True
    MsgBox "הסריקה הסתיימה! פסקאות כפולות וזהות נצבעו באדום.", vbInformation
End Sub
Sub חיפוש_פסקאות_כפולות()
    Dim doc As Document
    Dim currentPara As Long
    Dim totalParas As Long
    Dim found As Boolean
    
    Set doc = ActiveDocument
    totalParas = doc.Paragraphs.Count
    found = False
    
    ' זיהוי מספר הפסקה שבה הסמן נמצא כרגע
    currentPara = doc.Range(0, Selection.Start).Paragraphs.Count
    If currentPara = 0 Then currentPara = 1
    
    ' לולאה שרצה מהפסקה הנוכחית ועד סוף המסמך
    Dim i As Long
    For i = currentPara + 1 To totalParas
        ' השוואת הפסקה הנוכחית לפסקה שלפניה
        If Trim(doc.Paragraphs(i).Range.Text) = Trim(doc.Paragraphs(i - 1).Range.Text) Then
            ' אם נמצאה כפילות, בחר את הפסקה ועצור
            doc.Paragraphs(i).Range.Select
            found = True
            Exit For
        End If
    Next i
    
    ' הודעה במידה ולא נמצאו פסקאות כפולות נוספות בהמשך המסמך
    If Not found Then
        MsgBox "לא נמצאו פסקאות כפולות נוספות בהמשך המסמך.", vbInformation, "חיפוש הסתיים"
    End If
End Sub

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

זה מה שנטפרי כותבים באתר שלהם, אז בינתיים זה מה (יש) [אין].

@YAHBDK נו, תכלית מה אפשר לעשות?

@meir-lamdan יש לי נטפרי, אבל מה קשור מוזיקה לסינון, וגם לא נותן שם לשלוח לבדיקה, פשוט כתוב על זה 0:00 כאילו אין כלום בקובץ.

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

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

@d.a1
יצויין שאם אני מכניס את המספר הרגיל [הכשר] שלי הוא כן מאשר אבל אני לא מקבל שם הודעות

@d.a1 זה לא עוזר

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

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

@שלמה11 מצאתי את הפיתרון בלי ספירת העמודים בכלל, החלפתי למעלה את החדש המעודכן.

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

Sub כותרת_בסוף_עמוד()
    ' הגדרת משתנים לזיהוי פסקאות, תוכן, ומיקומי סמן
    Dim currentPara As Paragraph
    Dim hasSectionBreak As Boolean
    Dim cleanText As String
    Dim startPosition As Long
    Dim nextPagePosition As Long
    
    ' הקפאת תצוגת המסך להאצת פעולת המאקרו
    Application.ScreenUpdating = False
    
    ' הגדרת מנגנון הקפיצה של וורד שיגיב לעמודים (ולא לשורות או הערות)
    Application.Browser.Target = wdBrowsePage
    
    ' הזזת הסמן פסקה אחת למטה כדי לא להיתקע על כותרת שכבר נמצאה בלחיצה הקודמת
    Selection.MoveDown Unit:=wdParagraph, Count:=2
    
    ' תחילת לולאה שרצה קדימה עמוד אחרי עמוד
    Do
        ' שמירת מיקום הסמן הנוכחי כדי לבדוק בהמשך אם הגענו לסוף המסמך
        startPosition = Selection.Start
        
        ' פקודה פיזית המקפיצה את הסמן לתחילת העמוד הבא
        Application.Browser.Next
        
        ' תנאי עצירה: אם המיקום לא השתנה לאחר הקפיצה, סימן שהגענו לסוף המסמך והלולאה מסתיימת
        If Selection.Start = startPosition Then Exit Do
        
        ' שמירת מיקום תחילת העמוד החדש כדי לחזור אליו במדויק בסוף הבדיקה
        nextPagePosition = Selection.Start
        
        ' חזרה תו אחד אחורה כדי להגיע בדיוק לתו הסוגר של העמוד הקודם
        Selection.MoveLeft Unit:=wdCharacter, Count:=1
        
        ' הגדרת הפסקה עליה עומד הסמן כפסקה הנוכחית לבדיקה
        Set currentPara = Selection.Paragraphs(1)
        
        ' בדיקה אם הפסקה מכילה תו מעבר מקטע (Chr12) או הגדרת מעבר עמוד לפניה
        hasSectionBreak = (InStr(currentPara.Range.Text, Chr(12)) > 0 Or currentPara.Range.ParagraphFormat.PageBreakBefore)
        
        ' אם נמצא מעבר מקטע, מתחילה בדיקת התוכן שלפניו
        If hasSectionBreak Then
            
            ' ניקוי רווחים, אנטרים ותווי מקטע מהפסקה כדי לבדוק אם יש בה טקסט אמיתי
            cleanText = Trim(Replace(Replace(Replace(currentPara.Range.Text, vbCr, ""), vbLf, ""), Chr(12), ""))
            
            ' לולאה שעולה פסקאות למעלה כל עוד היא פוגשת שורות ריקות או מעברי מקטע נסתרים
            Do While Len(cleanText) = 0
                Selection.MoveUp Unit:=wdParagraph, Count:=1
                Set currentPara = Selection.Paragraphs(1)
                cleanText = Trim(Replace(Replace(Replace(currentPara.Range.Text, vbCr, ""), vbLf, ""), Chr(12), ""))
                
                ' הגנה: עצירת הלולאה למקרה הקיצוני שהגענו לתחילת המסמך (מיקום 0)
                If Selection.Start = 0 Then Exit Do
            Loop
            
            ' בדיקה אם הפסקה עם הטקסט שמצאנו מוגדרת ככותרת (רמות מתאר 1 עד 9)
            If currentPara.OutlineLevel >= 1 And currentPara.OutlineLevel <= 9 Then
                
                ' החזרת עדכון התצוגה כדי שהמשתמש יראה את הסימון במסמך
                Application.ScreenUpdating = True
                
                ' בחירה (סימון) של הכותרת המנותקת שנמצאה
                currentPara.Range.Select
                
                ' השמעת צליל התראה
                Beep
                
                ' יציאה מהמאקרו ועצירה לתיקון המשתמש
                Exit Sub
            End If
            
        End If
        
        ' החזרת הסמן (טלפורט) לתחילת העמוד הבא ששמרנו מראש, למניעת לולאה אינסופית
        Selection.Start = nextPagePosition
        Selection.End = nextPagePosition
        
    Loop
    
    ' החזרת עדכון התצוגה למצב רגיל בסיום המסמך
    Application.ScreenUpdating = True
    
    ' הצגת הודעה שהסריקה הושלמה בהצלחה
    MsgBox "הסריקה הסתיימה. לא נמצאו כותרות מנותקות נוספות בסופי עמודים.", vbInformation, "סוף מסמך"
End Sub

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