עזרה | חלונית מקום אחרון שהיית בוורד

[עניו כמשה]

@ש-בר אמר בעזרה | חלונית מקום אחרון שהיית בוורד:

@עניו-כמשה
כאן ראיתי פיתרון לזה, אבל לא הבנתי איך לממש אותו, אם מישהו פה יצליח שיעדכן...

תביא את הפתרון פה בבקשה

[106]

@עניו-כמשה אמר בעזרה | חלונית מקום אחרון שהיית בוורד:

תביא את הפתרון פה בבקשה

הגיע למיקום אחרון במסמך בפתיחת המסמך:

1. פתח VBA ע"י Ctrl+F11
2. הקש Ctrl+R
3. פתח HNormal>Microsoft Word Objects>ThisDocument
4. הדבק שם שורות אלו:
   קוד:
   `
   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`

[עניו כמשה]

@ש-בר ואיך שומרים?

[ש. בר.]

@עניו-כמשה מסמתא ctrl+s