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

שיתוף | מאקרו שליחת טקסט לחיפוש בבר אילן

מתוזמן נעוץ נעול הועבר עזרה הדדית - וורד
21 פוסטים 8 כותבים 573 צפיות 8 עוקבים
  • מהישן לחדש
  • מהחדש לישן
  • הכי הרבה הצבעות
תגובה
  • תגובה כנושא
התחברו כדי לפרסם תגובה
נושא זה נמחק. רק משתמשים עם הרשאות מתאימות יוכלו לצפות בו.
  • A מנותק
    A מנותק
    ASDF1345
    כתב נערך לאחרונה על ידי
    #1

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

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

    Sub תוכנת_בר_אילן_פתיחה_וחיפוש()
    '
    ' תוכנת_בר_אילן_פתיחה_וחיפוש Macro
    '
    '
    On Error GoTo A
    
        Dim AppPid As Long
        AppPid = GetFirstPid("Responsa")
        AppActivate AppPid
    GoTo B
    A:
            ChDir "C:\Program Files (x86)\ResponsaCD28"
            AppPid = Shell("RESPONSA.exe", 1)
    B:
        SendKeys "{F4}", True
        SendKeys "^V", True 'הדבק
        SendKeys "{ENTER}", True 'בצע חיפוש
    End Sub
    
    Private Function GetFirstPid(applicationName As String) As Long
    'Returns the FIRST PID of an application by it's name
        Dim services As Object, processes As Object, process As Object
        Dim resultPid As Long
     
        Set services = GetObject("winmgmts:\\.\root\CIMV2")
        Set processes = services.ExecQuery("SELECT ProcessID FROM Win32_Process WHERE name like ""%" & applicationName & "%""", , 48)
     
        For Each process In processes
           resultPid = process.ProcessID
           Exit For ' Just the first ID please :)
        Next
        ' Garbage cleanup
        Set processes = Nothing
        Set services = Nothing
        
        GetFirstPid = resultPid
    End Function
    
    

    מקור: https://tchumim.com/post/153582
    אפשר לשדרג את המאקרו בקלות, גם לשליחת שם ספר לחיפוש ברשימת הספרים בבר אילן, וכן לשליחת טקסט לחיפוש באוצר החכמה.

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

    מצורף מאקרו למעבר לתוכנת מוזיקה VLC שליחת הפקודה F4 וחזרה לוורד (התוכנה VLC יש בה קיצורי דרך רבים ואפשר בקלות ליצור הרבה פקודות מאקרו בוורד שיתנו הוראות לתוכנה).

    AppActivate "נגן המדיה VLC", True
        SendKeys "{F4}", True
    
    AppActivate "WORD"
    
    
    E ד U 3 תגובות תגובה אחרונה
    3
    • A ASDF1345

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

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

      Sub תוכנת_בר_אילן_פתיחה_וחיפוש()
      '
      ' תוכנת_בר_אילן_פתיחה_וחיפוש Macro
      '
      '
      On Error GoTo A
      
          Dim AppPid As Long
          AppPid = GetFirstPid("Responsa")
          AppActivate AppPid
      GoTo B
      A:
              ChDir "C:\Program Files (x86)\ResponsaCD28"
              AppPid = Shell("RESPONSA.exe", 1)
      B:
          SendKeys "{F4}", True
          SendKeys "^V", True 'הדבק
          SendKeys "{ENTER}", True 'בצע חיפוש
      End Sub
      
      Private Function GetFirstPid(applicationName As String) As Long
      'Returns the FIRST PID of an application by it's name
          Dim services As Object, processes As Object, process As Object
          Dim resultPid As Long
       
          Set services = GetObject("winmgmts:\\.\root\CIMV2")
          Set processes = services.ExecQuery("SELECT ProcessID FROM Win32_Process WHERE name like ""%" & applicationName & "%""", , 48)
       
          For Each process In processes
             resultPid = process.ProcessID
             Exit For ' Just the first ID please :)
          Next
          ' Garbage cleanup
          Set processes = Nothing
          Set services = Nothing
          
          GetFirstPid = resultPid
      End Function
      
      

      מקור: https://tchumim.com/post/153582
      אפשר לשדרג את המאקרו בקלות, גם לשליחת שם ספר לחיפוש ברשימת הספרים בבר אילן, וכן לשליחת טקסט לחיפוש באוצר החכמה.

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

      מצורף מאקרו למעבר לתוכנת מוזיקה VLC שליחת הפקודה F4 וחזרה לוורד (התוכנה VLC יש בה קיצורי דרך רבים ואפשר בקלות ליצור הרבה פקודות מאקרו בוורד שיתנו הוראות לתוכנה).

      AppActivate "נגן המדיה VLC", True
          SendKeys "{F4}", True
      
      AppActivate "WORD"
      
      
      E מנותק
      E מנותק
      ezerphone
      כתב נערך לאחרונה על ידי
      #2

      @ASDF1345 בדקת שזה עובד, למה שם זה לא נראה

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

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

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

        Sub תוכנת_בר_אילן_פתיחה_וחיפוש()
        '
        ' תוכנת_בר_אילן_פתיחה_וחיפוש Macro
        '
        '
        On Error GoTo A
        
            Dim AppPid As Long
            AppPid = GetFirstPid("Responsa")
            AppActivate AppPid
        GoTo B
        A:
                ChDir "C:\Program Files (x86)\ResponsaCD28"
                AppPid = Shell("RESPONSA.exe", 1)
        B:
            SendKeys "{F4}", True
            SendKeys "^V", True 'הדבק
            SendKeys "{ENTER}", True 'בצע חיפוש
        End Sub
        
        Private Function GetFirstPid(applicationName As String) As Long
        'Returns the FIRST PID of an application by it's name
            Dim services As Object, processes As Object, process As Object
            Dim resultPid As Long
         
            Set services = GetObject("winmgmts:\\.\root\CIMV2")
            Set processes = services.ExecQuery("SELECT ProcessID FROM Win32_Process WHERE name like ""%" & applicationName & "%""", , 48)
         
            For Each process In processes
               resultPid = process.ProcessID
               Exit For ' Just the first ID please :)
            Next
            ' Garbage cleanup
            Set processes = Nothing
            Set services = Nothing
            
            GetFirstPid = resultPid
        End Function
        
        

        מקור: https://tchumim.com/post/153582
        אפשר לשדרג את המאקרו בקלות, גם לשליחת שם ספר לחיפוש ברשימת הספרים בבר אילן, וכן לשליחת טקסט לחיפוש באוצר החכמה.

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

        מצורף מאקרו למעבר לתוכנת מוזיקה VLC שליחת הפקודה F4 וחזרה לוורד (התוכנה VLC יש בה קיצורי דרך רבים ואפשר בקלות ליצור הרבה פקודות מאקרו בוורד שיתנו הוראות לתוכנה).

        AppActivate "נגן המדיה VLC", True
            SendKeys "{F4}", True
        
        AppActivate "WORD"
        
        
        ד מנותק
        ד מנותק
        דאנציג
        כתב נערך לאחרונה על ידי
        #3

        @ASDF1345
        ישן ואפילו 'עתיק', לצערי לא עובד...

        יש משהו שלפעמים עובד:
        https://tchumim.com/post/162547

        אבל טוב שהעלת את הנושא, הוא באמת מאוד חשוב, ואולי @שלמה11 המוכשר ימצא פיתרון.

        A תגובה 1 תגובה אחרונה
        1
        • ד דאנציג

          @ASDF1345
          ישן ואפילו 'עתיק', לצערי לא עובד...

          יש משהו שלפעמים עובד:
          https://tchumim.com/post/162547

          אבל טוב שהעלת את הנושא, הוא באמת מאוד חשוב, ואולי @שלמה11 המוכשר ימצא פיתרון.

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

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

          U ד 2 תגובות תגובה אחרונה
          0
          • A ASDF1345

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

            U מנותק
            U מנותק
            u88
            כתב נערך לאחרונה על ידי
            #5

            @ASDF1345 זה עובד בכל גירסאות בר אילן כולל 25 ?

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

              @ASDF1345 זה עובד בכל גירסאות בר אילן כולל 25 ?

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

              @u88
              בבדיקה מהירה שערכתי בגירסא 25 זה עבד.

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

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

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

                Sub תוכנת_בר_אילן_פתיחה_וחיפוש()
                '
                ' תוכנת_בר_אילן_פתיחה_וחיפוש Macro
                '
                '
                On Error GoTo A
                
                    Dim AppPid As Long
                    AppPid = GetFirstPid("Responsa")
                    AppActivate AppPid
                GoTo B
                A:
                        ChDir "C:\Program Files (x86)\ResponsaCD28"
                        AppPid = Shell("RESPONSA.exe", 1)
                B:
                    SendKeys "{F4}", True
                    SendKeys "^V", True 'הדבק
                    SendKeys "{ENTER}", True 'בצע חיפוש
                End Sub
                
                Private Function GetFirstPid(applicationName As String) As Long
                'Returns the FIRST PID of an application by it's name
                    Dim services As Object, processes As Object, process As Object
                    Dim resultPid As Long
                 
                    Set services = GetObject("winmgmts:\\.\root\CIMV2")
                    Set processes = services.ExecQuery("SELECT ProcessID FROM Win32_Process WHERE name like ""%" & applicationName & "%""", , 48)
                 
                    For Each process In processes
                       resultPid = process.ProcessID
                       Exit For ' Just the first ID please :)
                    Next
                    ' Garbage cleanup
                    Set processes = Nothing
                    Set services = Nothing
                    
                    GetFirstPid = resultPid
                End Function
                
                

                מקור: https://tchumim.com/post/153582
                אפשר לשדרג את המאקרו בקלות, גם לשליחת שם ספר לחיפוש ברשימת הספרים בבר אילן, וכן לשליחת טקסט לחיפוש באוצר החכמה.

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

                מצורף מאקרו למעבר לתוכנת מוזיקה VLC שליחת הפקודה F4 וחזרה לוורד (התוכנה VLC יש בה קיצורי דרך רבים ואפשר בקלות ליצור הרבה פקודות מאקרו בוורד שיתנו הוראות לתוכנה).

                AppActivate "נגן המדיה VLC", True
                    SendKeys "{F4}", True
                
                AppActivate "WORD"
                
                
                U מנותק
                U מנותק
                u88
                כתב נערך לאחרונה על ידי
                #7

                @ASDF1345 אשמח קצת ליותר פרטים איך זה עובד

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

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

                  ד מנותק
                  ד מנותק
                  דאנציג
                  כתב נערך לאחרונה על ידי דאנציג
                  #8

                  @ASDF1345 כתב בשיתוף | מאקרו שליחת טקסט לחיפוש בבר אילן:

                  לשלוח הוראות בתוך התוכנה...

                  האם זה מפעיל לך את חלון החיפוש ומדביק בו את הטקסט ואנטר?

                  כמו כן, האם זה רק כבר אילן סגור, (והפקודה מפעילה את התוכנה) או בכל מצב?

                  אגב, @שלמה11 הפקודה הזו [SendKeys ] היא לא רק לבר אילן, אלא לכל תוכנה, תוכל להשתמש בזה לאוצריא, או לכל תוכנה אחרת. הבעיה אצלי שזה לא המשיך את הפקודות בתוכנה השניה לפי הסדר/בזמן.

                  U A 2 תגובות תגובה אחרונה
                  0
                  • ד דאנציג

                    @ASDF1345 כתב בשיתוף | מאקרו שליחת טקסט לחיפוש בבר אילן:

                    לשלוח הוראות בתוך התוכנה...

                    האם זה מפעיל לך את חלון החיפוש ומדביק בו את הטקסט ואנטר?

                    כמו כן, האם זה רק כבר אילן סגור, (והפקודה מפעילה את התוכנה) או בכל מצב?

                    אגב, @שלמה11 הפקודה הזו [SendKeys ] היא לא רק לבר אילן, אלא לכל תוכנה, תוכל להשתמש בזה לאוצריא, או לכל תוכנה אחרת. הבעיה אצלי שזה לא המשיך את הפקודות בתוכנה השניה לפי הסדר/בזמן.

                    U מנותק
                    U מנותק
                    u88
                    כתב נערך לאחרונה על ידי
                    #9

                    @דאנציג הדבר היחיד שזה עושה שאם התוכנה פתוחה במחשב ברגע שאני לוחץ על זה זה מעביר אותי לתוכנה (סוג של תסתדר לבד)

                    תגובה 1 תגובה אחרונה
                    0
                    • ד דאנציג

                      @ASDF1345 כתב בשיתוף | מאקרו שליחת טקסט לחיפוש בבר אילן:

                      לשלוח הוראות בתוך התוכנה...

                      האם זה מפעיל לך את חלון החיפוש ומדביק בו את הטקסט ואנטר?

                      כמו כן, האם זה רק כבר אילן סגור, (והפקודה מפעילה את התוכנה) או בכל מצב?

                      אגב, @שלמה11 הפקודה הזו [SendKeys ] היא לא רק לבר אילן, אלא לכל תוכנה, תוכל להשתמש בזה לאוצריא, או לכל תוכנה אחרת. הבעיה אצלי שזה לא המשיך את הפקודות בתוכנה השניה לפי הסדר/בזמן.

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

                      @דאנציג
                      כן, כאשר בר אילן פתוח הוא עובר לבר אילן פותח את חלון החיפוש כותב את טקסט החיפוש ומבצע אנטר (לאחר שהגדרתי בבר אילן שהקיצור דרך F4 פותח את חלון החיפוש), וכאשר הבר אילן סגור הוא פותח את הבר אילן ופותח את חלון החיפוש כותב את טקסט החיפוש ומבצע אנטר.

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

                        בדיוק היום חשבתי שבהמשך לאיתוריא כדאי לעשות כזה דבר [בקצרה, של @sivan22, כותבים מה מחפשים במילים פשוטות, הבינה מחליטה על מחרוזת לחיפוש, בודקת אם התוצאות רלוונטיות, אם לא שולחת מחרוזת אחרת, ואם כן, מסכמת את התשובה, נסו ותהנו] למי שיש לו בר אילן, אבל לא ידעתי אם שייך לשלוח לו פקודות חיפוש. אחרי שרואים ששייך - אולי מישהו יודע לעשות כזה דבר [או לפחות לאתר שלהם, אם זה יותר קל]

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

                          באיזור אדר האוניברסיטה הוציאה מכרז לבניית כל התוכנה של פרוייקט השו"ת והאתר מחדש (עם תקציב של איזה 2 מיליון), וזה נראה שהם מתכננים ליצור גם ממשק API מובנה לתוכנה, אם כי לא בטוח שהוא יהיה חשוף למשתמש הרגיל.
                          ראה כאן עמוד 14

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

                            בדיוק היום חשבתי שבהמשך לאיתוריא כדאי לעשות כזה דבר [בקצרה, של @sivan22, כותבים מה מחפשים במילים פשוטות, הבינה מחליטה על מחרוזת לחיפוש, בודקת אם התוצאות רלוונטיות, אם לא שולחת מחרוזת אחרת, ואם כן, מסכמת את התשובה, נסו ותהנו] למי שיש לו בר אילן, אבל לא ידעתי אם שייך לשלוח לו פקודות חיפוש. אחרי שרואים ששייך - אולי מישהו יודע לעשות כזה דבר [או לפחות לאתר שלהם, אם זה יותר קל]

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

                            @אהרן כתב בשיתוף | מאקרו שליחת טקסט לחיפוש בבר אילן:

                            בדיוק היום חשבתי שבהמשך לאיתוריא כדאי לעשות כזה דבר [בקצרה, של @sivan22, כותבים מה מחפשים במילים פשוטות, הבינה מחליטה על מחרוזת לחיפוש, בודקת אם התוצאות רלוונטיות, אם לא שולחת מחרוזת אחרת, ואם כן, מסכמת את התשובה, נסו ותהנו] למי שיש לו בר אילן, אבל לא ידעתי אם שייך לשלוח לו פקודות חיפוש. אחרי שרואים ששייך - אולי מישהו יודע לעשות כזה דבר [או לפחות לאתר שלהם, אם זה יותר קל]

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

                            תגובה 1 תגובה אחרונה
                            0
                            • U u88

                              @ASDF1345 אשמח קצת ליותר פרטים איך זה עובד

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

                              @u88

                              הסבר המאקרו שכתבתי:
                              שורה 15 - 1 פקודה לעבור לחלון של הבר אילן (במידה והבר אילן פתוח) או לפתוח את הבר אילן (במידה והבר אילן סגור).
                              שורה 16 הוראה למחשב ל'ללחוץ' בבר אילן על הכפתור F4 ובכך לפתוח את חלון החיפוש (לפני הפעלת המאקרו צריך להגדיר בהגדרות קיצורי המקשים של הבר אילן שהכפתור F4 יפתח את חלון החיפוש).
                              שורה 17 - הוראה למחשב ל'הדביק' בבר אילן את הטקסט שנמצא ב'לוח' (שהועתק לפני כן).
                              שורה 18 - הוראה למחשב ל'ללחוץ' בבר אילן על הכפתור 'אנטר' ובכך להפעיל את החיפוש.

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

                                @דאנציג
                                כן, כאשר בר אילן פתוח הוא עובר לבר אילן פותח את חלון החיפוש כותב את טקסט החיפוש ומבצע אנטר (לאחר שהגדרתי בבר אילן שהקיצור דרך F4 פותח את חלון החיפוש), וכאשר הבר אילן סגור הוא פותח את הבר אילן ופותח את חלון החיפוש כותב את טקסט החיפוש ומבצע אנטר.

                                ד מנותק
                                ד מנותק
                                דאנציג
                                כתב נערך לאחרונה על ידי
                                #15

                                @ASDF1345 כתב בשיתוף | מאקרו שליחת טקסט לחיפוש בבר אילן:

                                @דאנציג
                                כן, כאשר בר אילן פתוח הוא עובר לבר אילן פותח את חלון החיפוש כותב את טקסט החיפוש ומבצע אנטר (לאחר שהגדרתי בבר אילן שהקיצור דרך F4 פותח את חלון החיפוש), וכאשר הבר אילן סגור הוא פותח את הבר אילן ופותח את חלון החיפוש כותב את טקסט החיפוש ומבצע אנטר.

                                לצערי אצלי זה כמו אצל

                                @u88 כתב בשיתוף | מאקרו שליחת טקסט לחיפוש בבר אילן:

                                @דאנציג הדבר היחיד שזה עושה שאם התוכנה פתוחה במחשב ברגע שאני לוחץ על זה זה מעביר אותי לתוכנה (סוג של תסתדר לבד)

                                A תגובה 1 תגובה אחרונה
                                0
                                • ד דאנציג

                                  @ASDF1345 כתב בשיתוף | מאקרו שליחת טקסט לחיפוש בבר אילן:

                                  @דאנציג
                                  כן, כאשר בר אילן פתוח הוא עובר לבר אילן פותח את חלון החיפוש כותב את טקסט החיפוש ומבצע אנטר (לאחר שהגדרתי בבר אילן שהקיצור דרך F4 פותח את חלון החיפוש), וכאשר הבר אילן סגור הוא פותח את הבר אילן ופותח את חלון החיפוש כותב את טקסט החיפוש ומבצע אנטר.

                                  לצערי אצלי זה כמו אצל

                                  @u88 כתב בשיתוף | מאקרו שליחת טקסט לחיפוש בבר אילן:

                                  @דאנציג הדבר היחיד שזה עושה שאם התוכנה פתוחה במחשב ברגע שאני לוחץ על זה זה מעביר אותי לתוכנה (סוג של תסתדר לבד)

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

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

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

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

                                    ד מנותק
                                    ד מנותק
                                    דאנציג
                                    כתב נערך לאחרונה על ידי
                                    #17

                                    @ASDF1345 כתב בשיתוף | מאקרו שליחת טקסט לחיפוש בבר אילן:

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

                                    כפתור F4 כקיצור לחיפוש, וכו', ועדיין המאקרו מעביר את בר אילן לחזית, אבל לא מקיש את הפקודות הבאות בתור.

                                    A ג 2 תגובות תגובה אחרונה
                                    0
                                    • ד דאנציג

                                      @ASDF1345 כתב בשיתוף | מאקרו שליחת טקסט לחיפוש בבר אילן:

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

                                      כפתור F4 כקיצור לחיפוש, וכו', ועדיין המאקרו מעביר את בר אילן לחזית, אבל לא מקיש את הפקודות הבאות בתור.

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

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

                                      תגובה 1 תגובה אחרונה
                                      0
                                      • ד דאנציג

                                        @ASDF1345 כתב בשיתוף | מאקרו שליחת טקסט לחיפוש בבר אילן:

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

                                        כפתור F4 כקיצור לחיפוש, וכו', ועדיין המאקרו מעביר את בר אילן לחזית, אבל לא מקיש את הפקודות הבאות בתור.

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

                                        @דאנציג כתב בשיתוף | מאקרו שליחת טקסט לחיפוש בבר אילן:

                                        כפתור F4 כקיצור לחיפוש, וכו', ועדיין המאקרו מעביר את בר אילן לחזית, אבל לא מקיש את הפקודות הבאות בתור.

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

                                        A 9 2 תגובות תגובה אחרונה
                                        0
                                        • ג גיבור

                                          @דאנציג כתב בשיתוף | מאקרו שליחת טקסט לחיפוש בבר אילן:

                                          כפתור F4 כקיצור לחיפוש, וכו', ועדיין המאקרו מעביר את בר אילן לחזית, אבל לא מקיש את הפקודות הבאות בתור.

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

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

                                          @גיבור @דאנציג @u88
                                          מצורף מאקרו עם השהיה של 20 שניות תבדקו האם הבעיה ממשיכה

                                          Sub תוכנת_בר_אילן_פתיחה_וחיפוש_עם_השהיה()
                                          '
                                          ' תוכנת_בר_אילן_פתיחה_וחיפוש_עם_השהיה Macro
                                          '
                                          '
                                          On Error GoTo A
                                          
                                              Dim AppPid As Long
                                              AppPid = GetFirstPid("Responsa")
                                              AppActivate AppPid
                                          GoTo B
                                          
                                          A:
                                                  ChDir "C:\Program Files (x86)\ResponsaCD28"
                                                  AppPid = Shell("RESPONSA.exe", 1)
                                          B:
                                              Application.OnTime When:=Now + _
                                                TimeValue("00:00:20"), _
                                                Name:="תוכנת_בר_אילן_פתיחה_וחיפוש_עם_השהיה_2"
                                          
                                          End Sub
                                          Sub תוכנת_בר_אילן_פתיחה_וחיפוש_עם_השהיה_2()
                                          '
                                          ' תוכנת_בר_אילן_פתיחה_וחיפוש_עם_השהיה_2 Macro
                                          '
                                          '
                                              SendKeys "{F4}", True
                                              SendKeys "^V", True 'הדבק
                                              SendKeys "{ENTER}", True 'בצע חיפוש
                                          
                                          End Sub
                                          Private Function GetFirstPid(applicationName As String) As Long
                                          'Returns the FIRST PID of an application by it's name
                                              Dim services As Object, processes As Object, process As Object
                                              Dim resultPid As Long
                                           
                                              Set services = GetObject("winmgmts:\\.\root\CIMV2")
                                              Set processes = services.ExecQuery("SELECT ProcessID FROM Win32_Process WHERE name like ""%" & applicationName & "%""", , 48)
                                           
                                              For Each process In processes
                                                 resultPid = process.ProcessID
                                                 Exit For ' Just the first ID please :)
                                              Next
                                              ' Garbage cleanup
                                              Set processes = Nothing
                                              Set services = Nothing
                                              
                                              GetFirstPid = resultPid
                                          End Function
                                          
                                          
                                          תגובה 1 תגובה אחרונה
                                          0

                                          • התחברות

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

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