בקשת מידע | האם אפשר להוסיף מלל ממסמך אחר כהערות שוליים?

menajemmendel

@ששמעון
כדי שיהיה יותר קל, (שלא יצרטכו גם זה לעשות במקרו)

קודם כל תוסיף ע''י ''חפש והחלף'' הערות שוליים בכל מקום שיש כתב עילי. (איך הרי אי אפשר לכתוב בתיבת החלף ''להוסיף סימון הערת שוליים? אז מאד פשוט תוסיף ידני הערת שוליים פעם אחת, תבחר אותו ותעתיק אותו, ועכשיו והחלך תבחר ב''תוכן הלוח'') ותעשה החלף הכל
עכשיו יהיה לך הערות שוליים ריקות בכל המסמך.
עכשיו תריץ את המאקרו הבא (צריך ששתי המסמכים יהיו פתוחים), ותכתוב במאקרו את שם המסמך במקום המתאים
(RASHI זה המסמך הראשי, וHEAROT זה המסמך עם הערות) (או אם אתה מעדיף שלא לגעת במאקרו, אז תחליף זמנית את שמות הקבצים, לקובץ הראשי תקרא A.DOCX ולקובץ הערות תקרא B.DOCX)
וכמובן תעשה גיבוי של הקובץ המקורי לפני שאתה מנסה את המאקרו

Sub MACRO5()
Dim RASHI, HEAROT As Document

Set RASHI = Documents("A.docx")
Set HEAROT = Documents("B.docx")
    
For i = 1 To HEAROT.Paragraphs.Count
    RASHI.Footnotes(i).Range.Text = HEAROT.Paragraphs(i).Range.Text
Next i
End Sub

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

בהצלחה

אם אחרי זה אתה זקוק למעמד מקצועי אתה מוזמן לפנות אלי

ששמעון

@menajemmendel כתב בבקשת מידע | האם אפשר להוסיף מלל ממסמך אחר כהערות שוליים?:

איך הרי אי אפשר לכתוב בתיבת החלף ''להוסיף סימון הערת שוליים? אז מאד פשוט תוסיף ידני הערת שוליים פעם אחת, תבחר אותו ותעתיק אותו, ועכשיו והחלך תבחר ב''תוכן הלוח'') ותעשה החלף הכל
עכשיו יהיה לך הערות שוליים ריקות בכל המסמך.

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

menajemmendel

@ששמעון כתב בבקשת מידע | האם אפשר להוסיף מלל ממסמך אחר כהערות שוליים?:

אפשר בצורה אחרת:
לבחור עילי אחד, וללחוץ על 'בחר טקסט עם עיצוב דומה', ובפנל הסגנונות ללחוץ על 'הפניה להערת שוליים', והכל נהיה ככה.

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

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

הקוד הוא קוד מאד פשוט והוא רק שורה , הפקודה אומר לוורד ככה:
X =1
בהערה מספר X במסמך א' תכתוב את המלל שמופיע במסמך ב' בפסיקה מספר X.
אחרי זה X=2 וחוזר על הפעולה, וכן הלאה חוזר אוטומטי על הפעולה, עד שX יגיעה למספר הערות שוליים שיש במסמך א.

