....................
-
הרב @נוכחות כתב קוד ארוך ומושקע (1221 שורות קוד!!!), מפרסם אותו לציבור חינם אין כסף - ולכבודו יש טענות?????
@106 הוא פרסם אותו אחרי הטענות, לא לפני...
ואני מלמד זכות, שתכנן לפרסם, ושכח להכניס לפוסט.:::
חבל להאשים לפני שקוראים את כל השרשור, ומבינים מה היה התהליך.
@106 @es0583292679 אתם יכולים להתנצל בפרטי, לא חייבים ציבורית.:::
-
@106 הוא פרסם אותו אחרי הטענות, לא לפני...
ואני מלמד זכות, שתכנן לפרסם, ושכח להכניס לפוסט.:::
חבל להאשים לפני שקוראים את כל השרשור, ומבינים מה היה התהליך.
@106 @es0583292679 אתם יכולים להתנצל בפרטי, לא חייבים ציבורית.:::
@צדיק-וטוב-לו-0 כתב בשיתוף | והנה זה בא: הערות ברצף בוורד (בלי הפרדת פיסקאות):
הוא פרסם אותו אחרי הטענות, לא לפני...
זה הופיע בדרייב מהרגע הראשון.
עריכה: טעות -
@צדיק-וטוב-לו-0 כתב בשיתוף | והנה זה בא: הערות ברצף בוורד (בלי הפרדת פיסקאות):
הוא פרסם אותו אחרי הטענות, לא לפני...
זה הופיע בדרייב מהרגע הראשון.
עריכה: טעות@106 כתב בשיתוף | והנה זה בא: הערות ברצף בוורד (בלי הפרדת פיסקאות):
@צדיק-וטוב-לו-0 כתב בשיתוף | והנה זה בא: הערות ברצף בוורד (בלי הפרדת פיסקאות):
הוא פרסם אותו אחרי הטענות, לא לפני...
לא נכון, זה הופיע בדרייב מהרגע הראשון.
תלחץ על הקישור, תעדכן אותי האם נפתח תוסף או סרט.
-
@נוכחות כתב בשיתוף | והנה זה בא: הערות ברצף בוורד (בלי הפרדת פיסקאות):
רק עכשיו אני רואה את כל המו"מ שיצא כאן.
אני יסביר, אני לא חושב שתמיכה כל-דהו תועיל לי במשכנתא החודשית וכיו''ב, ובודאי שלא אתעשר מזה.
אבל המצב בעוה"ז שלפעמים אדם עושה הרבה לרצות אחרים וזה לא כ"כ דחוף להם - כמו הזמן שהוא מקדיש לזה.
לכן אני צריך לדעת שמי שמבקש את זה יודע להעריך את זה (ע"ע טיפולים פסיכולוגיים בחינם וקורסים בחינם, מה יוצא מזה, ודי למבין).
מלבד זאת כשאני עושה משהו לטובת פלוני ופלוני שזה על חשבון דברים שלי אני צריך לדעת שיש השתתפות כאן בזמן שאני לוקח מעצמי בשביל זה, ולכן בדקתי אם יש מישהו שמעוניין לתמוך בזה, אפילו כל-דהו, שזה יראה שיש כאן רצינות וגם השתתפות, זה הכל.אף אחד לא מאשים אותך.
- זכותך לעמול ולעשות ע"כ כסף.
- זכותך לעמול ולתת לציבור, ורק לבקש תמיכה סמלית.
- זכותך לתת בחינם.
מה שנכתב, נכתב בעקבות ש:
בהתחלה פורסם פוסט ללא שום תוסף/שורת קוד, וללא ציון על כסף.
כשנשאלה השאלה היכן התוסף - נאמר שזה עולה כסף, וניתן לפנות בפרטי.
אז הערתי, שלא מקובל להשתמש בפורום כמקום פרסום.
אח"כ הועלה הקוד בחינם למען הציבור, ונכתב שלקבל זאת כתוסף ערוך - עולה כסף.
סבבה.
אבל לא לעשות כאי' היה פה אשכול של אנשים נרגנים שניסו לגנוב ממישהו את עמל ידו.
-
@נוכחות
בד"כ [זה אמנם לא הלכה למשה מסיני], מתפרסם בתשלום או כאשר המפרסם מפרסם חלק חינמי [בתוסף זו, או בתוספים אחרים] או כאשר מישהו פותח שרשור ובו בקשת עזרה למציאת תוסף כלשהוא/דרך לעשות דבר מסוים, ואז מישהו מביא תוסף/תוכנה בתשלום שהוא ערך/שהוא מכיר.
כך או כך, נהוג לציין במפורש את העובדה שזה בתשלום, באשר רוב ככל האתר הינו בחינם.
אני כבר כתבתי במהלך השרשור, שאני מלמד זכות שזה מכיון ואתה לא רגיל בהעלאת דברים, אז זה נשמט ממך.
דבריך אכן לא היו נגדי, אבל היו אי אלו שכן תקפו אישית, וחבל.
[כאגב, אם תפתח שרשור מיוחד - התוספים בתשלום של @נוכחות, אף אחד לא היה מזדעק, אולי הנהלת הפורום] -
@נוכחות
בד"כ [זה אמנם לא הלכה למשה מסיני], מתפרסם בתשלום או כאשר המפרסם מפרסם חלק חינמי [בתוסף זו, או בתוספים אחרים] או כאשר מישהו פותח שרשור ובו בקשת עזרה למציאת תוסף כלשהוא/דרך לעשות דבר מסוים, ואז מישהו מביא תוסף/תוכנה בתשלום שהוא ערך/שהוא מכיר.
כך או כך, נהוג לציין במפורש את העובדה שזה בתשלום, באשר רוב ככל האתר הינו בחינם.
אני כבר כתבתי במהלך השרשור, שאני מלמד זכות שזה מכיון ואתה לא רגיל בהעלאת דברים, אז זה נשמט ממך.
דבריך אכן לא היו נגדי, אבל היו אי אלו שכן תקפו אישית, וחבל.
[כאגב, אם תפתח שרשור מיוחד - התוספים בתשלום של @נוכחות, אף אחד לא היה מזדעק, אולי הנהלת הפורום]הסתכלתי במהירות על הקוד, אני לא מבין למה שינית להערות סיום.
זהו קוד קצר למדי, שעושה אותו דבר להערות שוליים, בכל הקובץ בבת אחת, הוא לא שלם עבור מה שאתה מחפש לעשות. אבל זו יכולה להיות התחלה טובה.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זה מאקרו נפרד? או שמכניסים את זה כהמשך לקודם?
זה עובד רק כהמשך לקודם. לא עובד לבד.
אז איפה מכניסים את זה?
-
@נוכחות כתב בשיתוף | והנה זה בא: הערות ברצף בוורד (בלי הפרדת פיסקאות):
זה אכן מאפשר הזרמת שלושה טקסטים כמו שכתבתי למעלה, וזה אכן מוסיף את ענין הטורים, אבל לשנות אחר כך בלא מעברי העמוד זה לא יועיל, מכיון שבמצב כזה לא יאפשר כלל לפתור את בעיית ההערות הכפולות.
גם ענין הטורים לבד הוא תועלת גדולה, בכל אופן בשבילי, ולכן זה עדיף על ההערות סיום, בכל אופן תודה רבה רבה על הכל.
ובמאמר המוסגר אם כבר מדברים על מקרואים מסובכים, אולי תוכל גם לעשות משהו בענין חלוקת טורים באופן אוטומטי, עיין כאן.
![חיפוש גוגל בפורום](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}