תחומים - פורום חרדי מקצועי

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

ערכתי את הפוסט, מקווה שהובנתי

כידוע ישנם בוורד הרבה פקדים שלא נמצאים ברצועת הכלים [ניתן לראותם על ידי כניסה לקובץ, אפשרויות, התאמה אישית של רצועת הכלים, בחר פקודות מתוך פקודות שלא נמצאות ברצועת הכלים]
יש לי קובץ שבו מפורטות כל הפקודות הללו
מקור [מה שמופיע עליו "Not in the Ribbon"]
והתחלתי לחלק את הכפתורים לפי קטגוריות על ידי האפשרות המובאת כאן
סופי 2.dotm
דא עקא שהזמן יכלה והם לא ,כך שחשבתי אולי לעשות יוזר פורם או משהו בסגנון עם אפשרות לחיפוש הפקודות, מישהו יכול לעזור בעניין?

יש לך גם את התוסף הזה

@אורח-פורח כנס לביוס ,boot ושם יש לך אפשרות לבחור את אופציית אתחול הראשונה

@OdedDvir

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

לא היה לי צילום מסך מהקוד הנוכחי, אבל זאת אותה שגיאה

לא ציינת איזו שורה גורמת לשגיאה.

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

לא הבנתי את השאלה

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

@OdedDvir עכשיו אני מקבל את השגיאה הזאת:

וכשלחצתי על הודעה מפורטת זה מה שהופיע לי:

כשהרצתי את זה כשהתוכנה היתה פתוחה החלון של התוכנה נפתח ,אבל לא נפתח לי החלון חיפוש [שנפתח ע"י קונטרול Q]
הקוד היה כזה:

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
 
Sub חיפוש_בספרים()
    Selection.Copy
    Dim AppPid As Long
    AppPid = GetFirstPid("Responsa")
    If (AppPid = 0) Then
        AppPid = Shell("C:\Program Files (x86)\ResponsaCD25\RESPONSA.exe", 1)
    End If
    AppActivate AppPid
    SendKeys "^O", 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 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

אני מקבל את השגיאה הבאה:

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

בשניהם קיבלתי את השגיאה הבאה:

@OdedDvir
אולי לא הכנסתי את ה AppActivate הנכון? ,איפה אני רואה אותו [הכנסתי לפי מה שמופיע במנהל המשימות]

@OdedDvir מסתבר שזה לא יעבוד באוצר החכמה בלי להוסיף אותו למשתני הסביבה ,לא?

הביאו לי כאן את המאקרו הבא:

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() 
   Dim url As String    
url = "https://www.example.com" 'Replace with the URL of the webpage you want to open    ShellExecute 0, "open", url, vbNullString, vbNullString, vbNormalFocus
End Sub

הבעיה היא שאני צריך להדביק טקסט מלוח ההעתקה בתוכנה האחרת ,איך עושים את זה?
[נפק"מ למאקרו שיחפש באוצר החכמה את הטקסט המועתק ,אולי אם כבר עדיף את הטקסט המודגש ,מכיון שאני יכול להוסיף את זה לתפריט ההקשר] בארד וצ'אט gpt הציעו לי להשתמש בsend key ,השאלה היא איך עושים את זה בדיוק
בתודה מראש

יש אופציה כזאת [עדיף בלי רוט] ,אולי אימולטור של טלפון בטאבלט ,נפק"מ לוואטסאפ ולוורד שמעל גודל מסך מסויים הוא רק בתשלום

למישהו יצא לעבוד עם הplugin של calibre בשם kindle collections ?
הוא אמור לסדר את האוספים בקינדל לפי האוספים בcalibre, ואני מקבל פעם אחרי פעם שגיאה
הנה הלינק לplugin המדובר:
https://www.mobileread.com/forums/showthread.php?t=244202

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

pip install deep_translator

Pip install openai

ואז להריץ את הסקריפט הזה:

e = ''
f=0
from deep_translator import GoogleTranslator
import openai
while True:
    f +=1
    a = input ("הזן את שאלתך\n")
    translated = GoogleTranslator(source='auto', target='en').translate(a) 
    b = translated
    n = "user:" + b
    openai.api_key = "-הזן את מפתח הapi שלך כאן"
    if f > 1:
        user_input = e + "user:" + b + " Continue the dialogue"
    else:
     user_input = b
    if user_input.lower() == "exit":
        break
    response = openai.Completion.create(
    engine="text-davinci-003",
    prompt=user_input,
    max_tokens=1024,
    n=1,
    stop=None,
    temperature=0.5,
    )
    e += n + response["choices"][0]["text"]
    translated = GoogleTranslator(source='auto', target='iw').translate(response["choices"][0]["text"])
    print("GPT-3: ",  translated)

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

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

@Y-Excel-Access סליחה על הבורות ,אבל איפה אני מריץ את זה?

@chv ניסיתי דרך הקינדל ,לא מוריד

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

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