דילוג לתוכן
  • חוקי הפורום
  • פופולרי
  • לא נפתר
  • משתמשים
  • חיפוש גוגל בפורום
  • צור קשר
עיצובים
  • Light
  • Cerulean
  • Cosmo
  • Flatly
  • Journal
  • Litera
  • Lumen
  • Lux
  • Materia
  • Minty
  • Morph
  • Pulse
  • Sandstone
  • Simplex
  • Sketchy
  • Spacelab
  • United
  • Yeti
  • Zephyr
  • Dark
  • Cyborg
  • Darkly
  • Quartz
  • Slate
  • Solar
  • Superhero
  • Vapor

  • ברירת מחדל (ללא עיצוב (ברירת מחדל))
  • ללא עיצוב (ברירת מחדל)
כיווץ
מתמחים טופ
  1. דף הבית
  2. תוכנות
  3. יישומי אופיס
  4. וורד
  5. VBA - word
  6. עזרה הדדית - VBA word
  7. בירור | האם הולך לצאת גירסה חדשה ומשוכללת של תוסף עיצוב תורני

בירור | האם הולך לצאת גירסה חדשה ומשוכללת של תוסף עיצוב תורני

מתוזמן נעוץ נעול הועבר עזרה הדדית - VBA word
45 פוסטים 9 כותבים 1.2k צפיות 14 עוקבים
  • מהישן לחדש
  • מהחדש לישן
  • הכי הרבה הצבעות
תגובה
  • תגובה כנושא
