מספר גבוה של הערות

[א.י. מישקין - ארכיון]

תאריך ההודעה המקורית: 14/08/2022 00:19

בס"ד

מדובר בס"ה בכ-20 פעמים, זה לא לוקח הרבה זמן....

מאת: [email protected]

[אליעזר סילבר - ארכיון]

תאריך ההודעה המקורית: 14/08/2022 00:40

תכניס את ההודעה הבאה לויזואל בייסיק שלך, ותנסה להפעיל.

[image: Mailtrack]
https://mailtrack.io?utm_source=gmail&utm_medium=signature&utm_campaign=signaturevirality11&
Sender
notified by
Mailtrack
https://mailtrack.io?utm_source=gmail&utm_medium=signature&utm_campaign=signaturevirality11&
14.08.22,
00:32:15

[אליעזר סילבר - ארכיון]

תאריך ההודעה המקורית: 14/08/2022 00:40

Sub כל_תשעים_ותשע_הערות_להתחיל_המספור_שוב()
'
' כל_תשעים_ותשע_הערות_להתחיל_המספור_שוב Macro
'
'

' פקודת מאקרו לעבור לתחלת הספר:
Selection.HomeKey Unit:=wdLine
'עבור להערה הבאה - להכניס 100 פעם:
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
'מעבר לסוף הקטע (הוספה טכנית):
Selection.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdExtend
Selection.MoveRight Unit:=wdCharacter, Count:=1
מעבר מקטע:
Selection.InsertBreak Type:=wdSectionBreakContinuous
End Sub

[אליעזר סילבר - ארכיון]

תאריך ההודעה המקורית: 14/08/2022 00:41

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

[image: Mailtrack]
https://mailtrack.io?utm_source=gmail&utm_medium=signature&utm_campaign=signaturevirality11&
Sender
notified by
Mailtrack
https://mailtrack.io?utm_source=gmail&utm_medium=signature&utm_campaign=signaturevirality11&
14.08.22,
00:41:07

מאת: [email protected]

[אליעזר סילבר - ארכיון]

תאריך ההודעה המקורית: 14/08/2022 00:41

Sub כל_תשעים_ותשע_הערות_להתחיל_המספור_שוב()
'
' כל_תשעים_ותשע_הערות_להתחיל_המספור_שוב Macro
'
'

' פקודת מאקרו לעבור לתחלת הספר:
Selection.HomeKey Unit:=wdLine
'עבור להערה הבאה - להכניס 100 פעם:
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
Selection.GoToNext wdGoToFootnote
'מעבר לסוף הקטע (הוספה טכנית):
Selection.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdExtend
Selection.MoveRight Unit:=wdCharacter, Count:=1
'מעבר מקטע:
Selection.InsertBreak Type:=wdSectionBreakContinuous
End Sub

[אליעזר סילבר - ארכיון]

תאריך ההודעה המקורית: 14/08/2022 00:46

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

[image: Mailtrack]
https://mailtrack.io?utm_source=gmail&utm_medium=signature&utm_campaign=signaturevirality11&
Sender
notified by
Mailtrack
https://mailtrack.io?utm_source=gmail&utm_medium=signature&utm_campaign=signaturevirality11&
14.08.22,
00:44:14

מאת: [email protected]

[אליעזר סילבר - ארכיון]

תאריך ההודעה המקורית: 14/08/2022 00:52

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

[image: Mailtrack]
https://mailtrack.io?utm_source=gmail&utm_medium=signature&utm_campaign=signaturevirality11&
Sender
notified by
Mailtrack
https://mailtrack.io?utm_source=gmail&utm_medium=signature&utm_campaign=signaturevirality11&
14.08.22,
00:47:50

מאת: [email protected]

[אליעזר סילבר - ארכיון]

תאריך ההודעה המקורית: 14/08/2022 01:12

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

[image: Mailtrack]
https://mailtrack.io?utm_source=gmail&utm_medium=signature&utm_campaign=signaturevirality11&
Sender
notified by
Mailtrack
https://mailtrack.io?utm_source=gmail&utm_medium=signature&utm_campaign=signaturevirality11&
14.08.22,
01:10:44

מאת: [email protected]

[אליעזר סילבר - ארכיון]

תאריך ההודעה המקורית: 14/08/2022 02:22

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

[image: Mailtrack]
https://mailtrack.io?utm_source=gmail&utm_medium=signature&utm_campaign=signaturevirality11&
Sender
notified by
Mailtrack
https://mailtrack.io?utm_source=gmail&utm_medium=signature&utm_campaign=signaturevirality11&
14.08.22,
02:15:07

מאת: [email protected]

[ישראל אברהם קלא - ארכי-2 0]

תאריך ההודעה המקורית: 14/08/2022 00:43

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

לולאה זה אומר שהמאקרו יופעל שוב ושוב? יש פונקציה כזו?
או אולי הכוונה פשוט להעתיק את הפעולות כמה פעמים ב'ערוך'? או ליצור מאקרו שמפעיל את המאקרו הקודם כמה פעמים?

ואיך מגדירים תנאי שאם אין עוד וכו'?

[ישראל אברהם קלא - ארכי-2 0]

תאריך ההודעה המקורית: 14/08/2022 01:01

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

ואיך מוסיפים 'תנאי'?

[ישראל אברהם קלא - ארכי-2 0]

תאריך ההודעה המקורית: 14/08/2022 01:23

תוכל לתת דוגמה ללולאה מסוימת עם תנאי שיעצור בסוף המסמך?