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

אלכסון

@ששמעון מצאתי אצלי איזה מאקרו ישן בשביל זה, לא יודע האם ואיך הוא עובד. לא לוקח אחריות - תגבה קודם את הקבצים.

Sub שילוב_הערות()
aaa = InputBox("?כמה הערות ישנן")
'ccc = InputBox("?מהו שם קובץ ראשי", , "1.doc")
'ddd = InputBox("?מהו שם קובץ הערות", , "2.doc")
        'for office 2007
ccc = InputBox("?מהו שם קובץ ראשי", , "1 [מצב תאימות]")
ddd = InputBox("?מהו שם קובץ הערות", , "2 [מצב תאימות]")
 
Application.ScreenUpdating = False
Windows(ddd).Activate
   With Selection
    .EndKey Unit:=wdStory
    .TypeParagraph
    .TypeText Text:="&"
    .HomeKey Unit:=wdStory
   End With
Windows.Arrange
For i = 1 To aaa
StatusBar = i & " of " & aaa
Windows(ddd).Activate
With Selection
    .StartIsActive = False
    .Extend Character:="&"
    .Extend Character:="&"
    .MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    .Cut
End With
    Windows(ccc).Activate
Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "$"
        .Forward = True
        .Wrap = wdFindContinue
        .MatchWildcards = False
    End With
Selection.Find.Execute
    Selection.Delete
    ActiveDocument.Footnotes.Add Range:=Selection.Range, Reference:=""
    Selection.Paste
    Selection.TypeBackspace
    ActiveWindow.Panes(1).Activate
    Selection.HomeKey Unit:=wdStory
Next
Application.ScreenUpdating = True
End Sub

ששמעון

@אלכסון כתוב שזה "פור אופיס 2007"
תכלס' ניסיתי לעשות את מה שהדו שיח מבקש, הוא מוציא לי שגיאה שהקובץ המבוקש לא נמצא באוסף.
איזה אוסף?
זה נראה כאילו הקבצים אמורים להיות בתיקייה מסויימת, האם במסמכים?
@מאקרו בטח אתה תבין במאקרו הזה, תוכל להתאים אותו לאופיס 365?

menajemmendel

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

יש לי מסמך אחד שיש בו סימונים של אותיות בכתב עילי, היכן שאמורים להיות ההערות שוליים, ובמסמך אחר נמצאים כל ההערות, כשהם מתחילים באות של ההערה. [למה זה ככה - לא יודע, זה המציאות].
השאלה אם יש אפשרות חינמית בוורד להעביר את כל ההערות למקומם במסמך הראשי?
@pcinfogmach @האדם-החושב @bbn
תודה רבה!

סליחה שאני מתערב למרות שלא שאלתי אותי, אבל לא הבנתי מה אתה מתכוון שהערות מתחילות באות של ההערה.
האם כל הערה היא פיסקה בפני עצמה?
אפשר לעשות מאקרו פשוט שיחפש כתב עילי, וכל פעם שימצא יוסיף שם הערת שולייים אם הטקטס בפסיקה מספר 1, ואחריו 2 וכו'

ששמעון

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

האם כל הערה היא פיסקה בפני עצמה?

כן, כזה:
א. משנה ברורה.
ב. תוספתא.
וכו'.

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

אפשר לעשות מאקרו פשוט שיחפש כתב עילי, וכל פעם שימצא יוסיף שם הערת שולייים אם הטקטס בפסיקה מספר 1, ואחריו 2 וכו'

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

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

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