(לצורך הבנת הקוד, בקוד עצמו לא כתבתי X אלא i, כי כך מקובל בקודים אבל זה הרעיון
אם אתה יודע קצת אנגלית, תראה זה הקוד:

    RASHI.Footnotes(i).Range.Text = HEAROT.Paragraphs(i).Range.Text

ששמעון

@menajemmendel וואו, מדהים.
אבל הוא יודע לבד ש (i) זה הבא בתור, או שצריך להגדיר משהו?
עריכה:
נראה לי הבנתי, הוא בעצם מגדיר שזה יהיה באותו מספר פיסקה כמו ההערה בראשי, השאלה רק למה לא לכתוב במקום (i) - את המספר האמיתי.
כגון 1 = 1,
2 = 2, וכו'.
טוב לא משנה... העיקר שזה עובד, אני ינסה היום בל"נ.

u88

@האדם-החושב @pcinfogmach
אולי שווה לוהסיף לעיצוב\ וורד תורני

menajemmendel

@ששמעון כתב בבקשת מידע | האם אפשר להוסיף מלל ממסמך אחר כהערות שוליים?:

אבל הוא יודע לבד ש (i) זה הבא בתור, או שצריך להגדיר משהו?
עריכה:
נראה לי הבנתי, הוא בעצם מגדיר שזה יהיה באותו מספר פיסקה כמו ההערה בראשי, השאלה רק למה לא לכתוב במקום (i) - את המספר האמיתי.
כגון 1 = 1,
2 = 2, וכו'.
טוב לא משנה... העיקר שזה עובד, אני ינסה היום בל"נ.

אתה לא צריך להוסיף שום דבר (רק מה שכתבתי לך על השמות של הקבצים), לגבי איך פועל, אסביר בקצרה את הלולאה [הם ה3 שורות הבאות]

For i = 1 To HEAROT.Paragraphs.Count
    RASHI.Footnotes(i).Range.Text = HEAROT.Paragraphs(i).Range.Text
Next i

שורה ראושנה אומר שיחליף אוטומטי את הערך של i, בתחלה החל ממספר 1 עד הסמפר של פסקאות שיש במסמך ההערות
השורה השניה היא הקוד עצמו [שואמר לכתוב בתוך ההערת שוליים מספר i את הטקסט שבפסיקה i בקובץ עם הערות]
והשורה 3 אומר שגמר הסיבוב הזה, ויש לחזור לתחילת הלולאה,
ואז שורה ראשונה יתן לi המספר הבא, וחוזר חלילה,

אין צורך לכתוב במיוחד זה, הפעולה של פקודת FOR שכתבתי בשורה הראושנה

ששמעון

@menajemmendel מדהים!
תודה על ההסבר הבהיר. יש לך את זה...

menajemmendel

@ששמעון נו, עבד לך?

ששמעון

@menajemmendel כן, בדיוק אתמול ניסיתי את זה,
ובהחלט עבד! וזה היה נראה כמו אותות ומופתים...
הייתי רק צריך להתגבר על כמה בעיות:
א - היו עוד תוים שאינם אותיות שהיו כתב עילי.
ב - לאחר בחירת רק התוים שהם אותיות והפיכתם לטקסט הלוח - הע' שוליים, התגלה שהוא הופך כל אות להע' שוליים נפרדת, והרי יש יא, יב, וכו', אתה מבין.
אגב, יש לזה תוכנה בתשלום של חברת דגל ניקוד, ונחמד לגלות שאפשר עם פקודה קטנה בחינם.
תודה רבה לך!

menajemmendel

@ששמעון כתב בבקשת מידע | האם אפשר להוסיף מלל ממסמך אחר כהערות שוליים?:

אגב, יש לזה תוכנה בתשלום של חברת דגל ניקוד, ונחמד לגלות שאפשר עם פקודה קטנה בחינם.
תודה רבה לך!

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

menajemmendel

@ששמעון כתב בבקשת מידע | האם אפשר להוסיף מלל ממסמך אחר כהערות שוליים?:

א - היו עוד תוים שאינם אותיות שהיו כתב עילי.
ב - לאחר בחירת רק התוים שהם אותיות והפיכתם לטקסט הלוח - הע' שוליים, התגלה שהוא הופך כל אות להע' שוליים נפרדת, והרי יש יא, יב, וכו', אתה מבין.

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

ששמעון

@menajemmendel כתב בבקשת מידע | האם אפשר להוסיף מלל ממסמך אחר כהערות שוליים?:

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

מה שאתה הבאת זה פקודה בVBA,
הם מציעים 'תוכנה' עם ממשק משתמש.
בכל אופן התכוונתי שאם יש פקודה לא צריך לשלם על ממשק.

ששמעון

@menajemmendel כתב בבקשת מידע | האם אפשר להוסיף מלל ממסמך אחר כהערות שוליים?:

@ששמעון כתב בבקשת מידע | האם אפשר להוסיף מלל ממסמך אחר כהערות שוליים?:

א - היו עוד תוים שאינם אותיות שהיו כתב עילי.
ב - לאחר בחירת רק התוים שהם אותיות והפיכתם לטקסט הלוח - הע' שוליים, התגלה שהוא הופך כל אות להע' שוליים נפרדת, והרי יש יא, יב, וכו', אתה מבין.

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

התכוונתי שכל אות בנפרד הוא הופך להערת שוליים נפרדת, אז זה טוב כשיש לך א, ב, ג, ד, וכו' עד י',
אבל אם יש לך כתב עילי של "יא" או "יב" שזה אמור להיות הערת שוליים אחת, הוא בעצם הופך אותם לשניים, הבנת?
מה שצריך זה פשוט לעשות החלפה בתוים כלליים (*) כתב עילי להערת שוליים אחת.

menajemmendel

@ששמעון האם עשית את החפש החלף כמו שכתבתי לך (ע''י החלף בתוכן הלוח)? אצלי אם יש כמה אותיות מחוברות בכתב עילי מחשיב אותם כאחד, ואין את הבעיה שאתה מציין

ששמעון

@menajemmendel עשיתי כמו שכתבת,
הענין הוא שאצלי היו עוד סימונים בכתב עילי, אז עשיתי ככה:

וזה גרם שכל אות נחשבת להערת שוליים נפרדת.

u88

@ששמעון יש מצב שמישהו עושה את המאקרו הזה מסודר בתוך תבנית ????

ששמעון

@u88 לא יודע איך עושים.

ששמעון

@menajemmendel שכחתי לכתוב, יש בעיה קטנה במאקרו הנ"ל, שאחרי כל הערה יש שורה ריקה.

u88

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

menajemmendel

@ששמעון כתב בבקשת מידע | האם אפשר להוסיף מלל ממסמך אחר כהערות שוליים?:

@menajemmendel שכחתי לכתוב, יש בעיה קטנה במאקרו הנ"ל, שאחרי כל הערה יש שורה ריקה.

הנה גירסה מתוקנת בלי אנטרים מיותרים

Sub MACRO5()
Dim RASHI, HEAROT As Document
 
Set RASHI = Documents("A.docx")
Set HEAROT = Documents("B.docx")
    
For i = 1 To RASHI.Footnotes.Count
    OTEXT = HEAROT.Paragraphs(i).Range.Text
    OTEXT = Left(OTEXT, Len(OTEXT) - 1)
    RASHI.Footnotes(i).Range.Text = OTEXT
Next i
End Sub

@u88 איזה עוד טעויות ראית?