@לשכת-הרב כתב בלהורדה | "שולחן העורך" - תוסף עימוד חדש לוורד!!!:

תוסיף ביישור טורים, אופציה של יישור טורים 'לקטע הנבחר'

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

Spoiler

@EA613 כתב בלהורדה | "שולחן העורך" - תוסף עימוד חדש לוורד!!!:

אם שכחתי לסגור את הסוגריים האם הוא סוגר אותם אוטומטית???

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

@א.-יעקבוביץ-0 השקעתי בך...

Spoiler

הסבר קצר על הקוד:
מכניסים את השם של הרב (כולל המילה "הרב")
מחפש את השם של הרב כולל מעבר שורה לפני ואחרי השם (בכדי להימנע משמות שמופיעים בתוך הטקסט)
מרחיב את הטווח שנמצא אחורה, עד המילה "הרב" שיש מעבר שורה לפניה
מעתיק את הטווח לקובץ חדש
וחוזר חלילה...

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

Sub מצא_את_הערות_הרב()

    Dim rng As Range
    Dim rng2 As Range
    Dim findRng As Range
    Dim findText() As String
    Dim ravName As String
    Dim newDoc As Document
    Dim i As Integer
    
    ravName = InputBox("הכנס את שם הרב")
    ravName = Chr(13) & ravName & Chr(13)
    
    Set rng = ActiveDocument.Range
    Set rng2 = ActiveDocument.Range
    rng.Start = Search(rng.Duplicate, Chr(13) & "הרב", True).Start
    rng2.End = Search(rng2.Duplicate, Chr(13) & "הרב", True).Start
    Set findRng = rng.Duplicate
    
    Do Until findRng Is Nothing
        i = i + 1
        Set findRng = Search(rng.Duplicate, ravName, True)
        If findRng Is Nothing Then Exit Do
        rng2.End = findRng.Start
        With findRng
            If Not Search(rng2.Duplicate, Chr(13) & "הרב", False) Is Nothing Then
                .Start = Search(rng2.Duplicate, Chr(13) & "הרב", False).End
            End If
            .MoveStartUntil Chr(13)
            .MoveStart wdCharacter, 1
        End With
        ReDim Preserve findText(i)
        findText(i) = findRng.text
        rng.Start = findRng.End
    Loop
    
    Set newDoc = Documents.Add
    If i = 1 Then Exit Sub
    For i = LBound(findText) To UBound(findText)
        With newDoc.Range
            .InsertAfter Chr(13) & findText(i)
            .Collapse wdCollapseEnd
        End With
    Next i
End Sub
Function Search(rng As Range, text As String, forwardOption As Boolean) As Range
    
    With rng.Find
        .ClearFormatting
        .text = text
        .Forward = forwardOption
        .Wrap = wdFindStop
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        If .Execute Then
            Set Search = rng.Duplicate
        End If
        
    End With
End Function

@u88 תוסף נפרד

@u88 זאת בדיוק האפשרות של הוסף שכבה, בכל פעם שמוסיפים שכבה נוצרת תיבת טקסט חדשה שניתן להרחיב אותה לאיזה צד שרוצים (ניתן להוסיף שכבה רק על אחד מהטקסטים)

@מניין לגבי הבעיה הראשונה לזה מיועד סידור תיבות זו תחת זו
לגבי הבעיה השניה צריך לחשוב על זה

אני אסביר את העניין:

שכבה פירושה:
נקודה במסמך שבה תיבות הטקסט משנות צורה כגון: כאשר מסיימים את ה4 שורות הראשונות במסמך ורוצים להוסיף גם את הטקסט הראשי

איך זה עובד?
כל תיבה מקבלת מספור לפי מספר הטקסט (1-3) וכל שכבה מקבלת גם מספור בסדר עולה, וכך הקוד יכול לתאם בין התיבות השונות בשכבה.

סדר העבודה:
בתחילת כל עמוד אנחנו מוסיפים 2 שכבות וקובעים איזה רוחב באחוזים יהיה הטקסט הראשי.
בד"כ השכבה הראשונה תכיל את 2 הטקסטים של המפרשים (4 שורות עליונות) והשכבה השניה את כל שלושת הטקסטים (ניתן לבחור את האפשרויות שכבה ראשונה/שניה).

