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

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

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

                                          [ניסיתי את זה על בר אילן 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

                                          • התחברות

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

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