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

    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
                                      • ששמעוןש ששמעון

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

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

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

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

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

                                        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 חיפוש_ספרים()
                                            Selection.Copy 'העתק בחירה
                                            Dim url As String
                                            url = "https://tablet.otzar.org/#/" 'Replace with the URL of the webpage you want to open
                                            ShellExecute 0, "open", url, vbNullString, vbNullString, vbNormalFocus 'פתח את אוצר החכמה
                                            SendKeys "{F2}", True 'פתח חיפוש
                                            SendKeys "^a", True 'בחר טקסט קיים
                                            SendKeys "^v", True ' הדבק
                                            SendKeys "{ENTER}", True 'בצע חיפוש
                                        End Sub
                                        
                                        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 חיפוש_בספרים()
                                            Selection.Copy 'העתק בחירה
                                            Dim url As String
                                            url = "https://tablet.otzar.org/#/" 'Replace with the URL of the webpage you want to open
                                            ShellExecute 0, "open", url, vbNullString, vbNullString, vbNormalFocus 'פתח את אוצר החכמה
                                            SendKeys "{F3}", True 'פתח חיפוש
                                            SendKeys "^a", True 'בחר טקסט קיים
                                            SendKeys "^v", True ' הדבק 
                                            SendKeys "{ENTER}", True 'בצע חיפוש
                                        End Sub
                                        

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

                                        ששמעוןש 2 תגובות תגובה אחרונה
                                        0
                                        • האדם החושבה האדם החושב

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

                                          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 חיפוש_ספרים()
                                              Selection.Copy 'העתק בחירה
                                              Dim url As String
                                              url = "https://tablet.otzar.org/#/" 'Replace with the URL of the webpage you want to open
                                              ShellExecute 0, "open", url, vbNullString, vbNullString, vbNormalFocus 'פתח את אוצר החכמה
                                              SendKeys "{F2}", True 'פתח חיפוש
                                              SendKeys "^a", True 'בחר טקסט קיים
                                              SendKeys "^v", True ' הדבק
                                              SendKeys "{ENTER}", True 'בצע חיפוש
                                          End Sub
                                          
                                          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 חיפוש_בספרים()
                                              Selection.Copy 'העתק בחירה
                                              Dim url As String
                                              url = "https://tablet.otzar.org/#/" 'Replace with the URL of the webpage you want to open
                                              ShellExecute 0, "open", url, vbNullString, vbNullString, vbNormalFocus 'פתח את אוצר החכמה
                                              SendKeys "{F3}", True 'פתח חיפוש
                                              SendKeys "^a", True 'בחר טקסט קיים
                                              SendKeys "^v", True ' הדבק 
                                              SendKeys "{ENTER}", True 'בצע חיפוש
                                          End Sub
                                          

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

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

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

                                          איך לעשות שהוא יחכה מספר שניות עד הפעולה הבאה

                                          אז בעצם אני כן צודק בהשערה שלי?
                                          בעבר קיבלתי איזה קובץ באט בשביל הרצת התקנה של הרבה מסמכי 'אנקי' בזה אחר זה, ושם היה אפשר להגדיר שיחכה כמה שניות.
                                          קיבלתי את זה מ @NH-LOCAL אולי הוא ימצא את זה.

                                          האדם החושבה NH.LOCALN 2 תגובות תגובה אחרונה
                                          0

                                          • התחברות

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

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