....................
-
@נוכחות
בד"כ [זה אמנם לא הלכה למשה מסיני], מתפרסם בתשלום או כאשר המפרסם מפרסם חלק חינמי [בתוסף זו, או בתוספים אחרים] או כאשר מישהו פותח שרשור ובו בקשת עזרה למציאת תוסף כלשהוא/דרך לעשות דבר מסוים, ואז מישהו מביא תוסף/תוכנה בתשלום שהוא ערך/שהוא מכיר.
כך או כך, נהוג לציין במפורש את העובדה שזה בתשלום, באשר רוב ככל האתר הינו בחינם.
אני כבר כתבתי במהלך השרשור, שאני מלמד זכות שזה מכיון ואתה לא רגיל בהעלאת דברים, אז זה נשמט ממך.
דבריך אכן לא היו נגדי, אבל היו אי אלו שכן תקפו אישית, וחבל.
[כאגב, אם תפתח שרשור מיוחד - התוספים בתשלום של @נוכחות, אף אחד לא היה מזדעק, אולי הנהלת הפורום] -
@נוכחות
בד"כ [זה אמנם לא הלכה למשה מסיני], מתפרסם בתשלום או כאשר המפרסם מפרסם חלק חינמי [בתוסף זו, או בתוספים אחרים] או כאשר מישהו פותח שרשור ובו בקשת עזרה למציאת תוסף כלשהוא/דרך לעשות דבר מסוים, ואז מישהו מביא תוסף/תוכנה בתשלום שהוא ערך/שהוא מכיר.
כך או כך, נהוג לציין במפורש את העובדה שזה בתשלום, באשר רוב ככל האתר הינו בחינם.
אני כבר כתבתי במהלך השרשור, שאני מלמד זכות שזה מכיון ואתה לא רגיל בהעלאת דברים, אז זה נשמט ממך.
דבריך אכן לא היו נגדי, אבל היו אי אלו שכן תקפו אישית, וחבל.
[כאגב, אם תפתח שרשור מיוחד - התוספים בתשלום של @נוכחות, אף אחד לא היה מזדעק, אולי הנהלת הפורום]הסתכלתי במהירות על הקוד, אני לא מבין למה שינית להערות סיום.
זהו קוד קצר למדי, שעושה אותו דבר להערות שוליים, בכל הקובץ בבת אחת, הוא לא שלם עבור מה שאתה מחפש לעשות. אבל זו יכולה להיות התחלה טובה.Public Sub JoinFootnoteParagraphs() Application.ScreenUpdating = False If ActiveWindow.ActivePane.View.Type = wdPrintView Or ActiveWindow.ActivePane.View.Type = wdWebView Or ActiveWindow.ActivePane.View.Type = wdPrintPreview Then ActiveWindow.View.SeekView = wdSeekMainDocument Else ActiveWindow.Panes(2).Close End If For i = 1 To ActiveDocument.ComputeStatistics(wdStatisticPages) Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Name:=i FootOnPageCount = ActiveDocument.Bookmarks("\page").Range.Footnotes.Count For Each Foot In ActiveDocument.Bookmarks("\page").Range.Footnotes WFoot = WFoot + 1 'Last Footnote on page If WFoot = FootOnPageCount Then WFoot = 0 Exit For End If Foot.Range.Select Selection.Collapse Direction:=wdCollapseEnd 'dose not have StyleSeparator If Selection.Paragraphs(1).IsStyleSeparator = False Then Selection.InsertStyleSeparator Next Foot Next Application.ScreenUpdating = True End Sub -
הסתכלתי במהירות על הקוד, אני לא מבין למה שינית להערות סיום.
זהו קוד קצר למדי, שעושה אותו דבר להערות שוליים, בכל הקובץ בבת אחת, הוא לא שלם עבור מה שאתה מחפש לעשות. אבל זו יכולה להיות התחלה טובה.Public Sub JoinFootnoteParagraphs() Application.ScreenUpdating = False If ActiveWindow.ActivePane.View.Type = wdPrintView Or ActiveWindow.ActivePane.View.Type = wdWebView Or ActiveWindow.ActivePane.View.Type = wdPrintPreview Then ActiveWindow.View.SeekView = wdSeekMainDocument Else ActiveWindow.Panes(2).Close End If For i = 1 To ActiveDocument.ComputeStatistics(wdStatisticPages) Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Name:=i FootOnPageCount = ActiveDocument.Bookmarks("\page").Range.Footnotes.Count For Each Foot In ActiveDocument.Bookmarks("\page").Range.Footnotes WFoot = WFoot + 1 'Last Footnote on page If WFoot = FootOnPageCount Then WFoot = 0 Exit For End If Foot.Range.Select Selection.Collapse Direction:=wdCollapseEnd 'dose not have StyleSeparator If Selection.Paragraphs(1).IsStyleSeparator = False Then Selection.InsertStyleSeparator Next Foot Next Application.ScreenUpdating = True End Sub -
הסתכלתי במהירות על הקוד, אני לא מבין למה שינית להערות סיום.
זהו קוד קצר למדי, שעושה אותו דבר להערות שוליים, בכל הקובץ בבת אחת, הוא לא שלם עבור מה שאתה מחפש לעשות. אבל זו יכולה להיות התחלה טובה.Public Sub JoinFootnoteParagraphs() Application.ScreenUpdating = False If ActiveWindow.ActivePane.View.Type = wdPrintView Or ActiveWindow.ActivePane.View.Type = wdWebView Or ActiveWindow.ActivePane.View.Type = wdPrintPreview Then ActiveWindow.View.SeekView = wdSeekMainDocument Else ActiveWindow.Panes(2).Close End If For i = 1 To ActiveDocument.ComputeStatistics(wdStatisticPages) Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Name:=i FootOnPageCount = ActiveDocument.Bookmarks("\page").Range.Footnotes.Count For Each Foot In ActiveDocument.Bookmarks("\page").Range.Footnotes WFoot = WFoot + 1 'Last Footnote on page If WFoot = FootOnPageCount Then WFoot = 0 Exit For End If Foot.Range.Select Selection.Collapse Direction:=wdCollapseEnd 'dose not have StyleSeparator If Selection.Paragraphs(1).IsStyleSeparator = False Then Selection.InsertStyleSeparator Next Foot Next Application.ScreenUpdating = True End Sub@NykUser עדיין לא מוחק את ההערות הכפולות.
אבל בכל זאת בדרך זו כבר מרוויחים שתהיה אפשרות לעשות טורים רק באחד מהטקסטים, ושיהיה אפשרות לשנות אחר כך בלא צורך לשנות את המעברי עמוד.
ובכל זאת עדיין יהיה צריך גם את האפשרות לעשות כך עם ההערות סיום, כי זה בכל זאת המצאה גאונית שמאפשר שלשה זרמים של טקסט על אותו עמוד עם הפניות אוטמטיות בלי צורך בתיבות טקסט. -
הסתכלתי במהירות על הקוד, אני לא מבין למה שינית להערות סיום.
זהו קוד קצר למדי, שעושה אותו דבר להערות שוליים, בכל הקובץ בבת אחת, הוא לא שלם עבור מה שאתה מחפש לעשות. אבל זו יכולה להיות התחלה טובה.Public Sub JoinFootnoteParagraphs() Application.ScreenUpdating = False If ActiveWindow.ActivePane.View.Type = wdPrintView Or ActiveWindow.ActivePane.View.Type = wdWebView Or ActiveWindow.ActivePane.View.Type = wdPrintPreview Then ActiveWindow.View.SeekView = wdSeekMainDocument Else ActiveWindow.Panes(2).Close End If For i = 1 To ActiveDocument.ComputeStatistics(wdStatisticPages) Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Name:=i FootOnPageCount = ActiveDocument.Bookmarks("\page").Range.Footnotes.Count For Each Foot In ActiveDocument.Bookmarks("\page").Range.Footnotes WFoot = WFoot + 1 'Last Footnote on page If WFoot = FootOnPageCount Then WFoot = 0 Exit For End If Foot.Range.Select Selection.Collapse Direction:=wdCollapseEnd 'dose not have StyleSeparator If Selection.Paragraphs(1).IsStyleSeparator = False Then Selection.InsertStyleSeparator Next Foot Next Application.ScreenUpdating = True End Sub@NykUser
אם תצליח לעשות קוד טוב בלי בעיות בעה"י, נשמח לבנות לזה תוסף אוטומטי עם התקנה ראויה וכפתורים יפים וכו', בלי להטיח כמובן.
כרגע לאחר הבדיקה] בעיית הכפילות נשארה, זה בעצם הטעם ש @נוכחות הפך אותם לסיום, כי בשוליים לא נמצא פיתרון לבאג זה, ועוד כמה הסברים שהיו בשעתו.
הסיבה שהתוסף שלי לא הצליח הוא משום שהקוד מחזיר שגיאה כאשר הוא תבנית נוספת באופן פרוגמטי, משום מה זה עובד רק עם מאקרו ידני ממש, מוזר...לקבוצה הכי מעניינת >> https://did.li/in1Nf
-
@NykUser
אם תצליח לעשות קוד טוב בלי בעיות בעה"י, נשמח לבנות לזה תוסף אוטומטי עם התקנה ראויה וכפתורים יפים וכו', בלי להטיח כמובן.
כרגע לאחר הבדיקה] בעיית הכפילות נשארה, זה בעצם הטעם ש @נוכחות הפך אותם לסיום, כי בשוליים לא נמצא פיתרון לבאג זה, ועוד כמה הסברים שהיו בשעתו.
הסיבה שהתוסף שלי לא הצליח הוא משום שהקוד מחזיר שגיאה כאשר הוא תבנית נוספת באופן פרוגמטי, משום מה זה עובד רק עם מאקרו ידני ממש, מוזר... -
@נוכחות כתב בשיתוף | והנה זה בא: הערות ברצף בוורד (בלי הפרדת פיסקאות):
זה אכן מאפשר הזרמת שלושה טקסטים כמו שכתבתי למעלה, וזה אכן מוסיף את ענין הטורים, אבל לשנות אחר כך בלא מעברי העמוד זה לא יועיל, מכיון שבמצב כזה לא יאפשר כלל לפתור את בעיית ההערות הכפולות.
גם ענין הטורים לבד הוא תועלת גדולה, בכל אופן בשבילי, ולכן זה עדיף על ההערות סיום, בכל אופן תודה רבה רבה על הכל.
ובמאמר המוסגר אם כבר מדברים על מקרואים מסובכים, אולי תוכל גם לעשות משהו בענין חלוקת טורים באופן אוטומטי, עיין כאן. -
@נוכחות כתב בשיתוף | והנה זה בא: הערות ברצף בוורד (בלי הפרדת פיסקאות):
לגבי מה שביקשת שכל שלב ג יהיה בלחיצה אחת יש לי את זה במקרו שאמנם מחזיר שגיאה אבל עובד מצויין. [פשוט כשהוא פותח את הויזואל בייסיק לסגור וללחוץ אישור ולא להתייחס].
בשביל שימוש פרטי זה בודאי מספיק.
כל ההערות בפעם אחת.txtזה מאקרו נפרד? או שמכניסים את זה כהמשך לקודם?
-
@נוכחות כתב בשיתוף | והנה זה בא: הערות ברצף בוורד (בלי הפרדת פיסקאות):
לגבי מה שביקשת שכל שלב ג יהיה בלחיצה אחת יש לי את זה במקרו שאמנם מחזיר שגיאה אבל עובד מצויין. [פשוט כשהוא פותח את הויזואל בייסיק לסגור וללחוץ אישור ולא להתייחס].
בשביל שימוש פרטי זה בודאי מספיק.
כל ההערות בפעם אחת.txtזה מאקרו נפרד? או שמכניסים את זה כהמשך לקודם?
-
@נוכחות כתב בשיתוף | והנה זה בא: הערות ברצף בוורד (בלי הפרדת פיסקאות):
@מניין כתב בשיתוף | והנה זה בא: הערות ברצף בוורד (בלי הפרדת פיסקאות):
@נוכחות כתב בשיתוף | והנה זה בא: הערות ברצף בוורד (בלי הפרדת פיסקאות):
לגבי מה שביקשת שכל שלב ג יהיה בלחיצה אחת יש לי את זה במקרו שאמנם מחזיר שגיאה אבל עובד מצויין. [פשוט כשהוא פותח את הויזואל בייסיק לסגור וללחוץ אישור ולא להתייחס].
בשביל שימוש פרטי זה בודאי מספיק.
כל ההערות בפעם אחת.txtזה מאקרו נפרד? או שמכניסים את זה כהמשך לקודם?
זה עובד רק כהמשך לקודם. לא עובד לבד.
אז איפה מכניסים את זה?
-
@נוכחות כתב בשיתוף | והנה זה בא: הערות ברצף בוורד (בלי הפרדת פיסקאות):
@מניין כתב בשיתוף | והנה זה בא: הערות ברצף בוורד (בלי הפרדת פיסקאות):
@נוכחות כתב בשיתוף | והנה זה בא: הערות ברצף בוורד (בלי הפרדת פיסקאות):
לגבי מה שביקשת שכל שלב ג יהיה בלחיצה אחת יש לי את זה במקרו שאמנם מחזיר שגיאה אבל עובד מצויין. [פשוט כשהוא פותח את הויזואל בייסיק לסגור וללחוץ אישור ולא להתייחס].
בשביל שימוש פרטי זה בודאי מספיק.
כל ההערות בפעם אחת.txtזה מאקרו נפרד? או שמכניסים את זה כהמשך לקודם?
זה עובד רק כהמשך לקודם. לא עובד לבד.
אז איפה מכניסים את זה?
-
@נוכחות כתב בשיתוף | והנה זה בא: הערות ברצף בוורד (בלי הפרדת פיסקאות):
זה אכן מאפשר הזרמת שלושה טקסטים כמו שכתבתי למעלה, וזה אכן מוסיף את ענין הטורים, אבל לשנות אחר כך בלא מעברי העמוד זה לא יועיל, מכיון שבמצב כזה לא יאפשר כלל לפתור את בעיית ההערות הכפולות.
גם ענין הטורים לבד הוא תועלת גדולה, בכל אופן בשבילי, ולכן זה עדיף על ההערות סיום, בכל אופן תודה רבה רבה על הכל.
ובמאמר המוסגר אם כבר מדברים על מקרואים מסובכים, אולי תוכל גם לעשות משהו בענין חלוקת טורים באופן אוטומטי, עיין כאן. -
@נוכחות כתב בשיתוף | והנה זה בא: הערות ברצף בוורד (בלי הפרדת פיסקאות):
לגבי מה שביקשת (בפרטי) שכל שלב ג יהיה בלחיצה אחת יש לי את זה במקרו שאמנם מחזיר שגיאה אבל עובד מצויין. [פשוט כשהוא פותח את הויזואל בייסיק לסגור וללחוץ אישור ולא להתייחס].
בשביל שימוש פרטי זה בודאי מספיק.
כל ההערות בפעם אחת.txtמשום מה זה לא עובד עד הסוף, רק על עמוד או יותר, וזה עושה כל הזמן שמירה, עד שזה קורס.
-
@נוכחות כתב בשיתוף | והנה זה בא: הערות ברצף בוורד (בלי הפרדת פיסקאות):
לגבי מה שביקשת (בפרטי) שכל שלב ג יהיה בלחיצה אחת יש לי את זה במקרו שאמנם מחזיר שגיאה אבל עובד מצויין. [פשוט כשהוא פותח את הויזואל בייסיק לסגור וללחוץ אישור ולא להתייחס].
בשביל שימוש פרטי זה בודאי מספיק.
כל ההערות בפעם אחת.txtמשום מה זה לא עובד עד הסוף, רק על עמוד או יותר, וזה עושה כל הזמן שמירה, עד שזה קורס.
-
@נוכחות כתב בשיתוף | והנה זה בא: הערות ברצף בוורד (בלי הפרדת פיסקאות):
@מניין אני לא ראיתי בזה בעיה, אמנם לא ניסיתי על מסמכים ארוכים.
מתוך דבריך זה נראה שהבעיה בעצם מתבטאת רק במה שהוורד קורס, ואולי המסמך כבד או המחשב ישן. כי מצד הקוד של המקרו זה אמור לעבוד עד שזה מסיים את המסמך ואז לפתוח חלון שגיאה.
האם יש עוד בעיה חוץ מעצם הקריסה?
מטרת השמירה היא כדי שיהיה אפשר להתחיל מנקודת הקריסה כשזה עולה בחזרה.קיצרתי את המסמך לשני עמודים וזה עבד מצויין.
-
@נוכחות כתב בשיתוף | והנה זה בא: הערות ברצף בוורד (בלי הפרדת פיסקאות):
לגבי מה שביקשת (בפרטי) שכל שלב ג יהיה בלחיצה אחת יש לי את זה במקרו שאמנם מחזיר שגיאה אבל עובד מצויין. [פשוט כשהוא פותח את הויזואל בייסיק לסגור וללחוץ אישור ולא להתייחס].
בשביל שימוש פרטי זה בודאי מספיק.
כל ההערות בפעם אחת.txt
מתוך הדברים ש @נוכחות כתב בבקשה | שליטה על הגופנים בוורד: הוסף במקרו שוב את שם המקרו זה עצמו בפקודה של "הרץ מקרו".
אם זו השיטה של הלולאה, ממילא השגיאה היא שהוא ממשיך להפעיל את הפדוקה כשהוא לא מוצא עוד טקסט, הפתרון הוא שיהיה תנאי בקוד, לכן מי שיודע לכתוב תנאי לזה, אנא אם יוכל לכתוב כאן, זה יפתור את הבעיה הזו בעה"י.
האמת שאם זה יהיה בתוסף, אפשר למזג את זה גם בלולאת סי-שארפ עם תנאי סי-שארפ'ניק.
אולי @שמעלקא-0 אולי @מאקרו אולי יתר הרבנים שליט"א.
תזכו למצוות!
![חיפוש גוגל בפורום](javascript:{bootbox.prompt({title:'<div style="text-align: center;"><img src="/assets/uploads/files/1625950269825-mt-google.png" width="400"></div>',placeholder:'כתוב מילים לחיפוש ב Google',buttons:{confirm:{label:'חיפוש'},cancel:{label:'ביטול'}},backdrop:true,callback:function(result){if(result!=null&&result!=''){var a=document.createElement('a');a.href='https://www.google.co.il/search?q=site:mitmachim.top '+encodeURIComponent(result.trim());a.target='_blank';a.click();}}})();};){kind=link}