@ישראל-כהן
יש לך תיבת טקסט או מסגרת במסמך?

@ישיבישע-amp-amp-amp-amp-x27-ר
שלום
אם מדובר שיש באמצע העמוד כותרת בפריסה של טור 1 המאקרו מזהה אותו ומיישר את שני חלקי העמודים בנפרד
אשמח לשמוע היכן כן נתקלת בבעיה ביישור טורים בחלק מן העמוד
בהצלחה

@רק-מה
יפה
לשלם זה נחמד השאלה כמה ועל מה.

@רק-מה
הסדרת?
אם לא תגדיר יותר את הבעיה שלך
כי במאקרו שהבאתי למעלה הוא בודק שהכותרת היא רק שורה אחת

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

@ASDF1345
כעיקרון המאקרו עושה גם את זה אם הבנתי נכון את כוונתך אלא שבמקרה וההפרש גדול ממילא הרווחים יצטרכו להיות גדולים והוגדר מקסימום מרווח 30 נק' (וזה בשביל הנראות הבסיסית ) אתה יכול לשנות את זה ידנית בקוד
בהצלחה

@menajemmendel
במקרה כזה המאקרו מטפל בטור 1 ומצמצם רווחים יכול להיות שאיניו עומד בטווח של מינמום 2.5 נק' ואם אתה מכיר בVBA אתה יכול לשנות בקוד
בהצלחה

@רק-מה
הוא נתקע ועוצר באמצע כי יש יותר מ9 כותרות רצופות
וורד מוגבל לסדרה של 9 כותרות
ולא ניתן לעשות יותר מ9 סדרות של כותרות

@רפרם-ב-ר-פפא כתב בעזרה | חיפוש שורה בודדת בוורד עם תנאים מסויים:

כנראה עשית יותר מ9 כותרות רצופות ואין לוורד הגדרה ליותר מכותרת 9
תקן אותי אם אני טועה

@רק-מה
אצלי הוא לא עושה על פסקאות לא מודגשות
ופועל רק על פסקה שכולה מודגשת
זה הקובץ שהעלת לאחר פעולת המאקרו
ב.docx זה לא מה שבקשת?????????????????

@רק-מה
הנה

Sub החלת_סגנון()
Dim B, I As Double

ActiveDocument.Paragraphs(1).Range.Select
For P = 1 To ActiveDocument.Paragraphs.Count
                   For B = 1 To Selection.Paragraphs.Count
                    Selection.Paragraphs(B).Range.Select
                    Next B
If Selection.PageSetup.TextColumns.Count = 1 And Selection.Range.Bold = True Then
I = I + 1
Selection.Style = ActiveDocument.Styles("כותרת " & I)
Selection.MoveDown wdParagraph, 1
Else
Selection.MoveDown wdParagraph, 1
I = 0
End If
Next P
End Sub

בהצלחה!!!!!

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

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

@פשוטער-איד
לפי מה שזה נראה מצב תצוגה נמצא אצלך בזה לצד זה
שנה לאנכי וצריך לעבוד
בהצלחה

@אוריי
כמה שידוע לי ל " i " לא צריך הצהרת משתנה שהוא בסיסי(עובד למעשה גם בלי) והוספתי בקוד החדש

@121244
להלן קוד עם ספירה לכמה מילים וסה"כ
אם זה מה שהתכוונת

Sub החלפה_כולל_ספירה()
Dim I, P, K, L, J As Double
arrFind = Array("א", "ב", "ג")
arrReplace = Array("ד", "ה", "ו")
For I = 0 To ActiveDocument.Words.Count
For F = 0 To UBound(arrFind)
'החלפה
    Selection.Find.Text = arrFind(F)
     Selection.Find.Replacement.Text = arrReplace(F)
    Selection.Find.Wrap = wdFindContinue
    Selection.Find.Execute Replace:=wdReplaceOne
    'ספירה
    If Selection.Range = arrReplace(0) Then
    P = P + 1
   ElseIf Selection.Range = arrReplace(1) Then
   K = K + 1
    ElseIf Selection.Range = arrReplace(2) Then
    J = J + 1
  Else
End If
Selection.EndKey Unit:=wdLine
Next F
Next I
'סה''כ
L = P + K + J
'הודעה
 MsgBox arrFind(0) & " " & P & " פעמים " & arrFind(1) & " " & K & " פעמים " & arrFind(2) & " " & J & " פעמים סה''כ החלפות " & L
End Sub

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

@רק-מה
מחפש כל מה שתואם ל טור 1 ומודגש
בהצלחה

@רק-מה
להלן מאקרו כמו שבקשת אלא רק לא מתייחס לסימון בשורה 1
המאקרו עושה שורה ראשונה כותרת 1 שניה 2 וכו' ואם יש הפסק באמצא מתחיל שוב ראשונה 1 שניה 2 וכו' וכו'

Sub החלת_סגנון()
ActiveDocument.Paragraphs(1).Range.Select
For P = 1 To ActiveDocument.Paragraphs.Count
If Selection.PageSetup.TextColumns.Count = 1 And Selection.Range.Bold = True Then
I = I + 1
Selection.Style = ActiveDocument.Styles("כותרת " & I)
Selection.MoveDown wdParagraph, 1
Else
Selection.MoveDown wdParagraph, 1
I = 0
End If
Next P
End Sub

בהצלחה בתקווה שהועלתי

@121244
אותה פקודה למספר מילים? מספור כל מילה או סה"כ מופעים של כל המילים?
הסבר!!

@menajemmendel
אתה יכול לבדוק לפי גבוה יחסי לדף
לכאורה עדיף ע"י שיורד שורה ובודק גובה ואם שורה גבוהה משורה שלפניה יש מעבר עמוד
ולהלן הקוד שלך אם הגדרת גבוה במקום מספר עמוד

Selection.Footnotes(1).Range.Select
Set NOTE = Selection.Range

Selection.SetRange Start:=NOTE.Start, End:=NOTE.Start
NOTE_BEGGINIG = Selection.Range.Information(wdVerticalPositionRelativeToPage)
Selection.SetRange Start:=NOTE.End, End:=NOTE.End
NOTE_BEGGINIG = Selection.Range.Information(wdVerticalPositionRelativeToPage)

בהצלחה