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

    @מאקרו @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
                      • חוקי הפורום
                      • פופולרי
                      • לא נפתר
                      • משתמשים
                      • חיפוש גוגל בפורום
                      • צור קשר