הצעת ייעול | מאקרו ליצירת גבוי למסמך

[menajemmendel]

הנה לפעמים למי שכותב מסמך שעשה טעות ושמר וכבר אין אפשרות של ביטול פעולה אחרונה או כי זה היה ע''י מאקרו, או כי סגר את התוכנה, או מכל סיבה שהיא, אז כתבתי מאקרו שמה שעושה שכל פעם שלוחצים עליו
-שומר את המסמך הנוכחי
-מייצר עותק בתיקיה של המסמך באותו שם עם התוספת גיבוי מתאריך וכו'
וכן כל פעם ואז אם קורא טעות אפשר לחזור לגרסות הקודמות [יהיה המון קבצים אבל אפשר מידי פעם למחוק את הישנים, ולהשאיר את האחרונים]
העותק החדש בכוונה נשמר בלי סיומת [כדי למנוע בעיות שלפעמים הוא DOC,DOCX וכו' אבל אפשר לפתוח אותו בוורד, אולי כדאי להוסיפו לתוסף עיצוב תורני של @pcinfogmach ו @האדם-החושב אבל כתבתי את זה באשכול בנפרד כי מתאים לא רק בוורד,
רק זהירות, שקודם כל המאקרו שומר את הקובץ למצב הנוכחי

Sub DOCUMENT_BACKUPER()

ActiveDocument.Save
NEW_FILE_ADDITION = " גיבוי מתאריך " & Format(Now, "dd-MM ,hhmm")
Set fso = VBA.CreateObject("Scripting.FileSystemObject")
fso.CopyFile ActiveDocument.FullName, ActiveDocument.FullName & NEW_FILE_ADDITION
MsgBox "נוצר גיבוי"

End Sub

[121244]

@menajemmendel אני בתוסף שלי עשיתי גיבוי זה יעזור לי