התחברו כדי לפרסם תגובה
נושא זה נמחק. רק משתמשים עם הרשאות מתאימות יוכלו לצפות בו.
  • menajemmendelM menajemmendel

    @דאנציג כתב בבירור | האם הולך לצאת גירסה חדשה ומשוכללת של תוסף עיצוב תורני:

    תלוי איזה סוג הערות שוליים, רוב ככל המקורות כשהם בהערות שוליים, הם ברצף.

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

    ה מנותק
    ה מנותק
    הבל הבלים
    כתב נערך לאחרונה על ידי
    #34

    @menajemmendel כתב בבירור | האם הולך לצאת גירסה חדשה ומשוכללת של תוסף עיצוב תורני:

    אני לא יודע למה אתה מתכוון

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

    תגובה 1 תגובה אחרונה
    1
    • מ מנותק
      מ מנותק
      מניין
      כתב נערך לאחרונה על ידי
      #35

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

      ש תגובה 1 תגובה אחרונה
      1
      • מ מניין

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

        ש מנותק
        ש מנותק
        שלמה11
        כתב נערך לאחרונה על ידי
        #36

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

        מ תגובה 1 תגובה אחרונה
        2
        • ש שלמה11

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

          מ מנותק
          מ מנותק
          מניין
          כתב נערך לאחרונה על ידי
          #37

          @שלמה11 כתב בבירור | האם הולך לצאת גירסה חדשה ומשוכללת של תוסף עיצוב תורני:

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

          כמו לכל דבר יהיה פיתרון גם על זה

          ש תגובה 1 תגובה אחרונה
          0
          • מ מניין

            @שלמה11 כתב בבירור | האם הולך לצאת גירסה חדשה ומשוכללת של תוסף עיצוב תורני:

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

            כמו לכל דבר יהיה פיתרון גם על זה

            ש מנותק
            ש מנותק
            שלמה11
            כתב נערך לאחרונה על ידי
            #38

            @מניין אני כבר חושב ע"ז הרבה זמן...

            מ תגובה 1 תגובה אחרונה
            0
            • ש שלמה11

              @מניין אני כבר חושב ע"ז הרבה זמן...

              מ מנותק
              מ מנותק
              מניין
              כתב נערך לאחרונה על ידי
              #39

              @שלמה11 הרעיון הוא שהוא עובד רק על העמוד הזה, ולכן כשמגיע התור של ההערה שנמצא בעמוד הבא הוא עוצר.
              בערך ככה

               ' קבלת מספר העמוד של ההערה הראשונה
                  pgStart = ActiveDocument.Footnotes(1).Reference.Information(wdActiveEndPageNumber)
              
                 ' בדיקה אם ההערה בעמוד המקורי
                          If ft.Reference.Information(wdActiveEndPageNumber) <> pgStart Then Exit For
              
              menajemmendelM ש 2 תגובות תגובה אחרונה
              0
              • מ מניין

                @שלמה11 הרעיון הוא שהוא עובד רק על העמוד הזה, ולכן כשמגיע התור של ההערה שנמצא בעמוד הבא הוא עוצר.
                בערך ככה

                 ' קבלת מספר העמוד של ההערה הראשונה
                    pgStart = ActiveDocument.Footnotes(1).Reference.Information(wdActiveEndPageNumber)
                
                   ' בדיקה אם ההערה בעמוד המקורי
                            If ft.Reference.Information(wdActiveEndPageNumber) <> pgStart Then Exit For
                
                menajemmendelM מנותק
                menajemmendelM מנותק
                menajemmendel
                כתב נערך לאחרונה על ידי menajemmendel
                #40

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

                תגובה 1 תגובה אחרונה
                2
                • מ מניין

                  @שלמה11 הרעיון הוא שהוא עובד רק על העמוד הזה, ולכן כשמגיע התור של ההערה שנמצא בעמוד הבא הוא עוצר.
                  בערך ככה

                   ' קבלת מספר העמוד של ההערה הראשונה
                      pgStart = ActiveDocument.Footnotes(1).Reference.Information(wdActiveEndPageNumber)
                  
                     ' בדיקה אם ההערה בעמוד המקורי
                              If ft.Reference.Information(wdActiveEndPageNumber) <> pgStart Then Exit For
                  
                  ש מנותק
                  ש מנותק
                  שלמה11
                  כתב נערך לאחרונה על ידי שלמה11
                  #41

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

                  Function getFootnotesRange(pageRange As Range) As Range
                  
                      Dim pageNum As Integer
                      Dim originalEnd As Integer
                      Dim RangePosition As Double
                  
                      pageNum = pageRange.Information(wdActiveEndPageNumber)
                  
                      If pageRange.Footnotes.Count > 0 Then
                          Set getFootnotesRange = pageRange.Footnotes(1).Range
                          With getFootnotesRange
                              .Collapse wdCollapseStart
                              Do
                                  originalEnd = .End
                                  RangePosition = .Characters.Last.Information(wdVerticalPositionRelativeToPage)
                                  .MoveEnd wdWord, 1
                                  If RangePosition > .Characters.Last.Information(wdVerticalPositionRelativeToPage) Then Exit Do
                                  If originalEnd = .End Then Exit Do
                                  If .Characters.Last.Information(wdActiveEndAdjustedPageNumber) > pageNum Then Exit Do
                              Loop
                              .End = originalEnd
                          End With
                      End If
                  End Function
                  
                  

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

                  menajemmendelM תגובה 1 תגובה אחרונה
                  2
                  • ש שלמה11

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

                    Function getFootnotesRange(pageRange As Range) As Range
                    
                        Dim pageNum As Integer
                        Dim originalEnd As Integer
                        Dim RangePosition As Double
                    
                        pageNum = pageRange.Information(wdActiveEndPageNumber)
                    
                        If pageRange.Footnotes.Count > 0 Then
                            Set getFootnotesRange = pageRange.Footnotes(1).Range
                            With getFootnotesRange
                                .Collapse wdCollapseStart
                                Do
                                    originalEnd = .End
                                    RangePosition = .Characters.Last.Information(wdVerticalPositionRelativeToPage)
                                    .MoveEnd wdWord, 1
                                    If RangePosition > .Characters.Last.Information(wdVerticalPositionRelativeToPage) Then Exit Do
                                    If originalEnd = .End Then Exit Do
                                    If .Characters.Last.Information(wdActiveEndAdjustedPageNumber) > pageNum Then Exit Do
                                Loop
                                .End = originalEnd
                            End With
                        End If
                    End Function
                    
                    

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

                    menajemmendelM מנותק
                    menajemmendelM מנותק
                    menajemmendel
                    כתב נערך לאחרונה על ידי menajemmendel
                    #42

                    @שלמה11 התחלת כבר עם טעות בשורה 9, זה לא השאלה אם יש יותר מ0 אלא יותר מ1, אם יש רק הערה 1 לא צריך לעשות כלום.
                    וחבל לבזבז את הזמן עם GPT, הוא לא קולט טוב את הניואנסים האלה (אני לא ח''ו מתנגד לידידנו GPT, רק שלצרכים האלה לא מועיל,

                    ש תגובה 1 תגובה אחרונה
                    1
                    • menajemmendelM menajemmendel

                      @שלמה11 התחלת כבר עם טעות בשורה 9, זה לא השאלה אם יש יותר מ0 אלא יותר מ1, אם יש רק הערה 1 לא צריך לעשות כלום.
                      וחבל לבזבז את הזמן עם GPT, הוא לא קולט טוב את הניואנסים האלה (אני לא ח''ו מתנגד לידידנו GPT, רק שלצרכים האלה לא מועיל,

                      ש מנותק
                      ש מנותק
                      שלמה11
                      כתב נערך לאחרונה על ידי שלמה11
                      #43

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

                      P מ 2 תגובות תגובה אחרונה
                      1
                      • ש שלמה11

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

                        P מנותק
                        P מנותק
                        pcinfogmach
                        מדריכים
                        כתב נערך לאחרונה על ידי
                        #44

                        @שלמה11 כתב בבירור | האם הולך לצאת גירסה חדשה ומשוכללת של תוסף עיצוב תורני:

                        דבר שני זה לא עם GPT

                        עלה והצלח.

                        גמ"ח עזרה וייעוץ בנושאי מחשבים

                        תגובה 1 תגובה אחרונה
                        0
                        • ש שלמה11

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

                          מ מנותק
                          מ מנותק
                          מניין
                          כתב נערך לאחרונה על ידי
                          #45

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

                          תגובה 1 תגובה אחרונה
                          1

                          • התחברות

                          • אין לך חשבון עדיין? הרשמה

                          • התחברו או הירשמו כדי לחפש.
                          • פוסט ראשון
                            פוסט אחרון
                          0
                          • חוקי הפורום
                          • פופולרי
                          • לא נפתר
                          • משתמשים
                          • חיפוש גוגל בפורום
                          • צור קשר