ללא ספק Word 2010 הוא עורך המילים הטוב ביותרסביב, מלבד מתן כלי עריכה בסיסיים וסגנונות תרשים, הוא גם מספק אפשרות להתאים אישית את המסמך בכל דרך שתרצה. מוסתר כברירת מחדל, Word 2010 מספק אפשרות להוסיף פונקציות שונות, כמו למשל על ידי הכנסת מספר שורות קוד שתוכל למזג מסמכי Word מבלי שתצטרך להשתמש באפליקציה ייעודית כלשהי של צד שלישי. בפוסט זה נכניס מספר שורות קוד כדי למזג את כל תוכן המסמכים השוכנים באותה תיקיה ונציג אותם בתיקיה חדשה.
כדי להתחיל, ראשית עליך להכניס אותם באותו דברבתיקיה, וודאו שכולם שייכים לאותה גרסת Word או Doc או Docx. כפי שניתן לראות בצילום המסך למטה, פתחנו שני מסמכים אשר יתמזגו זה בזה.
כעת פתח כל מסמך Word ושמור אותו כמסמך מאופשר מאקרו, לשם כך, עבור לתפריט קובץ ולחץ שמור כ.
תופיע דו-שיח, מ- שמור כסוג, לחץ תבנית מופעלת מאקרו של Word ולחץ על שמור.
אנו משתמשים בעורך VB, אז ראשית עלינו ליצור מפתח הכרטיסייה ניכרת בחלון Word. במקרה שלא תמצא מפתח כרטיסייה, עבור אל קובץ לחץ על תפריט אפשרויות, ו בלחיצה בחלונית השמאלית התאם אישית סרט, מחלונית ימין אפשר - מפתח תיבת סימון. לחץ על בסדר ל לראות מפתח לשונית על הסרט.
עכשיו נווט אל מפתח לחץ על הלשונית ולחץ ויז'ואל בייסיק.
תגיע לתיבת הדו-שיח של עורך VB, מהסרגל השמאלי לחץ לחיצה כפולה המסמך הזה ל פתח את חלון העריכה VB. תראה את חלון הקוד בצד ימין. עכשיו הכניסו את שורות הקוד האלה.
הערה: אל תשכח לשנות את נתיב התיקיההיכן שהמסמכים שוכנים וגירסת מסמכי Word בשורות קוד אלה. כדי להקל הוספנו גם אמצעי זהירות זה מול הקודים.
תת MergeDocs ()
טווח rng כטווח
Dim MainDoc כמסמך
עמוק strFile כמו מחרוזת
Const strFolder = "C: UsersUsman JavaidDesktopWord מסמכים" ||| (שנה את הנתיב בו נמצאים המסמכים שלך)
הגדר MainDoc = מסמכים. הוסף
strFile = Dir $ (strFolder & "* .docx") ||| (שנה את סיומת הקובץ ל- .doc כדי לנהוג בגרסת Word 97-03)
עשה עד strFile = ""
הגדר rng = MainDoc.Range
rng. הכלאה wdCollapseEnd
rng.InsertFile strFolder & strFile
strFile = דיר $ ()
לולאה
סיום משנה
כעת לחץ Ctrl + S כדי לשמור את המאקרו שהוסף לאחרונה וסגור את עורך ה- VB. נווט אל מפתח לחץ על הלשונית ולחץ מקרואים.
מ ה מקרואים תיבת דו-שיח, בחר MergeDocs מאקרו ולחץ רוץ.
אם ציינת נכון את הנתיב והגירסה, כל המסמכים יתמזגו ונפתחים במסמך חדש.
תוכל גם לבדוק את המדריכים שקודם לכן נבדקו בנושא חזור לשורה האחרונה שנערכה ב- Word 2010 ושימוש במיזוג דואר ב- Word 2010.
הערות