@מניין תודה על העזרה
מי שכן עובד לו שיעדכן
אם תוכל לפרט יותר מתי יש את שגיאה "9"
ומה גירסת הווינדוס והאופיס שלך

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

@דאנציג כתב בלהורדה | תוסף רב טקסט לוורד - חינם!!!:

אך לצערי גם לי מופיע הבאג:

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

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

אין לי מושג מה זה... אבל בכל זאת: @הנהלה

@מניין כתב בלהורדה | תוסף רב טקסט לוורד - חינם!!!:

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

זה רעיון די פשוט לביצוע - והוא יעודכן בעז"ה.

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

כנ"ל...

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

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

צריך להוסיף לחצן למחיקת תיבות, וכן למחיקת כל התיבות למקרים שרוצים לשנות.

גם זה ענין די פשוט - וכנ"ל...
אם כי מומלץ להכיר את חלונית הבחירה - לשונית בית>עריכה>בחר>חלונית הבחירה

ותודה רבה על הכל, זה נראה השקעה אדירה ששוברת שיאים חדשים

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

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

@u88 האם יש לך ידע בVBA? (כי בלי זה אין מה להתחיל...)

בכל זאת כתבתי לך מדריך מקוצר ע"פ הקובץ לעיל:

אז קודם כל מה זה UserForm?

• UserForm הוא טופס של אופיס המאפשר יצירת אינטראקציה עם המשתמש.

• באמצעות UserForm המשתמש יכול לסמן אופציות, להכניס נתונים, ועוד...

כיצד מציגים אותו למשתמש?

• באם נרצה להציג את הUserForm לפני המשתמש, נכניס את הקוד הבא:

UserForm.show

• במקום המילים "UserForm" נכניס את השם של הטופס, בקובץ שהובא לעיל הוא נקרא: "frmDuplicatesTool" וזהו בעצם הקוד הראשון שנמצא בModule הרגיל של הקובץ:

Sub ShowDuplicateTool()
    frmDuplicatesTool.Show
End Sub

איך לשנות שם לUserForm או לפקדים שלו?

• על מנת לשנות את השם של הטופס נבחר אותו בחלון של עורך הVBA נלחץ על F4 (יש לשים לב שמקש הFN לחוץ), ייפתח לנו חלון בצד, בשורה הראשונה ניתן לשנות את שם הטופס.

*באם נרצה להחליף שם לאחד הפקדים נבחר אותו, ונשנה את שמו באותה צורה.

יצירת הפקדים:

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

• אנו צריכים לשנות גם את שמות הפקדים, שלושת הפקדים של תיבות הסימון נקראים: "chkHighlight", "chkDelete", "chkExport" (איך מחליפים? כבר אמרנו...)
• עכשיו נשאר לנו רק את הפקד האחרון, הפקד הזה מריץ את הקוד
• נשנה את השם שלו ל"btnRun"

כיצד להריץ קודים באמצעות טופס UserForm?

*לאחמ"כ נלחץ על הפקד לחיצה כפולה, בחלון שנפתח נוסיף את הקוד הבא:

Private Sub btnRun_Click()
    Me.Hide
    RunDuplicateTool chkHighlight.Value, chkDelete.Value, chkExport.Value
    Unload Me
End Sub

• הקוד הזה מופעל בעת לחיצה על הפקד, ניתן לראות זאת משמו של הקוד שמשלב את שם הפקד בתוספת המילה "Click", והוא מבצע את הפעולות הבאות:

1. מסתיר את הטופס במהלך ריצת הקוד
2. מפעיל את הקוד שנמצא בתוך הModule הרגיל המאקרו נקרא: "RunDuplicateTool"
3. המאקרו מקבל 3 ערכים בתחילת הריצה, המופרדים באמצעות פסיקים, שהם בעצם הערכים של תיבות הסימון (השם של תיבת הסימון + ".value" = ערך)
4. כעת המאקרו ירוץ, באם נסתכל על השורה הראשונה של המאקרו שאנו מריצים (שכזכור נמצא בModule הרגיל):

Sub RunDuplicateTool(highlightOnly As Boolean, doDelete As Boolean, exportReport As Boolean)

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

סיכום:

אם קיבלתם קוד מAI ואתם רוצים להוסיף אותו לקובץ וורד, תבצעו את הפעולות הבאות:

1. הוספה של הקודים לModule הרגיל.
2. יצירת טופס UserForm עם פקדים.
3. שינוי השמות של הטופס והפקדים.
4. הוספת הקוד של הטופס, באמצעות לחיצה כפולה על אחד הפקדים (או הטופס עצמו) והחלפת הקוד, בקוד שAI הביא לכם
5. כמה פשוט.......

Spoiler

בסיעתא דשמיא יצא לאור תוסף רב טקסט לוורד

• התוסף מאפשר הוספה של תיבות טקסט זו תחת זו כולל קישור שלהן אחת לשניה

• באמצעות התוסף ניתן ליצור עמודי גמרא וכדו'

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

• יש לשים לב להגבלה של וורד ל32 תיבות טקסט מקושרות, דבר שעלול לגרום לבאגים במסמכים ארוכים (בעז"ה תעודכן בקרוב האופציה של 'גזור והדבק' - מה שיהוה פיתרון (לפחות חלקי) לבעיה)

אשמח לקבל תגובות למי שהתוסף מועיל לו, וכן עצות לשיפור ועדכון התוסף

להורדה: רב טקסט 1.1
קובץ ZIP: רב טקסט 1.1.zip סיסמא: 1234

תוספים נוספים שלי:
תוסף שולחן העורך - סט כלים לעורך התורני
תוסף אקורדים - מאפשר הוספה של אקורדים בוורד

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

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

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

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 כל עוד הפקודה לא משנה את המסמך או האפליקציה או נגשת לנתונים של המסמך (בדיקת מיקום מספר שורות וכו'), היא לא לוקחת כמעט זמן.

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

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

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

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