לאחר מכן נוכל להרחיב כל אחת מתיבות הטקסט לימין או לשמאל, וכן להרחיב עד סוף העמוד, באמצעות הקבוצה 'הרחב/כווץ'.

ניתן יהיה להוסיף שכבות נוספות באמצעות 'הוסף שכבה נוספת' - השכבות יקושרו אוטומטית לתיבות הקודמות.

ניתן להרחיב את תיבות הטקסט באמצעות הקבוצה 'התאמה' למספר שורות מסוים (ניתן גם להוסיף שורה 1 בודדת באמצעות 'הרחב/כווץ')
כמו"כ ניתן להרחיב את שאר תיבות הטקסט שבשכבה עד התיבה המסומנת (יש 2 אופציות)

כאשר מתחילים עמוד צריך לעשות 'קשר לקודם' וכאשר עוברים את ה32 תיבות טקסט המשורשרות צריך 'גזור והדבק'

כיון שהתיבות עומדות צמודות אחת לשניה אנחנו נצטרך להוסיף לכל תיבה שולים (הכונה לשולים בין הטקסט לגבול של תיבת הטקסט) באמצעות הקבוצה 'שולים'.

'סדר תיבות בעמוד' יסדר את התיבות זו תחת זו במקרה שהיתה תקלה באמצע.

@menajemmendel מה שהבאתי היה מאוד חלקי...
הכוונה לייצר תוסף כזה: (בפיתוח)

מוסיפים בתחילת כל עמוד את 2 השכבות הראשונות
ולאחר מכן אפשר למתוח את השכבות לצדדים ו/או להוסיף שכבות נוספות

@menajemmendel לוודא שהמפרשים יתאימו נשמע לי לא הגיוני כמעט.
אבל למקם את תיבות הטקסט לזה בדיוק מיועד קוד
תראה את זה: רב טקסט.docm
יש 2 קודים הראשון מוסיף את התיבות העליונות והשני 3 תיבות מתחת

@menajemmendel כפי שהסבירו פה קודם להוסיף תיבות טקסט (להוריד להם את השולים הפנימיים) ולשרשר אותם אחד לשני
(אני כבר באמצע העבודה...)

@pcinfogmach אכן, כבר תיקן אותי ידידינו @ע-ה-דכו-ע בפוסט הקודם.

@ע-ה-דכו-ע אתה צודק, עדכנתי

@pcinfogmach לא ממש הבנתי.
אם אני מוסיף עוד שורה לקוד
if stopCode then GoTo Ending
זה יכול להאט את הקצב?
כי הפקודה של שמירת המסמך לא נמצאת בקוד עצמו אלא בקוד של הטופס, או שהוא הופך את המשתנה stopCode (שהוא משתנה גלובלי) לחיובי.
הפקודה DoEvents קיימת בכל מקרה בקוד, ומבדיקה שערכתי היא לא משפיעה הרבה על קצב הקוד.
מה שככל הנראה האט את הקצב בעיצוב תורני זאת הפקודה
Application.StetusBur ובעז"ה אני אוריד אותה בעדכון הקרוב

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

אם התכוונת למשהו אחר תעדכן.

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

@דאנציג הוא אשר חשדתי...
אולי אני אוסיף שורה בקוד שאם מספר השורות השתנה הוא מוחק את הטאב שנוסף

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

@ע-ה-דכו-ע @pcinfogmach זה מה שיצא למעשה:
כאשר מריצים קוד מסובך:

וכאשר הקוד רץ:

@לשכת-הרב כתב בלהורדה | "שולחן העורך" - תוסף עימוד חדש לוורד!!!:

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

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

@יאיר-הבהיר הקוד שלך מכיל הרבה מאוד דברים מיותרים (כמו שקורה עם הקלטת מאקרו)
בעיקרון הפקודה המתאימה היא:

ActiveDocument.PageSetup.DifferentFirstPageHeaderFooter = True

או False

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

השאלה אם עדיין נצרך שיהיה גם בהתחלה אפשרות לשמור?

@יום-חדש-מתחיל כתב בבקשה | מאקרו תיקון שגיאות נפוצות בוורד - שולחן העורך:

ומה קורה אם משהו כותב:

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

אז צריך לחפש את " ' " ולהחליף ב "' "