בירור | הערת שוליים בריחוף
-
@יאיר-דניאל כתב בבירור | הערת שוליים בריחוף:
@בנימין-כפיר צודק אני רוצה שתוך כדי שאני כותב, אני אלחץ על קיצור מקשים כלשהו או מה שלא יהיה, ואני אוכל לראות את ההערת השוליים בריחוף, בלי שאני אצטרך לרחף עם העכבר על המיקום של מספר ההערת שוליים
או, עכשיו נראה לי שאני מתחיל להבין, אתה מתכוון שברגע שתלחץ על מקש כלשהו ירחפו לך ה132 הערות שעשית על המסך?
בבקשה:Sub ShowFootnotesFromPreviousPage() Dim fn As Footnote Dim currPage As Long Dim prevPage As Long Dim msg As String Dim refRange As Range ' קבל את מספר העמוד הנוכחי currPage = Selection.Information(wdActiveEndPageNumber) prevPage = currPage - 1 If prevPage < 1 Then MsgBox "אין עמוד קודם במסמך.", vbExclamation, "שגיאה" Exit Sub End If msg = "" ' עבור על כל ההערות במסמך For Each fn In ActiveDocument.Footnotes Set refRange = fn.Reference If refRange.Information(wdActiveEndPageNumber) = prevPage Then msg = msg & "• " & Trim(fn.Range.Text) & vbCrLf & vbCrLf End If Next fn If msg = "" Then MsgBox "אין הערות שוליים בעמוד הקודם.", vbInformation, "אין הערות" Else MsgBox "הערות שוליים בעמוד הקודם:" & vbCrLf & vbCrLf & msg, vbInformation, "הערות בעמוד " & prevPage End If End Subתדביק את זה בוורד:
Alt+F11 ואז תפתח חדש תשמור ותסגור
ואז תעשה לזה קיצור מקשים:
תלחץ למעלה בשורת הכלים מקש ימני, 'התאמה אישית של רצועת הכלים', ושמה יש קיצורי מקשים
שמה תבחר בקטגורייה של מאקרו ותבחר את 'הצג הערות שוליים מעמוד הקודם'- ותבחר איזה קיצור מקשים שאתה רוצה@אביעד ממש תודה על המאמץ והתגובה, בעז"ה אשתמש בזה היום.
רק לא חושב שאתה היית צריך כל כך לפרט איך פותחים הערת שוליים חדשה...
תודה בכל אופן -
@יאיר-דניאל כתב בבירור | הערת שוליים בריחוף:
@בנימין-כפיר צודק אני רוצה שתוך כדי שאני כותב, אני אלחץ על קיצור מקשים כלשהו או מה שלא יהיה, ואני אוכל לראות את ההערת השוליים בריחוף, בלי שאני אצטרך לרחף עם העכבר על המיקום של מספר ההערת שוליים
או, עכשיו נראה לי שאני מתחיל להבין, אתה מתכוון שברגע שתלחץ על מקש כלשהו ירחפו לך ה132 הערות שעשית על המסך?
בבקשה:Sub ShowFootnotesFromPreviousPage() Dim fn As Footnote Dim currPage As Long Dim prevPage As Long Dim msg As String Dim refRange As Range ' קבל את מספר העמוד הנוכחי currPage = Selection.Information(wdActiveEndPageNumber) prevPage = currPage - 1 If prevPage < 1 Then MsgBox "אין עמוד קודם במסמך.", vbExclamation, "שגיאה" Exit Sub End If msg = "" ' עבור על כל ההערות במסמך For Each fn In ActiveDocument.Footnotes Set refRange = fn.Reference If refRange.Information(wdActiveEndPageNumber) = prevPage Then msg = msg & "• " & Trim(fn.Range.Text) & vbCrLf & vbCrLf End If Next fn If msg = "" Then MsgBox "אין הערות שוליים בעמוד הקודם.", vbInformation, "אין הערות" Else MsgBox "הערות שוליים בעמוד הקודם:" & vbCrLf & vbCrLf & msg, vbInformation, "הערות בעמוד " & prevPage End If End Subתדביק את זה בוורד:
Alt+F11 ואז תפתח חדש תשמור ותסגור
ואז תעשה לזה קיצור מקשים:
תלחץ למעלה בשורת הכלים מקש ימני, 'התאמה אישית של רצועת הכלים', ושמה יש קיצורי מקשים
שמה תבחר בקטגורייה של מאקרו ותבחר את 'הצג הערות שוליים מעמוד הקודם'- ותבחר איזה קיצור מקשים שאתה רוצה@אביעד כתב בבירור | הערת שוליים בריחוף:
ירחפו לך ה132 הערות שעשית על המסך?
על איזה 132 הערות אתה מדבר?
-
@יאיר-דניאל כתב בבירור | הערת שוליים בריחוף:
@בנימין-כפיר צודק אני רוצה שתוך כדי שאני כותב, אני אלחץ על קיצור מקשים כלשהו או מה שלא יהיה, ואני אוכל לראות את ההערת השוליים בריחוף, בלי שאני אצטרך לרחף עם העכבר על המיקום של מספר ההערת שוליים
או, עכשיו נראה לי שאני מתחיל להבין, אתה מתכוון שברגע שתלחץ על מקש כלשהו ירחפו לך ה132 הערות שעשית על המסך?
בבקשה:Sub ShowFootnotesFromPreviousPage() Dim fn As Footnote Dim currPage As Long Dim prevPage As Long Dim msg As String Dim refRange As Range ' קבל את מספר העמוד הנוכחי currPage = Selection.Information(wdActiveEndPageNumber) prevPage = currPage - 1 If prevPage < 1 Then MsgBox "אין עמוד קודם במסמך.", vbExclamation, "שגיאה" Exit Sub End If msg = "" ' עבור על כל ההערות במסמך For Each fn In ActiveDocument.Footnotes Set refRange = fn.Reference If refRange.Information(wdActiveEndPageNumber) = prevPage Then msg = msg & "• " & Trim(fn.Range.Text) & vbCrLf & vbCrLf End If Next fn If msg = "" Then MsgBox "אין הערות שוליים בעמוד הקודם.", vbInformation, "אין הערות" Else MsgBox "הערות שוליים בעמוד הקודם:" & vbCrLf & vbCrLf & msg, vbInformation, "הערות בעמוד " & prevPage End If End Subתדביק את זה בוורד:
Alt+F11 ואז תפתח חדש תשמור ותסגור
ואז תעשה לזה קיצור מקשים:
תלחץ למעלה בשורת הכלים מקש ימני, 'התאמה אישית של רצועת הכלים', ושמה יש קיצורי מקשים
שמה תבחר בקטגורייה של מאקרו ותבחר את 'הצג הערות שוליים מעמוד הקודם'- ותבחר איזה קיצור מקשים שאתה רוצה@אביעד תשמע העבודה שעשית ממש מרשימה.
אומנם לא לזה התכוונתי אלא למה שכתב @שלמה11.
אבל זה ממש מרשים ויכול להיות מאוד שימושי, תודה רבה.
אגב למה זה על העמוד הקודם אי אפשר לעשות על העמוד הנוכחי? -
@יאיר-דניאל תראה את הקוד שעשיתי לך למעלה, כשאתה נמצא על הערת שולים ומפעיל אותו (אפשר כמובן לעשות את זה עם קיצור מקשים) הוא מציג לך בחלון את ההערת השולים שאתה נמצא עליה
@שלמה11 ממש מוצלח המאקרו שעשית!
רק שאלה קטנה יש אפשרות שהמאקרו יפעל גם אם עומדים עם הסמן לפני מספר הערת השוליים ולא רק אחרי?
ועוד משהו, יש אפשרות שההודעה שנפתחת תיסגר באופן אוטומטי לדוגמא - אחרי כמה שניות, ולא יצטרכו ללחוץ על אישור?נ.ב. שתי תיקונים:
א. צריך להחליף את המילה הערה בשוליים כמו בתמונה, תראה -
ב. אולי יש אפשרות לסדר שהנקודה בסוף המשפט לא תקפוץ ימינה? (עיין בתמונה) -
@שלמה11 ממש מוצלח המאקרו שעשית!
רק שאלה קטנה יש אפשרות שהמאקרו יפעל גם אם עומדים עם הסמן לפני מספר הערת השוליים ולא רק אחרי?
ועוד משהו, יש אפשרות שההודעה שנפתחת תיסגר באופן אוטומטי לדוגמא - אחרי כמה שניות, ולא יצטרכו ללחוץ על אישור?נ.ב. שתי תיקונים:
א. צריך להחליף את המילה הערה בשוליים כמו בתמונה, תראה -
ב. אולי יש אפשרות לסדר שהנקודה בסוף המשפט לא תקפוץ ימינה? (עיין בתמונה) -
@יאיר-דניאל אפשר לעשות את כל הנ"ל באמצעות טופס UserForm
יצרתי לך את הקובץ הזה
בשורה הבאה ניתן לשלוט בזמן הסגירה של הטופס:Application.OnTime Now + TimeValue("00:00:05"), "CloseMyForm"@שלמה11 תודה רבה רבה תזכה למצוות!
אממ'ה כשאני מנסה להעתיק את הפקודת מאקרו שכתבת לוורד שלי. הוא כותב לי את השגיאה הבאה, למה?
נ.ב. א. העיצוב הקודם - של ההודעות של וורד, יותר יפה.
ב. אפשר להסיר את הלחצן של ה"אישור"?
תודה רבה על הטרחה. -
@שלמה11 תודה רבה רבה תזכה למצוות!
אממ'ה כשאני מנסה להעתיק את הפקודת מאקרו שכתבת לוורד שלי. הוא כותב לי את השגיאה הבאה, למה?
נ.ב. א. העיצוב הקודם - של ההודעות של וורד, יותר יפה.
ב. אפשר להסיר את הלחצן של ה"אישור"?
תודה רבה על הטרחה.@יאיר-דניאל
הענין הוא כזה: בקוד הזה השתמשתי בטופס UserForm (שמאפשר לעצב את ההודעה) ולכן לא ניתן להעתיק את הקוד בפ"ע, אלא צריך להעתיק גם את הטופס.
בשורה המסומנת בצהוב בתמונה, הטקסט של הערת השולים מוכנס לתוך טופס הUserForm ולכן אם הטופס לא מופיע נגרמת שגיאה.
הלחצן אישור מיועד כדי שתוכל לכבות את הטופס באמצעות לחיצה על אנטר - לא מבין למה להסיר אותו.אם תרצה לגשת לטופס ולעצב/לשנות אותו הוא נמצא כאן: (זה קצת מסובך...)
-
@יאיר-דניאל
הענין הוא כזה: בקוד הזה השתמשתי בטופס UserForm (שמאפשר לעצב את ההודעה) ולכן לא ניתן להעתיק את הקוד בפ"ע, אלא צריך להעתיק גם את הטופס.
בשורה המסומנת בצהוב בתמונה, הטקסט של הערת השולים מוכנס לתוך טופס הUserForm ולכן אם הטופס לא מופיע נגרמת שגיאה.
הלחצן אישור מיועד כדי שתוכל לכבות את הטופס באמצעות לחיצה על אנטר - לא מבין למה להסיר אותו.אם תרצה לגשת לטופס ולעצב/לשנות אותו הוא נמצא כאן: (זה קצת מסובך...)
@שלמה11 כתב בבירור | הערת שוליים בריחוף:
ולכן לא ניתן להעתיק את הקוד בפ"ע, אלא צריך להעתיק גם את הטופס.
אז מה אני צריך לעשות כדי להתקין אותו אצלי? להעתיק להעתיק אותו במקום שאתה הראת בספויילר?
-
@שלמה11 כתב בבירור | הערת שוליים בריחוף:
ולכן לא ניתן להעתיק את הקוד בפ"ע, אלא צריך להעתיק גם את הטופס.
אז מה אני צריך לעשות כדי להתקין אותו אצלי? להעתיק להעתיק אותו במקום שאתה הראת בספויילר?
@יאיר-דניאל כדי להתקין את הקוד אתה צריך להעביר את הקובץ הנ"ל לתיקיה הזאת:
%appdata%\Microsoft\Word\STARTUPמה שכתבתי לך בספויילר, זה למקרה שתרצה לשנות את הקוד
-
@יאיר-דניאל כדי להתקין את הקוד אתה צריך להעביר את הקובץ הנ"ל לתיקיה הזאת:
%appdata%\Microsoft\Word\STARTUPמה שכתבתי לך בספויילר, זה למקרה שתרצה לשנות את הקוד
@שלמה11 את זה אני מכיר...
שאלתי,איך אני מעתיק את הפקודה - לתוך הקובץ של המאקרואין שלי. -
@שלמה11 את זה אני מכיר...
שאלתי,איך אני מעתיק את הפקודה - לתוך הקובץ של המאקרואין שלי.@יאיר-דניאל כתב בבירור | הערת שוליים בריחוף:
שאלתי,איך אני מעתיק את הפקודה - לתוך הקובץ של המאקרואין שלי.
0
לפני 5 ימים
אתה צריך להעתיק גם את הקוד וגם את הטופס שנמצא בתיקייה שהראתי לך בספויילר
תפתח את הקובץ ואת הקובץ של המאקרואים שלך, ותגרור את הטופס לקובץ של המאקרואים -
י יאיר דניאל סימן נושא זה כשאלה
-
י יאיר דניאל סימן נושא זה כנפתר
![חיפוש גוגל בפורום](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}