אופיס 365 גזור והעתק למסמך

[פלפלת]

האם יש אפשרות, למשל שאני רוצה לגזור ממסמך X למסמך Y בלע לפתוח כל הזמן את מסמך Y אלא שאוטמטית זה ידביק לשם [כי קשה לדלג בין המסמכים כל הזמן]
יש דרך כזו?
כל המסייעים יבורכו מן השמים

 

[Rרחמים]

אפשר עם מאקרו

 

[פלפלת]

תודה
אבל אפשר הסבר לעמי ארצות
איך עושים כזה דבר

 

[Rרחמים]

זה לא משהו שאפשר להסביר על רגל אחת
אם אתה רוצה שאני אכין לך כזה מאקרו פנה אלי במייל, מופיע באתר שלי.

 

[Yisrael]

להקליט מאקרו את/ה יודע/ת? אם כן צריך להקליט את הפעולות שרוצים לעשות באופן קבוע היינו: להעתיק את הטקסט המסומן, לגשת לפתיחת קובץ (מתוך וורד) לבחור את הקובץ שרוצים (דרך "עיון" ולא בקבצים אחרונים), לפתוח אותו להדביק, לשמור ולסגור. לסיים את הקלטת המאקרו. הפעלת המאקרו תבצע את כל הפעולות שבוצעו בזמן ההקלטה.

בהצלחה.

 

[פלפלת]

הצלחתי לעשות את המאקרו, אבל משום מה זה מעתיק לי למסמך שרציתי, אך לתוך ההערות שולים, בלי שום קשר מוסבר...

יש הסבר?

 

[Yisrael]

הצלחתי לעשות את המאקרו, אבל משום מה זה מעתיק לי למסמך שרציתי, אך לתוך ההערות שולים, בלי שום קשר מוסבר...

יש הסבר?

תעתיק לכאן את הקוד שהוקלט.

 

[פלפלת]

אין לי מושג איך מעלים קוד?
[את המאקרו למדתי לעשות דרך מדריך שהסתכלתי...]

 

[Yisrael]

כשאת בתוך מסמך וורד תלחצי alt+f11, יפתח עורך המאקרו של וורד (VBA). שם אמור להיות מוצג הקוד שהוקלט, השם שלו מופיע בשורה הראשונה של הקוד אחרי המילה Sub.

תראי בתמונה המצורפת את המיקום של הקודים המוקלטים (בסייר בצד שמאל) ותעתיקי את הקוד מתחילתו עד סופו כמו שמוקף בדוגמה.

 

[פלפלת]

א. אין לי מילים....
ב. אם הבנתי נכון...

Documents.Open FileName:="שיר ידידות אלו מציאות.docx", ConfirmConversions _
:=True, ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
WritePasswordTemplate:="", Format:=wdOpenFormatAuto, XMLTransform:="", _
DocumentDirection:=wdRightToLeft
Selection.MoveDown Unit:=wdLine, Count:=172
Selection.MoveUp Unit:=wdLine, Count:=10
Selection.MoveDown Unit:=wdLine, Count:=6
Selection.MoveRight Unit:=wdCharacter, Count:=52
Selection.TypeParagraph
Selection.PasteAndFormat (wdListCombineWithExistingList)
ActiveDocument.Save

 

[Yisrael]

כשהקלטת את המאקרו בעצם פתחת את המסמך שבו את מעוניינת להדביק את הטקסט שהעתקת, אבל בשביל להגיע למיקום שבו רצית להדביק את הטקסט עשית כך:
ירדת 172 שורות, עלית חזרה 10 שורות, ירדת שוב 6 ואז הזזת את הסמן 52 תווים לימין, יצרת פסקה חדשה ואז הדבקת. כך שבעצם בכל פעם שהמאקרו יופעל הוא יחזור גם על כל הפעולות הללו.
בשביל ליצור מאקרו שיעבוד כמו שצריך בכל פעם שנפעיל אותו אנחנו צריכים להקליט רק את הפעולות שיחזרו על עצמן ויהיו נכונות ורלוונטיות לכל פעם שנרצה להשתמש במאקרו. לדוגמה במקרה שלך אפשר להגדיר שהמאקרו ירד תמיד לסוף המסמך, יצור שם פסקה חדשה ובה ידביק את הטקסט שהעתקת, לשם כך בזמן ההקלטה את צריכה אחרי פתיחת המסמך לרדת לסוף המסמך ע"י ctrl+end, ליצור פסקה חדשה ולהדביק, אם תרדי לסוף המסמך ע"י הזזת הסמן עם החץ מטה, בפעם הבאה שתפעילי את המאקרו הוא ירד אותו מספר שורות, מה שהפעם כבר לא יהיה סוף המסמך. לכן כנראה הוא מדביק לך את זה בתוך הערת שוליים, מכיון שכשהוא חוזר על כל הפעולות שביצעת הוא מגיע באופן מקרי להערת שוליים.

מקווה שהייתי ברור.
בהצלחה!

 

[פלפלת]

זהו אני בשלב האחרון בעז"ה...

הכל טוב...אבל הבעיה שמשום מה CTRL+END לא עובד אצלי...בדקתי אצל מישהו אחר וכן עבד..ואז גילתי שההבדל שאצלי בלוח מקשים האנד משמש גם כחץ הימני.
יש קיצור מקשים אחר כדי להגיע לסוף המסמך?

ושוב ממש ממש תודה

 

[FullTime]

אפשר להדביק את זה במקום...
Selection.EndKey Unit:=wdStory
אם לא יודעים איפה זה, אפשר להקיש במקום קונטרול אנד למשל כוכבית, ואז איפה שנרשם כוכבית בקוד, להחליף את כל השורה לשורה הנ"ל...

 

[Yisrael]

כמו שכתבו פה, הקוד שיביא את הסמן לסוף המסמך הוא:

Selection.EndKey Unit:=wdStory

כך שפשוט צריך להדביק אותו בשלב שאחר פתיחת המסמך, כך (באדום):

Documents.Open FileName:="שיר ידידות אלו מציאות.docx", ConfirmConversions _
:=True, ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
WritePasswordTemplate:="", Format:=wdOpenFormatAuto, XMLTransform:="", _
DocumentDirection:=wdRightToLeft
[COLOR=#FF0000]Selection.EndKey Unit:=wdStory[/COLOR]
Selection.TypeParagraph
Selection.PasteAndFormat (wdListCombineWithExistingList)
ActiveDocument.Save

הקוד הנ"ל יביא את הסמן לסוף המסמך, ייצור פסקה חדשה, ידביק שם את הטקסט וישמור את השינויים.

 

[פלפלת]

ב"ה
העסק הסתדר והרבה תודות לאנשים הנפלאים פה
מלבד מצוות חסד שעשיתם, גם יש פה סיוע לדברי תורה.
שכרכם כפול מן השמים...

 

[Yisrael]

בשמחה!