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

[האדם החושב]

גירסא 11.zip
גירסא 11 וורד תורני.exe

נוספו:

• כפתור גיבוי
• הערות-שולים-מספור-עד-1200 של @ASDF1345
• ‏‏מספור אוטומטי של @מניין
• חיפוש והחלפה פרטניים של @pcinfogmach

[ASDF1345]

@האדם-החושב
הכנתי גירסא חדשה לקובץ 'הערות-שולים-מספור-עד-1200' על בסיס הקובץ 'קוד VBA להמיר בוורד ממספרים לאותיות'
‏‏הערות שולים - מספור עברי_3.dotm
בגירסא החדשה אפשר להחליף מספור הערות שולים יותר מ1200 וכן אפשר לבחור האם רוצים לשון נקיה והאם רוצים להוסיף מרכאות.
כיון שמאקרו זו מבוסס על החלפת מספרים באותיות הוא מחליף את כל המספרים שיש במסמך, אם יש למישהו רעיון לשדרג את המאקרו שיחליף רק מספרים שהם בסגנון 'הפניה להערת שולים' שיעדכן אותי

[ששמעון]

@ASDF1345 בעצם אפשר להשתמש במאקרו ההוא על כל ההערות שוליים במספרים, ואז ממילא הכל הופך לאותיות...

[mfmf]

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

[האדם החושב]

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

להוסיף מדריכים!

@דאנציג הכין מדריך ,מוזמנים להוסיף

• קישור לגוגל דוקס [פתוח במצב הצעה]
• מדריך וורד תורני.docx

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

הכנתי גירסא חדשה לקובץ 'הערות-שולים-מספור-עד-1200' על בסיס הקובץ 'קוד VBA להמיר בוורד ממספרים לאותיות'
‏‏הערות שולים - מספור עברי_3.dotm

כמה כפתורים צריך ,ולאלו מאקרואים לשייך אותם?, בתודה מראש

[ASDF1345]

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

[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
תודה מראש

[beny]

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

@דאנציג הכין מדריך ,מוזמנים להוסיף

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

[menajemmendel]

@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

[pcinfogmach]

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

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

כדי לתפוס הפניות להערות שוליים תוכל לעשות כך ולהקליט ואז להשתמש בלולאת do while

[pcinfogmach]

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

כיצד ניתן להגדיר לולאה שתעבוד עד שיגיע פקודת שגיאה 4198

מוסיפים פקודת שגיאה
לפני השורה שמעוררת את השגיאה
on error וכל מה שתרצו להגדיר שיעשה כשעולה השגיאה
אפשר גם להגדיר על ידי פקודת if מה לעשות באם הגיאה היא שגיאה מסויימת

[menajemmendel]

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

[ששמעון]

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

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

מאידך אני החלפתי את כל ה'כתב עילי' בכלום ונמחקו לי כל ההע' שוליים.

[menajemmendel]

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

[ששמעון]

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

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

התכוונתי שמשמע מזה שיש לכל המספרים האלה דין כמו כל שאר המספרים במסמך.
מה שניסית ולא הוחלף, זה כנראה כי לא עמדת [עם הסמן] על ההערות שוליים, יכול להיות?

[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

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

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

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

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

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

למעשה זה מה שעשיתי ואני מקבל שגיאות על ימין ועל שמאל, מה הסיבה?, כי הוא לא מריץ אותם לפי הסדר? ,אולי אם אני אוסיף True זה יפתור את הבעיה?
אני מצרף את התבנית [עדיין בעריכה]
וורד תורני.dotm

[ASDF1345]

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