מדריך | עיצוב כל הפיסקאות הממורכזות לבעלות טור בודד

[מאקרו]

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

Sub טור_אחד_שאר_המסמך()
Dim Alerts 
Alerts = Application.DisplayAlerts
Application.DisplayAlerts = wdAlertsNone
Application.ScreenUpdating = False
 Do
    Selection.Find.ClearFormatting
    With Selection.Find.ParagraphFormat
        .Alignment = wdAlignParagraphCenter
    End With
    With Selection.Find
        .Text = "^p"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindStop
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchControl = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Dim a
    a = Selection.Find.Execute
    If a = True Then
        Selection.Paragraphs(1).Range.Select
        ActiveDocument.Range(Start:=Selection.Start, End:=Selection.Start). _
            InsertBreak Type:=wdSectionBreakContinuous
        Selection.Start = Selection.Start + 1
        ActiveDocument.Range(Start:=Selection.End, End:=Selection.End).InsertBreak _
             Type:=wdSectionBreakContinuous
        With Selection.PageSetup.TextColumns
            .SetCount NumColumns:=1
            .EvenlySpaced = True
            .LineBetween = False
        End With
        Selection.MoveRight Unit:=wdCharacter, Count:=1
    End If
 Loop While a = True
 Application.DisplayAlerts = Alerts
 Application.ScreenUpdating = True

End Sub

אמנם כאשר יש כמה כותרות רצופות יהיה מעבר מקטע ביניהם ודו"ק.

[מניין]

@מאקרו בגלל בעיה זו עשיתי את המאקרו כמו שעשיתי, ובזה אפשר לשנות לכמה כותרות שרוצים, לדוגמא במאקרו הבא זה לשני כותרות רצופות, 58b15fbc-d101-479b-aba9-9a00633b46bf-שני כותרות.txt ובדרך כלל אין יותר משתיים, ובכל אופן אם צריך אפשר לשנות את המספר בשורה זו [כאן כתוב שתיים לשני כותרות] לכמה כותרות שרוצים שיכללו בטור אחד Selection.MoveDown Unit:=wdParagraph, Count:=2, Extend:=wdExtend

עריכה: המאקרו הסופי נמצא כאן.

[מניין]

@מאקרו יש איזה בעיה בשורה הראשונה

[מאקרו]

@מניין מה הבעיה בזה? אצלי עובד מצוין.
אפשר לנסות האם זה פותר את הבעיה שלך

Dim Alerts
Alerts = Application.DisplayAlerts

[מניין]

@מאקרו כתב במדריך | עיצוב כל הפיסקאות הממורכזות לבעלות טור בודד:

@מניין מה הבעיה בזה? אצלי עובד מצוין.
אפשר לנסות האם זה פותר את הבעיה שלך

Dim Alerts
Alerts = Application.DisplayAlerts

ניהיה לי עכשיו הבעיה הזאת

[מאקרו]

@מניין גם כאן הפתרון כדלעיל:

Dim a

[מניין]

@מאקרו איך עשית שיחזור על כל המסמך ויעצור בסוף, האם אפשר לעשות את זה על המקרו שלי גם כן?

[מאקרו]

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

Selection.MoveDown Unit:=wdParagraph, Count:=2, Extend:=wdExtend

לתוך הקוד הנוכחי.

[מניין]

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

עריכה: המאקרו הסופי נמצא כאן.

[מניין]

@מאקרו כתב במדריך | עיצוב כל הפיסקאות הממורכזות לבעלות טור בודד:

@מניין גם כאן הפתרון כדלעיל:

Dim a

אולי תוכל לעזור לי גם בזה?

[מניין]

פוסט זה נמחק!

[מניין]

פוסט זה נמחק!

[מאקרו]

@מניין כתב במדריך | עיצוב כל הפיסקאות הממורכזות לבעלות טור בודד:

    .SpaceBeforeAuto = False
    .SpaceAfterAuto = False

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

[מניין]

@מאקרו כתב במדריך | עיצוב כל הפיסקאות הממורכזות לבעלות טור בודד:

@מניין כתב במדריך | עיצוב כל הפיסקאות הממורכזות לבעלות טור בודד:

    .SpaceBeforeAuto = False
    .SpaceAfterAuto = False

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

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

[מאקרו]

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

[מאקרו]

@מניין כתב במדריך | עיצוב כל הפיסקאות הממורכזות לבעלות טור בודד:

וגם עם אפשרות לשלב יחד על ידי שאלה אם להמשיך לכל המסמך או רק על פסקא אחת.

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

[מניין]

@מאקרו כתב במדריך | עיצוב כל הפיסקאות הממורכזות לבעלות טור בודד:

@מניין כתב במדריך | עיצוב כל הפיסקאות הממורכזות לבעלות טור בודד:

וגם עם אפשרות לשלב יחד על ידי שאלה אם להמשיך לכל המסמך או רק על פסקא אחת.

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

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

[מניין]

פוסט זה נמחק!

[מאקרו]

@מניין עובד מעולה חוץ מהבעיה שהזכרת לגבי פסקה ראשונה, בעז"ה אעלה קוד עם תיקון לזה.
לגבי פיסקאות בעמוד השער וכו' אפשר לעשות שהמאקרו יחפש פיסקה לפי סגנון מסויים (אולי כל הסגנונות שמתחילים ב- כותרת...)

[מניין]

@מאקרו כתב במדריך | עיצוב כל הפיסקאות הממורכזות לבעלות טור בודד:

@מניין עובד מעולה חוץ מהבעיה שהזכרת לגבי פסקה ראשונה, בעז"ה אעלה קוד עם תיקון לזה.
לגבי פיסקאות בעמוד השער וכו' אפשר לעשות שהמאקרו יחפש פיסקה לפי סגנון מסויים (אולי כל הסגנונות שמתחילים ב- כותרת...)

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