תוכנת עזר לאוצר החכמה

[אוצר החכמה]

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

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

זוהי גירסת בטא כך שייתכן שיש בה באגים, אבל אתם מוזמנים לנסותה.

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

המורידים ומשתמשים מתבקשים להגיב.

[ידיד נפש]

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

[אוצר החכמה]

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

[ותיק]

מדהים!
נמתין בסבלנות שזה יעבוד גם בתוכנה.

תודה לכם

[היא שיחתי]

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

[בגולה]

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

[אדג]

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

[בגולה]

הפעלתי את התוכנה, אבל אני רואה רק ??? אפילו שהnon unicode של המחשב שלי הוא על עברית.

[אוצר החכמה]

איפה אתה רואה ???

[בגולה]

בלחיצה עם הכפתור הימני על האיקון

[יאיר.]

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

[אוצר החכמה]

אני לא יודע ואני רואה שאחרים הורידו
האם גם לאחרים יש את הבעייה הזאת?.

[יאיר]

כעת אני רואה את הקובץ ויכול להורידו.

[יאיר.]

מעניין מאוד...עכשיו שוב מופיע לי שאין הרשאה ואילו כשאיני מחובר כלל אני כן רואה את הקובץ....

[avi5512]

מחכה בקוצר רוח שיהיה כבר עבור התוכנה בדיסק!!!!!!!!!!!!

[רחמים]

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

קוד: בחר הכל

Sub חפש_באוצר_החכמה()
    If Selection.Type = wdSelectionNormal Then
Selection.Copy
'Tasks("אוצר החכמה").WindowState = wdWindowStateNormal
    Tasks("אוצר החכמה").Activate
    SendKeys "{F3}", True
SendKeys "{HOME}", True
 SendKeys "+{END}", True
SendKeys "^V", True
SendKeys "{ENTER}", True
End If
 If Selection.Type = wdSelectionIP Then
' Tasks("אוצר החכמה").WindowState = wdWindowStateMaximize
   Tasks("אוצר החכמה").Activate
    SendKeys "{F3}", True
SendKeys "{HOME}", True
 SendKeys "+{END}", True
SendKeys "^V", True
SendKeys "{ENTER}", True
End If
End Sub

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

[בגולה]

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

[בגולה]

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

Sub חפש_באוצר_החכמה()
If Selection.Type = wdSelectionNormal Then
Selection.Copy
'Tasks("אוצר החכמה").WindowState = wdWindowStateNormal
Tasks("אוצר החכמה").Activate
SendKeys "{F3}", True
SendKeys "{HOME}", True
SendKeys "+{END}", True
SendKeys "^V", True
SendKeys "{ENTER}", True
End If
If Selection.Type = wdSelectionIP Then
' Tasks("אוצר החכמה").WindowState = wdWindowStateMaximize
Tasks("אוצר החכמה").Activate
SendKeys "{F3}", True
SendKeys "{HOME}", True
SendKeys "+{END}", True
SendKeys "^V", True
SendKeys "{ENTER}", True
End If
End Sub

.....

בשורה המסומנת - הוא מדווח על שגיאה - ונתקע!

[רחמים]

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

[רחמים]

תיקון:
אם כותבים את הקוד כך אין את ההודעת שגיאה.

קוד: בחר הכל

Sub חפש_באוצר_החכמה()
    If Selection.Type = wdSelectionNormal Then
Selection.Copy
Tasks("אוצר החכמה").Visible = True
    SendKeys "{F3}", True
SendKeys "{HOME}", True
 SendKeys "+{END}", True
SendKeys "^V", True
SendKeys "{ENTER}", True
End If
 If Selection.Type = wdSelectionIP Then
Tasks("אוצר החכמה").Visible = True
    SendKeys "{F3}", True
SendKeys "{HOME}", True
 SendKeys "+{END}", True
SendKeys "^V", True
SendKeys "{ENTER}", True
End If
End Sub


[בגולה]

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

[רחמים]

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

קוד: בחר הכל

Dim PauseTime, Start, Finish, TotalTime
    PauseTime = 2
    Start = Timer
    Do While Timer < Start + PauseTime
        DoEvents
    Loop


ותעדכן אותי בבקשה מה זה עושה.

[בגולה]

עכשיו ניסיתי, אז ככה:
בפעם ראשונה שהפעלתי עכשיו הקוד, הוא הפעיל לי הדפסה באוצר! והוא נתקע ככה:

הדפס.jpg (11.79 KiB) נצפה 12654 פעמים

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

[רחמים]

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

[בגולה]

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

[רחמים]

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

[רחמים]

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

חיפוש מהיר באוצר החכמה שבדיסק.zip

(259.6 KiB) הורד 366 פעמים

[בגולה]

נפלא!
חזק ביותר, על זה חיכינו!
---
'הגדרות' - האם יש בו משהו? לא נפתח לי שום דבר.

[רחמים]

ההגדרות בדרך אם יש לך רעיונות מה לשים שם שלח לי
תודה

[עשוי לנחת]

יפה מאוד!

ההגדרות בדרך אם יש לך רעיונות מה לשים שם שלח לי
תודה

וכי מוכרחים למיגדר מילתא??!!...

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

[פרוזבול]

זה מה שקורה אצלי בהקשת הפעל לתוכנה:

[רחמים]

התרגום של ההודעה שאתה צריך להתקין משהו שנקרא NET.FARMEWORK כדי להפעיל ישום זה
נראה לי שאתה היכול להשיג את זה כאן
http://www.microsoft.com/en-us/download/details.aspx?id=17851

[בגולה]

'רחמים' - שלחתי לך בפרטי.

[בגולה]

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

[בגולה]

עכשיו קרה לי - שבמקום שיתחיל לחפש ב'אוצר' הוא התחיל לחפש באאוטלוק!!

[נהנה מהאוצר]

רחמים תודה רבה מאד

זה פשוט נפלא

[רחמים]

בס''ד
תודה רבה לכל המשתמשים והמעירים והמשבחים ולכולם!!!

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

חיפוש מהיר באוצר החכמה 1.1.zip

(273.37 KiB) הורד 386 פעמים

[בגולה]

תודה!
הוספת 'גימטריה בקליק' הוא רעיון טוב.

[בגולה]

אני מבין לפי ההוראות שהוא אמור לחפש ישירות את הגימטריא בבר אילן, אך אני לא מצליח לעשות זאת!? (גם אחרי שהגדרתי את F7 לפתיחת חלון גימט').

[רחמים]

אתה צריך ללחוץ על המספר של הגימטריה בעצמו
בעז''ה בגירסה הסופית נעשה משהו יותר ברור ומובן מהתחלה