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

[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 איזה עוד טעויות ראית?

[menajemmendel]

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

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

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

[u88]

@menajemmendel לא עובד אולי הבעיה אצלי

[menajemmendel]

@u88
מה הבעיה אצלך, מה עושה?
תזכור שצריך שיהיו פתוחים שתי המסמכים
ולמסמך הראשי צריכים לקראו לו A.DOCX
ולמסמך עם הערות צריכים לקראו לו B.DOCX

[u88]

@menajemmendel כך עשיתי ולא עבד
מתנצל

[menajemmendel]

@u88
אני לא יודע למה, אבל למה אתה מתכוון לא עבד, האם לא עשה כלום? הוציא הודעה? מה כתוב שם?

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