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

להורדה | תוסף וורד תורני

מתוזמן נעוץ נעול הועבר עזרה הדדית - וורד
220 פוסטים 38 כותבים 22.1k צפיות 47 עוקבים
  • מהישן לחדש
  • מהחדש לישן
  • הכי הרבה הצבעות
תגובה
  • תגובה כנושא
התחברו כדי לפרסם תגובה
נושא זה נמחק. רק משתמשים עם הרשאות מתאימות יוכלו לצפות בו.
  • A ASDF1345

    @האדם-החושב
    הכנתי גירסא חדשה לקובץ 'הערות-שולים-מספור-עד-1200' על בסיס הקובץ 'קוד VBA להמיר בוורד ממספרים לאותיות'
    ‏‏הערות שולים - מספור עברי_3.dotm
    בגירסא החדשה אפשר להחליף מספור הערות שולים יותר מ1200 וכן אפשר לבחור האם רוצים לשון נקיה והאם רוצים להוסיף מרכאות.
    כיון שמאקרו זו מבוסס על החלפת מספרים באותיות הוא מחליף את כל המספרים שיש במסמך, אם יש למישהו רעיון לשדרג את המאקרו שיחליף רק מספרים שהם בסגנון 'הפניה להערת שולים' שיעדכן אותי

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

    @beny כתב בלהורדה | עיצוב ספרי קודש - גירסא משלי:

    להוסיף מדריכים!

    @דאנציג הכין מדריך ,מוזמנים להוסיף

    • קישור לגוגל דוקס [פתוח במצב הצעה]
    • מדריך וורד תורני.docx

    @ASDF1345 כתב בלהורדה | עיצוב ספרי קודש - גירסא משלי:

    הכנתי גירסא חדשה לקובץ 'הערות-שולים-מספור-עד-1200' על בסיס הקובץ 'קוד VBA להמיר בוורד ממספרים לאותיות'
    ‏‏הערות שולים - מספור עברי_3.dotm

    כמה כפתורים צריך ,ולאלו מאקרואים לשייך אותם?, בתודה מראש

    A B 2 תגובות תגובה אחרונה
    4
    • האדם החושבה האדם החושב

      @beny כתב בלהורדה | עיצוב ספרי קודש - גירסא משלי:

      להוסיף מדריכים!

      @דאנציג הכין מדריך ,מוזמנים להוסיף

      • קישור לגוגל דוקס [פתוח במצב הצעה]
      • מדריך וורד תורני.docx

      @ASDF1345 כתב בלהורדה | עיצוב ספרי קודש - גירסא משלי:

      הכנתי גירסא חדשה לקובץ 'הערות-שולים-מספור-עד-1200' על בסיס הקובץ 'קוד VBA להמיר בוורד ממספרים לאותיות'
      ‏‏הערות שולים - מספור עברי_3.dotm

      כמה כפתורים צריך ,ולאלו מאקרואים לשייך אותם?, בתודה מראש

      A מנותק
      A מנותק
      ASDF1345
      כתב ב נערך לאחרונה על ידי
      #105

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

      תגובה 1 תגובה אחרונה
      2
      • A ASDF1345

        @האדם-החושב
        הכנתי גירסא חדשה לקובץ 'הערות-שולים-מספור-עד-1200' על בסיס הקובץ 'קוד VBA להמיר בוורד ממספרים לאותיות'
        ‏‏הערות שולים - מספור עברי_3.dotm
        בגירסא החדשה אפשר להחליף מספור הערות שולים יותר מ1200 וכן אפשר לבחור האם רוצים לשון נקיה והאם רוצים להוסיף מרכאות.
        כיון שמאקרו זו מבוסס על החלפת מספרים באותיות הוא מחליף את כל המספרים שיש במסמך, אם יש למישהו רעיון לשדרג את המאקרו שיחליף רק מספרים שהם בסגנון 'הפניה להערת שולים' שיעדכן אותי

        A מנותק
        A מנותק
        ASDF1345
        כתב ב נערך לאחרונה על ידי
        #106

        אני רוצה לשדרג את הקובץ 'הערות שולים מספור עברי 3'
        לצורך כך אני רוצה לדעת כיצד צריך להגדיר את המאקרו של 'קוד VBAלהמיר בוורד מספרים לאותיות' שיעבוד רק על מספרים שמוגדרים כסגנון 'הפניה להערת שולים'
        מצורף הקוד המבוקש שצריך להגדירו

        start:
        With Selection.Find
            .ClearFormatting
            .Execute findText:="[0-9]{1,}", MatchWildcards:=True, Format:=False, Wrap:=wdFindContinue
            If .Found = True Then
        S = ""
        
        MyArray = Array(400, 300, 200, 100, 90, 80, 70, 60, 50, 40, 30, 20, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1)
        MyaArray = Array("ת", "ש", "ר", "ק", "צ", "פ", "ע", "ס", "נ", "מ", "ל", "כ", _
        "י", "ט", "ח", "ז", "ו", "ה", "ד", "ג", "ב", "א")
        V = Val(Selection)
        Do While V > 0
        If V = 15 Or V = 16 Then
        S = S & "ט"
        V = V - 9
        End If
          For i = 0 To UBound(MyArray)
            If V >= MyArray(i) Then
              S = S & MyaArray(i)
              V = V - MyArray(i)
              Exit For
            End If
          Next i
        Loop
        
        Selection = S
        
        GoTo start
            End If
        End With
        End Sub
        
        

        וכן כיצד ניתן להגדיר לולאה שתעבוד עד שיגיע פקודת שגיאה 4198
        תודה מראש

        menajemmendelM P S 5 תגובות תגובה אחרונה
        1
        • האדם החושבה האדם החושב

          @beny כתב בלהורדה | עיצוב ספרי קודש - גירסא משלי:

          להוסיף מדריכים!

          @דאנציג הכין מדריך ,מוזמנים להוסיף

          • קישור לגוגל דוקס [פתוח במצב הצעה]
          • מדריך וורד תורני.docx

          @ASDF1345 כתב בלהורדה | עיצוב ספרי קודש - גירסא משלי:

          הכנתי גירסא חדשה לקובץ 'הערות-שולים-מספור-עד-1200' על בסיס הקובץ 'קוד VBA להמיר בוורד ממספרים לאותיות'
          ‏‏הערות שולים - מספור עברי_3.dotm

          כמה כפתורים צריך ,ולאלו מאקרואים לשייך אותם?, בתודה מראש

          B מנותק
          B מנותק
          beny
          עימוד
          כתב ב נערך לאחרונה על ידי
          #107

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

          @דאנציג הכין מדריך ,מוזמנים להוסיף

          אלופים אתם!!!
          רק אם אפשר להוסיף במדריך איך משתמשים בייצוא לתג. תודה!!!

          האדם החושבה תגובה 1 תגובה אחרונה
          0
          • ד דאנציג התייחס לנושא זה ב
          • A ASDF1345

            אני רוצה לשדרג את הקובץ 'הערות שולים מספור עברי 3'
            לצורך כך אני רוצה לדעת כיצד צריך להגדיר את המאקרו של 'קוד VBAלהמיר בוורד מספרים לאותיות' שיעבוד רק על מספרים שמוגדרים כסגנון 'הפניה להערת שולים'
            מצורף הקוד המבוקש שצריך להגדירו

            start:
            With Selection.Find
                .ClearFormatting
                .Execute findText:="[0-9]{1,}", MatchWildcards:=True, Format:=False, Wrap:=wdFindContinue
                If .Found = True Then
            S = ""
            
            MyArray = Array(400, 300, 200, 100, 90, 80, 70, 60, 50, 40, 30, 20, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1)
            MyaArray = Array("ת", "ש", "ר", "ק", "צ", "פ", "ע", "ס", "נ", "מ", "ל", "כ", _
            "י", "ט", "ח", "ז", "ו", "ה", "ד", "ג", "ב", "א")
            V = Val(Selection)
            Do While V > 0
            If V = 15 Or V = 16 Then
            S = S & "ט"
            V = V - 9
            End If
              For i = 0 To UBound(MyArray)
                If V >= MyArray(i) Then
                  S = S & MyaArray(i)
                  V = V - MyArray(i)
                  Exit For
                End If
              Next i
            Loop
            
            Selection = S
            
            GoTo start
                End If
            End With
            End Sub
            
            

            וכן כיצד ניתן להגדיר לולאה שתעבוד עד שיגיע פקודת שגיאה 4198
            תודה מראש

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

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

               With Selection.Find
                .ClearFormatting
                .Execute findText:="[0-9]{1,}", MatchWildcards:=True, Format:=False, Wrap:=wdFindContinue
                If .Found = True Then
            
            With Selection.Find
                .ClearFormatting
                .Font.Color = wdColorRed
                .Execute findText:="[0-9]{1,}", MatchWildcards:=True, Wrap:=wdFindContinue
                If .Found = True Then
            

            כלומר הוספתי בשורה 3
            .Font.Color = wdColorRed
            ולמחוק משורה 4
            Format:=False

            תגובה 1 תגובה אחרונה
            1
            • A ASDF1345

              אני רוצה לשדרג את הקובץ 'הערות שולים מספור עברי 3'
              לצורך כך אני רוצה לדעת כיצד צריך להגדיר את המאקרו של 'קוד VBAלהמיר בוורד מספרים לאותיות' שיעבוד רק על מספרים שמוגדרים כסגנון 'הפניה להערת שולים'
              מצורף הקוד המבוקש שצריך להגדירו

              start:
              With Selection.Find
                  .ClearFormatting
                  .Execute findText:="[0-9]{1,}", MatchWildcards:=True, Format:=False, Wrap:=wdFindContinue
                  If .Found = True Then
              S = ""
              
              MyArray = Array(400, 300, 200, 100, 90, 80, 70, 60, 50, 40, 30, 20, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1)
              MyaArray = Array("ת", "ש", "ר", "ק", "צ", "פ", "ע", "ס", "נ", "מ", "ל", "כ", _
              "י", "ט", "ח", "ז", "ו", "ה", "ד", "ג", "ב", "א")
              V = Val(Selection)
              Do While V > 0
              If V = 15 Or V = 16 Then
              S = S & "ט"
              V = V - 9
              End If
                For i = 0 To UBound(MyArray)
                  If V >= MyArray(i) Then
                    S = S & MyaArray(i)
                    V = V - MyArray(i)
                    Exit For
                  End If
                Next i
              Loop
              
              Selection = S
              
              GoTo start
                  End If
              End With
              End Sub
              
              

              וכן כיצד ניתן להגדיר לולאה שתעבוד עד שיגיע פקודת שגיאה 4198
              תודה מראש

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

              @ASDF1345 כתב בלהורדה | עיצוב ספרי קודש - גירסא משלי:

              'קוד VBAלהמיר בוורד מספרים לאותיות' שיעבוד רק על מספרים שמוגדרים כסגנון 'הפניה להערת שולים'

              כדי לתפוס הפניות להערות שוליים תוכל לעשות כך ולהקליט ואז להשתמש בלולאת do while

              99633afe-4361-417f-a483-4a636f86bcd0-image.png

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

              תגובה 1 תגובה אחרונה
              0
              • A ASDF1345

                אני רוצה לשדרג את הקובץ 'הערות שולים מספור עברי 3'
                לצורך כך אני רוצה לדעת כיצד צריך להגדיר את המאקרו של 'קוד VBAלהמיר בוורד מספרים לאותיות' שיעבוד רק על מספרים שמוגדרים כסגנון 'הפניה להערת שולים'
                מצורף הקוד המבוקש שצריך להגדירו

                start:
                With Selection.Find
                    .ClearFormatting
                    .Execute findText:="[0-9]{1,}", MatchWildcards:=True, Format:=False, Wrap:=wdFindContinue
                    If .Found = True Then
                S = ""
                
                MyArray = Array(400, 300, 200, 100, 90, 80, 70, 60, 50, 40, 30, 20, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1)
                MyaArray = Array("ת", "ש", "ר", "ק", "צ", "פ", "ע", "ס", "נ", "מ", "ל", "כ", _
                "י", "ט", "ח", "ז", "ו", "ה", "ד", "ג", "ב", "א")
                V = Val(Selection)
                Do While V > 0
                If V = 15 Or V = 16 Then
                S = S & "ט"
                V = V - 9
                End If
                  For i = 0 To UBound(MyArray)
                    If V >= MyArray(i) Then
                      S = S & MyaArray(i)
                      V = V - MyArray(i)
                      Exit For
                    End If
                  Next i
                Loop
                
                Selection = S
                
                GoTo start
                    End If
                End With
                End Sub
                
                

                וכן כיצד ניתן להגדיר לולאה שתעבוד עד שיגיע פקודת שגיאה 4198
                תודה מראש

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

                @ASDF1345 כתב בלהורדה | עיצוב ספרי קודש - גירסא משלי:

                כיצד ניתן להגדיר לולאה שתעבוד עד שיגיע פקודת שגיאה 4198

                מוסיפים פקודת שגיאה
                לפני השורה שמעוררת את השגיאה
                on error וכל מה שתרצו להגדיר שיעשה כשעולה השגיאה
                אפשר גם להגדיר על ידי פקודת if מה לעשות באם הגיאה היא שגיאה מסויימת

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

                A תגובה 1 תגובה אחרונה
                0
                • A ASDF1345

                  אני רוצה לשדרג את הקובץ 'הערות שולים מספור עברי 3'
                  לצורך כך אני רוצה לדעת כיצד צריך להגדיר את המאקרו של 'קוד VBAלהמיר בוורד מספרים לאותיות' שיעבוד רק על מספרים שמוגדרים כסגנון 'הפניה להערת שולים'
                  מצורף הקוד המבוקש שצריך להגדירו

                  start:
                  With Selection.Find
                      .ClearFormatting
                      .Execute findText:="[0-9]{1,}", MatchWildcards:=True, Format:=False, Wrap:=wdFindContinue
                      If .Found = True Then
                  S = ""
                  
                  MyArray = Array(400, 300, 200, 100, 90, 80, 70, 60, 50, 40, 30, 20, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1)
                  MyaArray = Array("ת", "ש", "ר", "ק", "צ", "פ", "ע", "ס", "נ", "מ", "ל", "כ", _
                  "י", "ט", "ח", "ז", "ו", "ה", "ד", "ג", "ב", "א")
                  V = Val(Selection)
                  Do While V > 0
                  If V = 15 Or V = 16 Then
                  S = S & "ט"
                  V = V - 9
                  End If
                    For i = 0 To UBound(MyArray)
                      If V >= MyArray(i) Then
                        S = S & MyaArray(i)
                        V = V - MyArray(i)
                        Exit For
                      End If
                    Next i
                  Loop
                  
                  Selection = S
                  
                  GoTo start
                      End If
                  End With
                  End Sub
                  
                  

                  וכן כיצד ניתן להגדיר לולאה שתעבוד עד שיגיע פקודת שגיאה 4198
                  תודה מראש

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

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

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

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

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

                    @menajemmendel כתב בלהורדה | עיצוב ספרי קודש - גירסא משלי:

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

                    מאידך אני החלפתי את כל ה'כתב עילי' בכלום ונמחקו לי כל ההע' שוליים.

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

                      @menajemmendel כתב בלהורדה | עיצוב ספרי קודש - גירסא משלי:

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

                      מאידך אני החלפתי את כל ה'כתב עילי' בכלום ונמחקו לי כל ההע' שוליים.

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

                      @ששמעון לא הבנתי מה התכוונת ב''מאידך'' אבל ודאי שאם מוחקים אותם למעלה, מוחק את כל הערה,

                      ששמעוןש תגובה 1 תגובה אחרונה
                      0
                      • menajemmendelM menajemmendel

                        @ששמעון לא הבנתי מה התכוונת ב''מאידך'' אבל ודאי שאם מוחקים אותם למעלה, מוחק את כל הערה,

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

                        @menajemmendel כתב בלהורדה | עיצוב ספרי קודש - גירסא משלי:

                        @ששמעון לא הבנתי מה התכוונת ב''מאידך'' אבל ודאי שאם מוחקים אותם למעלה, מוחק את כל הערה,

                        התכוונתי שמשמע מזה שיש לכל המספרים האלה דין כמו כל שאר המספרים במסמך.
                        מה שניסית ולא הוחלף, זה כנראה כי לא עמדת [עם הסמן] על ההערות שוליים, יכול להיות?

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

                          @menajemmendel כתב בלהורדה | עיצוב ספרי קודש - גירסא משלי:

                          @ששמעון לא הבנתי מה התכוונת ב''מאידך'' אבל ודאי שאם מוחקים אותם למעלה, מוחק את כל הערה,

                          התכוונתי שמשמע מזה שיש לכל המספרים האלה דין כמו כל שאר המספרים במסמך.
                          מה שניסית ולא הוחלף, זה כנראה כי לא עמדת [עם הסמן] על ההערות שוליים, יכול להיות?

                          menajemmendelM מנותק
                          menajemmendelM מנותק
                          menajemmendel
                          כתב ב נערך לאחרונה על ידי menajemmendel
                          #115
                          פוסט זה נמחק!
                          menajemmendelM תגובה 1 תגובה אחרונה
                          0
                          • menajemmendelM menajemmendel

                            פוסט זה נמחק!

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

                            @menajemmendel כתב בלהורדה | עיצוב ספרי קודש - גירסא משלי:

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

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

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

                            תגובה 1 תגובה אחרונה
                            0
                            • B beny

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

                              @דאנציג הכין מדריך ,מוזמנים להוסיף

                              אלופים אתם!!!
                              רק אם אפשר להוסיף במדריך איך משתמשים בייצוא לתג. תודה!!!

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

                              @beny כתב בלהורדה | עיצוב ספרי קודש - גירסא משלי:

                              רק אם אפשר להוסיף במדריך איך משתמשים בייצוא לתג. תודה!!!

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

                              סרטון הדגמה

                              הסיסמה 1234

                              [אני לא מבין בתג ,אם תבין מתוך הסרטון הדגמה אשמח אם תוכל להוסיף למדריך]

                              @ASDF1345 כתב בלהורדה | עיצוב ספרי קודש - גירסא משלי:

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

                              צריך להריץ את זה בדווקא בשני כפתורים? [אפשר לעשות שכפתור יריץ שני מאקרואים אחד אחרי השני ,וכך למשל אפשר לעשות שכפתור מספור לשון נקיה ללא מרכאות יריץ את המאקרו מספור עברי שלב ראשון ואח"כ את מספור עברי שלב שני לשון נקיה בלי מרכאות ,וכן ע"ז הדרך
                              נ.ב. הבנתי מתוך דבריך שאתה עומד לשדרג את המאקרו, אז כנראה אני אמתין עד המאקרו הסופי
                              נ.ב. 2 אולי כדאי שתפתח נושא נפרד על המאקרו שלך
                              תודה על כל ההשקעה!!!

                              תגובה 1 תגובה אחרונה
                              2
                              • האדם החושבה מנותק
                                האדם החושבה מנותק
                                האדם החושב
                                מדריכים
                                כתב ב נערך לאחרונה על ידי האדם החושב
                                #118

                                לגבי החיפוש באוצר החכמה ובר אילן:
                                ניסיתי היום על בר אילן בכמה אופנים ותכלס' לא עובד:
                                א:

                                Option Explicit
                                
                                Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
                                (ByVal hwnd As LongPtr, ByVal lpOperation As String, ByVal lpFile As String, _
                                ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongPtr
                                
                                Sub OpenWebPage()
                                    SendKeys "^C", True 'העתק בחירה
                                    Dim url As String
                                    url = "C:\Program Files (x86)\ResponsaCD25\RESPONSA.exe" 'Replace with the URL of the webpage you want to open
                                    ShellExecute 0, "open", url, vbNullString, vbNullString, vbNormalFocus 'הפעל את בר אילן
                                    SendKeys "^O", True 'פתח חיפוש
                                    SendKeys "^V", True 'הדבק
                                    SendKeys "{ENTER}", True 'בצע חיפוש
                                End Sub
                                

                                אני מקבל את השגיאה הבאה:
                                מתמחים.png
                                [ניסיתי את זה על בר אילן 25 ,גם כשניסיתי לפתוח את התוכנה ע"י הקלדת הנתיב בcmd קיבלתי את אותה שגיאה]

                                ב:

                                Sub חיפוש_בספרים_בר_אילן()
                                SendKeys "^C", True 'העתק בחירה
                                Shell "C:\Program Files (x86)\ResponsaCD25\RESPONSA.exe", True 'הפעל את בר אילן
                                SendKeys "^O", True 'פתח חיפוש
                                SendKeys "^V", True 'הדבק
                                SendKeys "{ENTER}", True 'בצע חיפוש
                                
                                End Sub
                                

                                ג:

                                Sub חיפוש_בספרים_בר_אילן()
                                    SendKeys "^C", True 'העתק בחירה
                                AppActivate "RESPONSA", True 'הפעל את בר אילן
                                    SendKeys "^O", True 'פתח חיפוש
                                    SendKeys "^V", True 'הדבק
                                    SendKeys "{ENTER}", True 'בצע חיפוש
                                End Sub
                                

                                בשניהם קיבלתי את השגיאה הבאה:
                                תחומים 2.png

                                @האדם-החושב כתב בלהורדה | תוסף וורד תורני:

                                ריך להריץ את זה בדווקא בשני כפתורים? [אפשר לעשות שכפתור יריץ שני מאקרואים אחד אחרי השני ,וכך למשל אפשר לעשות שכפתור מספור לשון נקיה ללא מרכאות יריץ את המאקרו מספור עברי שלב ראשון ואח"כ את מספור עברי שלב שני לשון נקיה בלי מרכאות ,וכן ע"ז הדרך

                                למעשה זה מה שעשיתי ואני מקבל שגיאות על ימין ועל שמאל, מה הסיבה?, כי הוא לא מריץ אותם לפי הסדר? ,אולי אם אני אוסיף True זה יפתור את הבעיה?
                                אני מצרף את התבנית [עדיין בעריכה]
                                וורד תורני.dotm

                                ששמעוןש תגובה 1 תגובה אחרונה
                                1
                                • P pcinfogmach

                                  @ASDF1345 כתב בלהורדה | עיצוב ספרי קודש - גירסא משלי:

                                  כיצד ניתן להגדיר לולאה שתעבוד עד שיגיע פקודת שגיאה 4198

                                  מוסיפים פקודת שגיאה
                                  לפני השורה שמעוררת את השגיאה
                                  on error וכל מה שתרצו להגדיר שיעשה כשעולה השגיאה
                                  אפשר גם להגדיר על ידי פקודת if מה לעשות באם הגיאה היא שגיאה מסויימת

                                  A מנותק
                                  A מנותק
                                  ASDF1345
                                  כתב ב נערך לאחרונה על ידי
                                  #119

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

                                  menajemmendelM תגובה 1 תגובה אחרונה
                                  1
                                  • A ASDF1345

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

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

                                    @ASDF1345 כתב בלהורדה | תוסף וורד תורני:

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

                                    אתה יכול לומר לי בדיוק מה מטרת המאקרו שלך, אבל בגדול לא נראה בכלל מסובך,
                                    פשוט עושים לולאה שירוץ על על סימני הערות שוליים

                                    for each 
                                    

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

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

                                      @ASDF1345 כתב בלהורדה | תוסף וורד תורני:

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

                                      אתה יכול לומר לי בדיוק מה מטרת המאקרו שלך, אבל בגדול לא נראה בכלל מסובך,
                                      פשוט עושים לולאה שירוץ על על סימני הערות שוליים

                                      for each 
                                      

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

                                      A מנותק
                                      A מנותק
                                      ASDF1345
                                      כתב ב נערך לאחרונה על ידי
                                      #121

                                      @menajemmendel
                                      המטרה של המאקרו שלי היא תיקון באג שצג במספור הערות שולים כידוע המחשב יכול להציג את מספור הערות באותיות עבריות רק עד מספר שצב ובמספר שצג המספר מתאפס ומתחיל שוב מא'.
                                      בשביל כך עשיתי מאקרו שמסתיר את המספור הפניות להערות שולים ויוצר שדה של מספור חדש במספרים ולאחר מכן מחליף את המספרים של השדה החדש לאותיות (א"א להחליף את המספור המקורי של הערות שולים).
                                      במאקרו הקדמה יש שאלת פתיחה, עדכון הפניות במסמך (נועד בעיקר עבור ההפניות שמפנות להערת שולים) הוספת מעבר פיסקה לפני מספור ההפניה ולאחריה (כדי להקל על המאקרו בהמשך).
                                      במאקרו הפעיל יש פקודה חיפוש הפניה להערת שולים, הסתרה ההפניה, הוספת שדה חדש של מספור בסגנון 'הפניה להערת שולים' העתקת השדה, מעבר להערת שולים, הדבקת השדה בהערת שולים, חזרה למסמך.
                                      במאקרו הסיום יש החלפת המספור בשדות לאותיות.
                                      לצורך עצירת המאקרו בסיום הערות שולים הוספתי במאקרו הקדמה פקודת החלפה שיוסיף ליד הפניה להערת שולים כיתוב ('שAש'), ובמאקרו הפעיל הוספתי פקודה שיהפוך אותיות אלו לסימניה ולאחר מכן ימחוק את ההפניה לסימניה, וכאשר המחשב לא מוצא את הכיתוב הנ"ל הוא לא מצליח להפוך זאת לסימניה ולכן הוא יוצר הודעת שגיאה ועוצר את המאקרו (אולי אפשר לבטל חלק זה והלולאה תעצור לבד בסיום ההפניות להערות שולים).
                                      מצורף המסמך המעודכן עם המאקרו ליתר בהירות ‏‏‏‏הערות שולים - מספור עברי.dotm

                                      menajemmendelM תגובה 1 תגובה אחרונה
                                      2
                                      • A ASDF1345

                                        @menajemmendel
                                        המטרה של המאקרו שלי היא תיקון באג שצג במספור הערות שולים כידוע המחשב יכול להציג את מספור הערות באותיות עבריות רק עד מספר שצב ובמספר שצג המספר מתאפס ומתחיל שוב מא'.
                                        בשביל כך עשיתי מאקרו שמסתיר את המספור הפניות להערות שולים ויוצר שדה של מספור חדש במספרים ולאחר מכן מחליף את המספרים של השדה החדש לאותיות (א"א להחליף את המספור המקורי של הערות שולים).
                                        במאקרו הקדמה יש שאלת פתיחה, עדכון הפניות במסמך (נועד בעיקר עבור ההפניות שמפנות להערת שולים) הוספת מעבר פיסקה לפני מספור ההפניה ולאחריה (כדי להקל על המאקרו בהמשך).
                                        במאקרו הפעיל יש פקודה חיפוש הפניה להערת שולים, הסתרה ההפניה, הוספת שדה חדש של מספור בסגנון 'הפניה להערת שולים' העתקת השדה, מעבר להערת שולים, הדבקת השדה בהערת שולים, חזרה למסמך.
                                        במאקרו הסיום יש החלפת המספור בשדות לאותיות.
                                        לצורך עצירת המאקרו בסיום הערות שולים הוספתי במאקרו הקדמה פקודת החלפה שיוסיף ליד הפניה להערת שולים כיתוב ('שAש'), ובמאקרו הפעיל הוספתי פקודה שיהפוך אותיות אלו לסימניה ולאחר מכן ימחוק את ההפניה לסימניה, וכאשר המחשב לא מוצא את הכיתוב הנ"ל הוא לא מצליח להפוך זאת לסימניה ולכן הוא יוצר הודעת שגיאה ועוצר את המאקרו (אולי אפשר לבטל חלק זה והלולאה תעצור לבד בסיום ההפניות להערות שולים).
                                        מצורף המסמך המעודכן עם המאקרו ליתר בהירות ‏‏‏‏הערות שולים - מספור עברי.dotm

                                        menajemmendelM מנותק
                                        menajemmendelM מנותק
                                        menajemmendel
                                        כתב ב נערך לאחרונה על ידי menajemmendel
                                        #122
                                        פוסט זה נמחק!
                                        תגובה 1 תגובה אחרונה
                                        0
                                        • האדם החושבה האדם החושב

                                          לגבי החיפוש באוצר החכמה ובר אילן:
                                          ניסיתי היום על בר אילן בכמה אופנים ותכלס' לא עובד:
                                          א:

                                          Option Explicit
                                          
                                          Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
                                          (ByVal hwnd As LongPtr, ByVal lpOperation As String, ByVal lpFile As String, _
                                          ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongPtr
                                          
                                          Sub OpenWebPage()
                                              SendKeys "^C", True 'העתק בחירה
                                              Dim url As String
                                              url = "C:\Program Files (x86)\ResponsaCD25\RESPONSA.exe" 'Replace with the URL of the webpage you want to open
                                              ShellExecute 0, "open", url, vbNullString, vbNullString, vbNormalFocus 'הפעל את בר אילן
                                              SendKeys "^O", True 'פתח חיפוש
                                              SendKeys "^V", True 'הדבק
                                              SendKeys "{ENTER}", True 'בצע חיפוש
                                          End Sub
                                          

                                          אני מקבל את השגיאה הבאה:
                                          מתמחים.png
                                          [ניסיתי את זה על בר אילן 25 ,גם כשניסיתי לפתוח את התוכנה ע"י הקלדת הנתיב בcmd קיבלתי את אותה שגיאה]

                                          ב:

                                          Sub חיפוש_בספרים_בר_אילן()
                                          SendKeys "^C", True 'העתק בחירה
                                          Shell "C:\Program Files (x86)\ResponsaCD25\RESPONSA.exe", True 'הפעל את בר אילן
                                          SendKeys "^O", True 'פתח חיפוש
                                          SendKeys "^V", True 'הדבק
                                          SendKeys "{ENTER}", True 'בצע חיפוש
                                          
                                          End Sub
                                          

                                          ג:

                                          Sub חיפוש_בספרים_בר_אילן()
                                              SendKeys "^C", True 'העתק בחירה
                                          AppActivate "RESPONSA", True 'הפעל את בר אילן
                                              SendKeys "^O", True 'פתח חיפוש
                                              SendKeys "^V", True 'הדבק
                                              SendKeys "{ENTER}", True 'בצע חיפוש
                                          End Sub
                                          

                                          בשניהם קיבלתי את השגיאה הבאה:
                                          תחומים 2.png

                                          @האדם-החושב כתב בלהורדה | תוסף וורד תורני:

                                          ריך להריץ את זה בדווקא בשני כפתורים? [אפשר לעשות שכפתור יריץ שני מאקרואים אחד אחרי השני ,וכך למשל אפשר לעשות שכפתור מספור לשון נקיה ללא מרכאות יריץ את המאקרו מספור עברי שלב ראשון ואח"כ את מספור עברי שלב שני לשון נקיה בלי מרכאות ,וכן ע"ז הדרך

                                          למעשה זה מה שעשיתי ואני מקבל שגיאות על ימין ועל שמאל, מה הסיבה?, כי הוא לא מריץ אותם לפי הסדר? ,אולי אם אני אוסיף True זה יפתור את הבעיה?
                                          אני מצרף את התבנית [עדיין בעריכה]
                                          וורד תורני.dotm

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

                                          @האדם-החושב כתב בלהורדה | תוסף וורד תורני:

                                          [ניסיתי את זה על בר אילן 25 ,גם כשניסיתי לפתוח את התוכנה ע"י הקלדת הנתיב בcmd קיבלתי את אותה שגיאה]

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

                                          האדם החושבה תגובה 1 תגובה אחרונה
                                          1

                                          • התחברות

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

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