עזרה | חלונית מקום אחרון שהיית בוורד
-
@עניו-כמשה אמר בעזרה | חלונית מקום אחרון שהיית בוורד:
הבעיה שהיא נמחקת ונעלמת אחרי שניה שאתה מזיז את המסך ואפילו בטעות
אם ננסה לחשוב
נניח ויש אזושהי פקודה שמיישמת את זה
היא תיקח אותך למקום שבו היית לפני סגירת המסמך או למקום האחרון שבו היית, שזה אומר היכן שהזזת עכשיו את המסמך? -
-
@ש-בר אמר בעזרה | חלונית מקום אחרון שהיית בוורד:
@עניו-כמשה
כאן ראיתי פיתרון לזה, אבל לא הבנתי איך לממש אותו, אם מישהו פה יצליח שיעדכן...תביא את הפתרון פה בבקשה
-
@עניו-כמשה אמר בעזרה | חלונית מקום אחרון שהיית בוורד:
תביא את הפתרון פה בבקשה
הגיע למיקום אחרון במסמך בפתיחת המסמך:
- פתח VBA ע"י Ctrl+F11
- הקש Ctrl+R
- פתח HNormal>Microsoft Word Objects>ThisDocument
- הדבק שם שורות אלו:
קוד:
`
Private Sub Document_Close()
Sav = ActiveDocument.Saved
ActiveDocument.Bookmarks.Add Range:=Selection.Range, Name:="End"
If Sav = True Then ActiveDocument.Save
End Sub
Private Sub Document_Open()
If ActiveDocument.Bookmarks.Exists("End") Then ActiveDocument.Bookmarks("End").Select
End Sub`צפה בקובץ המצורף 15284
זה יכניס סימנייה במקום בו הסמן עומד בעת סגירת המסמך, ומיד בפתיחת המסמך יקפוץ לאותו סימנייה.
אם לא רוצים להכניס סימנייה אוטומטי לכל מסמך, אפשר להכניס ידנית (או ע"י מאקרו וצירוף מקשים) סימנייה בשם "End" במקום המבוקש, ומדביקים רק חלק השני מהקוד הנ"ל, ובפתיחת מסמך עם סימנייה בשם End יקפוץ הסמן לסימנייה.
מקוה שהסברתי טוב.
-
@עניו-כמשה
יש חסרון בפתרון הזה, כיון שהוא מייצר סימניה במקום האחרון, צריך לשמור את המסמך, וא"א לעשות שזה ישמור אוטומטי, כי יש מסמכים שאתה לא רוצה שהוא ישמור
והחסרון הגדול בכל זה שזה גורם שלא תוכל לבדוק מתי שינית באמת משהו במסמך, כי כל פעם שפתחת את המסמך שינית.. -
@ש-בר אמר בעזרה | חלונית מקום אחרון שהיית בוורד:
@עניו-כמשה
יש חסרון בפתרון הזה, כיון שהוא מייצר סימניה במקום האחרון, צריך לשמור את המסמך, וא"א לעשות שזה ישמור אוטומטי, כי יש מסמכים שאתה לא רוצה שהוא ישמור
והחסרון הגדול בכל זה שזה גורם שלא תוכל לבדוק מתי שינית באמת משהו במסמך, כי כל פעם שפתחת את המסמך שינית..זה מה שחשבתי גם
תודה -
@עניו-כמשה תלחץ על alt+f11 או לחילופין תיכנס לפקודות מאקרו ותלחץ על 'צור'
ואז תיכנס למקום הזה: [על המוכחל צריך ללחוץ פעמיים שייפתח חלון מסויים]
ואז להעתיק את הקוד הזה:
Private Sub Document_Close()
Sav = ActiveDocument.Saved
ActiveDocument.Bookmarks.Add Range:=Selection.Range, Name:="End"
If Sav = True Then ActiveDocument.Save
End Sub
Private Sub Document_Open()
If ActiveDocument.Bookmarks.Exists("End") Then ActiveDocument.Bookmarks("End").Select
End Sub`