להורדה | תוסף וורד תורני

menajemmendel

פוסט זה נמחק!

menajemmendel

@menajemmendel כתב בלהורדה | עיצוב ספרי קודש - גירסא משלי:

@ששמעון כתב בלהורדה | עיצוב ספרי קודש - גירסא משלי:

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

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

האדם החושב

@beny כתב בלהורדה | עיצוב ספרי קודש - גירסא משלי:

רק אם אפשר להוסיף במדריך איך משתמשים בייצוא לתג. תודה!!!

@NykUser כתב בלהורדה | תוספים לוורד, הקטנת סוגריים, הכנסת הפניות בקלות, ובין שני קבצים, ועוד:

סרטון הדגמה

הסיסמה 1234

[אני לא מבין בתג ,אם תבין מתוך הסרטון הדגמה אשמח אם תוכל להוסיף למדריך]

@ASDF1345 כתב בלהורדה | עיצוב ספרי קודש - גירסא משלי:

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

צריך להריץ את זה בדווקא בשני כפתורים? [אפשר לעשות שכפתור יריץ שני מאקרואים אחד אחרי השני ,וכך למשל אפשר לעשות שכפתור מספור לשון נקיה ללא מרכאות יריץ את המאקרו מספור עברי שלב ראשון ואח"כ את מספור עברי שלב שני לשון נקיה בלי מרכאות ,וכן ע"ז הדרך
נ.ב. הבנתי מתוך דבריך שאתה עומד לשדרג את המאקרו, אז כנראה אני אמתין עד המאקרו הסופי
נ.ב. 2 אולי כדאי שתפתח נושא נפרד על המאקרו שלך
תודה על כל ההשקעה!!!

האדם החושב

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

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

ASDF1345

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

menajemmendel

@ASDF1345 כתב בלהורדה | תוסף וורד תורני:

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

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

for each

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

ASDF1345

@menajemmendel
המטרה של המאקרו שלי היא תיקון באג שצג במספור הערות שולים כידוע המחשב יכול להציג את מספור הערות באותיות עבריות רק עד מספר שצב ובמספר שצג המספר מתאפס ומתחיל שוב מא'.
בשביל כך עשיתי מאקרו שמסתיר את המספור הפניות להערות שולים ויוצר שדה של מספור חדש במספרים ולאחר מכן מחליף את המספרים של השדה החדש לאותיות (א"א להחליף את המספור המקורי של הערות שולים).
במאקרו הקדמה יש שאלת פתיחה, עדכון הפניות במסמך (נועד בעיקר עבור ההפניות שמפנות להערת שולים) הוספת מעבר פיסקה לפני מספור ההפניה ולאחריה (כדי להקל על המאקרו בהמשך).
במאקרו הפעיל יש פקודה חיפוש הפניה להערת שולים, הסתרה ההפניה, הוספת שדה חדש של מספור בסגנון 'הפניה להערת שולים' העתקת השדה, מעבר להערת שולים, הדבקת השדה בהערת שולים, חזרה למסמך.
במאקרו הסיום יש החלפת המספור בשדות לאותיות.
לצורך עצירת המאקרו בסיום הערות שולים הוספתי במאקרו הקדמה פקודת החלפה שיוסיף ליד הפניה להערת שולים כיתוב ('שAש'), ובמאקרו הפעיל הוספתי פקודה שיהפוך אותיות אלו לסימניה ולאחר מכן ימחוק את ההפניה לסימניה, וכאשר המחשב לא מוצא את הכיתוב הנ"ל הוא לא מצליח להפוך זאת לסימניה ולכן הוא יוצר הודעת שגיאה ועוצר את המאקרו (אולי אפשר לבטל חלק זה והלולאה תעצור לבד בסיום ההפניות להערות שולים).
מצורף המסמך המעודכן עם המאקרו ליתר בהירות ‏‏‏‏הערות שולים - מספור עברי.dotm

menajemmendel

פוסט זה נמחק!

ששמעון

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

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

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

האדם החושב

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

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

ששמעון

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

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

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

האדם החושב

@ששמעון כתב בלהורדה | תוסף וורד תורני:

אז בעצם אני כן צודק בהשערה שלי?

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

ששמעון

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

@ששמעון כתב בלהורדה | תוסף וורד תורני:

אז בעצם אני כן צודק בהשערה שלי?

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

לא מתמצא בפרטים,
אבל גם באופליין זה לוקח זמן.

NH.LOCAL

@ששמעון כתב בלהורדה | תוסף וורד תורני:

קיבלתי את זה מ @NH-LOCAL אולי הוא ימצא את זה.

תגובה 1
תגובה אחרונה לפני 3 שעות

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

timeout 3

קוד זה מגדיר השהייה של הפקודות למשך 3 שניות. וכן הלאה

האדם החושב

@NH-LOCAL

איך בדיוק אני אמור להגדיר את זה?

NH.LOCAL

@האדם-החושב זה סקריפט VBS. הקוד שכתבתי לך מיועד לקוד אצווה.

עריכה: לכאורה זה אמור לעבור:
WScript.Sleep 3000

שים לב שהמספר הוא באלפיות השנייה, כך ש-3000 זה למעשה 3 שניות

סוד כמוס

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

האדם החושב

בס"ד מרובה:
גיר' 12 [בפוסט המקור]
בגיר' זו המאקרואים חולקו גם בין הלשוניות הקיימות בוורד, כל מאקרו לפי עניינו
שימו לב שבכפתור החלפה המקורי של וורד הוכנסו הרבה מאקרואים בתפריט הנפתח
נוספו בגיר' זו:
א' מספור הערות שוליים של @ASDF1345
ב' כל המאקרואים החדשים של @pcinfogmach [נכון לגיר' 6.0]
ג' תוסף גופנים [בלשונית בית]
ד' בתיקון שגיאות נוסף כפתור שמריץ את כל תיקוני השגיאות [על פניו לא ראיתי שגיאות כלשהן ,אבל ייתכנו סתירות בין המאקרואים השונים]
ה' מספור עמודים בלי בעיית באג תשצ"ג וכן מספור עמודים סגנון תלמוד בבלי עמוד א' ועמוד ב' [נמצא בגלריית מספרי עמודים,מיקום נוכחי] ,מעניין האם ניתן להשתמש בזה גם למספור הערות
לגבי חיפוש באוצר החכמה ובבר אילן ,נמצא עדיין בפיתוח ,יעוי' כאן ,כאן וכן בכמה פוסטים בשרשור זה ,מי שיכול לסייע לעניין תבא עליו ברכה ושכרו כפול מן השמים

הרב יעקב ישראל

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

מעניין האם ניתן להשתמש בזה גם למספור הערות

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

משהו חדש

@האדם-החושב אני לחצתי על התקן \הסר ושום דבר לא קורה... לא זז כלום. מה אני אמור לעשות?