בקשת מידע | האם אפשר להוסיף מלל ממסמך אחר כהערות שוליים?
-
@menajemmendel כתב בבקשת מידע | האם אפשר להוסיף מלל ממסמך אחר כהערות שוליים?:
איך הרי אי אפשר לכתוב בתיבת החלף ''להוסיף סימון הערת שוליים? אז מאד פשוט תוסיף ידני הערת שוליים פעם אחת, תבחר אותו ותעתיק אותו, ועכשיו והחלך תבחר ב''תוכן הלוח'') ותעשה החלף הכל עכשיו יהיה לך הערות שוליים ריקות בכל המסמך.
אפשר בצורה אחרת: לבחור עילי אחד, וללחוץ על 'בחר טקסט עם עיצוב דומה', ובפנל הסגנונות ללחוץ על 'הפניה להערת שוליים', והכל נהיה ככה. לגופו של ענין, איך הוא יודע להדביק את כל ההערות לתוך ההערות ולא במסמך הראשי? האם אני צריך קודם לעמוד בשדה ההערות? והאם הוא יודע להדביק כל פעם בהערה הבאה בלי לפגוע באות הציון להערה?
@ששמעון כתב בבקשת מידע | האם אפשר להוסיף מלל ממסמך אחר כהערות שוליים?:
אפשר בצורה אחרת: לבחור עילי אחד, וללחוץ על 'בחר טקסט עם עיצוב דומה', ובפנל הסגנונות ללחוץ על 'הפניה להערת שוליים', והכל נהיה ככה.
לא, פעולה זאת רק יחיל על הטקטס סגנון שיראה כמו הפניה, אבל לא יצור ממש הערה למטה, בדקתי את זה הרגע
לגופו של ענין, איך הוא יודע להדביק את כל ההערות לתוך ההערות ולא במסמך הראשי? האם אני צריך קודם לעמוד בשדה ההערות? והאם הוא יודע להדביק כל פעם בהערה הבאה בלי לפגוע באות הציון להערה?
הקוד הוא קוד מאד פשוט והוא רק שורה , הפקודה אומר לוורד ככה: X =1 בהערה מספר X במסמך א' תכתוב את המלל שמופיע במסמך ב' בפסיקה מספר X. אחרי זה X=2 וחוזר על הפעולה, וכן הלאה חוזר אוטומטי על הפעולה, עד שX יגיעה למספר הערות שוליים שיש במסמך א.
(לצורך הבנת הקוד, בקוד עצמו לא כתבתי X אלא i, כי כך מקובל בקודים אבל זה הרעיון אם אתה יודע קצת אנגלית, תראה זה הקוד:
RASHI.Footnotes(i).Range.Text = HEAROT.Paragraphs(i).Range.Text -
@ששמעון כתב בבקשת מידע | האם אפשר להוסיף מלל ממסמך אחר כהערות שוליים?:
אפשר בצורה אחרת: לבחור עילי אחד, וללחוץ על 'בחר טקסט עם עיצוב דומה', ובפנל הסגנונות ללחוץ על 'הפניה להערת שוליים', והכל נהיה ככה.
לא, פעולה זאת רק יחיל על הטקטס סגנון שיראה כמו הפניה, אבל לא יצור ממש הערה למטה, בדקתי את זה הרגע
לגופו של ענין, איך הוא יודע להדביק את כל ההערות לתוך ההערות ולא במסמך הראשי? האם אני צריך קודם לעמוד בשדה ההערות? והאם הוא יודע להדביק כל פעם בהערה הבאה בלי לפגוע באות הציון להערה?
הקוד הוא קוד מאד פשוט והוא רק שורה , הפקודה אומר לוורד ככה: 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, וכו'. טוב לא משנה... העיקר שזה עובד, אני ינסה היום בל"נ.
-
@האדם-החושב @pcinfogmach אולי שווה לוהסיף לעיצוב\ וורד תורני
-
@menajemmendel וואו, מדהים. אבל הוא יודע לבד ש (i) זה הבא בתור, או שצריך להגדיר משהו? עריכה: נראה לי הבנתי, הוא בעצם מגדיר שזה יהיה באותו מספר פיסקה כמו ההערה בראשי, השאלה רק למה לא לכתוב במקום (i) - את המספר האמיתי. כגון 1 = 1, 2 = 2, וכו'. טוב לא משנה... העיקר שזה עובד, אני ינסה היום בל"נ.
@ששמעון כתב בבקשת מידע | האם אפשר להוסיף מלל ממסמך אחר כהערות שוליים?:
אבל הוא יודע לבד ש (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 שכתבתי בשורה הראושנה
-
@ששמעון כתב בבקשת מידע | האם אפשר להוסיף מלל ממסמך אחר כהערות שוליים?:
אבל הוא יודע לבד ש (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 כתב בבקשת מידע | האם אפשר להוסיף מלל ממסמך אחר כהערות שוליים?:
ואתה פגשת מישהו שמוכן לתכנת את זה עבורך בחינם
מה שאתה הבאת זה פקודה בVBA, הם מציעים 'תוכנה' עם ממשק משתמש. בכל אופן התכוונתי שאם יש פקודה לא צריך לשלם על ממשק.
-
@ששמעון כתב בבקשת מידע | האם אפשר להוסיף מלל ממסמך אחר כהערות שוליים?:
א - היו עוד תוים שאינם אותיות שהיו כתב עילי. ב - לאחר בחירת רק התוים שהם אותיות והפיכתם לטקסט הלוח - הע' שוליים, התגלה שהוא הופך כל אות להע' שוליים נפרדת, והרי יש יא, יב, וכו', אתה מבין.
את הא' אתה צריך לוודות קודם שאין שום דברים נוספים בכתב עילי, ורק אז לעשות את החפש החלף לגבי הב' לא הבנתי מה אתה אומר
@menajemmendel כתב בבקשת מידע | האם אפשר להוסיף מלל ממסמך אחר כהערות שוליים?:
@ששמעון כתב בבקשת מידע | האם אפשר להוסיף מלל ממסמך אחר כהערות שוליים?:
א - היו עוד תוים שאינם אותיות שהיו כתב עילי. ב - לאחר בחירת רק התוים שהם אותיות והפיכתם לטקסט הלוח - הע' שוליים, התגלה שהוא הופך כל אות להע' שוליים נפרדת, והרי יש יא, יב, וכו', אתה מבין.
את הא' אתה צריך לוודות קודם שאין שום דברים נוספים בכתב עילי, ורק אז לעשות את החפש החלף לגבי הב' לא הבנתי מה אתה אומר
התכוונתי שכל אות בנפרד הוא הופך להערת שוליים נפרדת, אז זה טוב כשיש לך א, ב, ג, ד, וכו' עד י', אבל אם יש לך כתב עילי של "יא" או "יב" שזה אמור להיות הערת שוליים אחת, הוא בעצם הופך אותם לשניים, הבנת? מה שצריך זה פשוט לעשות החלפה בתוים כלליים (*) כתב עילי להערת שוליים אחת.
-
@menajemmendel כתב בבקשת מידע | האם אפשר להוסיף מלל ממסמך אחר כהערות שוליים?:
@ששמעון כתב בבקשת מידע | האם אפשר להוסיף מלל ממסמך אחר כהערות שוליים?:
א - היו עוד תוים שאינם אותיות שהיו כתב עילי. ב - לאחר בחירת רק התוים שהם אותיות והפיכתם לטקסט הלוח - הע' שוליים, התגלה שהוא הופך כל אות להע' שוליים נפרדת, והרי יש יא, יב, וכו', אתה מבין.
את הא' אתה צריך לוודות קודם שאין שום דברים נוספים בכתב עילי, ורק אז לעשות את החפש החלף לגבי הב' לא הבנתי מה אתה אומר
התכוונתי שכל אות בנפרד הוא הופך להערת שוליים נפרדת, אז זה טוב כשיש לך א, ב, ג, ד, וכו' עד י', אבל אם יש לך כתב עילי של "יא" או "יב" שזה אמור להיות הערת שוליים אחת, הוא בעצם הופך אותם לשניים, הבנת? מה שצריך זה פשוט לעשות החלפה בתוים כלליים (*) כתב עילי להערת שוליים אחת.
@ששמעון האם עשית את החפש החלף כמו שכתבתי לך (ע''י החלף בתוכן הלוח)? אצלי אם יש כמה אותיות מחוברות בכתב עילי מחשיב אותם כאחד, ואין את הבעיה שאתה מציין
-
@ששמעון האם עשית את החפש החלף כמו שכתבתי לך (ע''י החלף בתוכן הלוח)? אצלי אם יש כמה אותיות מחוברות בכתב עילי מחשיב אותם כאחד, ואין את הבעיה שאתה מציין
@menajemmendel עשיתי כמו שכתבת, הענין הוא שאצלי היו עוד סימונים בכתב עילי, אז עשיתי ככה:
וזה גרם שכל אות נחשבת להערת שוליים נפרדת. -
@menajemmendel עשיתי כמו שכתבת, הענין הוא שאצלי היו עוד סימונים בכתב עילי, אז עשיתי ככה:
וזה גרם שכל אות נחשבת להערת שוליים נפרדת. -
@ששמעון האם עשית את החפש החלף כמו שכתבתי לך (ע''י החלף בתוכן הלוח)? אצלי אם יש כמה אותיות מחוברות בכתב עילי מחשיב אותם כאחד, ואין את הבעיה שאתה מציין
-
@ששמעון ראיתי שיש כמה תיקונים לכן ביקשתי אם אפשר את זה ארוז סופית ואם אתה אומר שיש בעיה אולי @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 איזה עוד טעויות ראית?
-
@u88 כתב בבקשת מידע | האם אפשר להוסיף מלל ממסמך אחר כהערות שוליים?:
@ששמעון יש מצב שמישהו עושה את המאקרו הזה מסודר בתוך תבנית ????
אני לא מבין מה נח להם בתבנית, זה יוצר שיהיה לך מלא תבניות, ולא תוכל להשתמש במסמך שכבר יש לך כי שמה לא מותקן המאקרו, יותר קל להעתיק אותו בפקודת מאקרו ולהפעיל אותו לא? ואם אתה לא יודע איך, הנה כאן מדריך
-
@u88 כתב בבקשת מידע | האם אפשר להוסיף מלל ממסמך אחר כהערות שוליים?:
@ששמעון יש מצב שמישהו עושה את המאקרו הזה מסודר בתוך תבנית ????
אני לא מבין מה נח להם בתבנית, זה יוצר שיהיה לך מלא תבניות, ולא תוכל להשתמש במסמך שכבר יש לך כי שמה לא מותקן המאקרו, יותר קל להעתיק אותו בפקודת מאקרו ולהפעיל אותו לא? ואם אתה לא יודע איך, הנה כאן מדריך
 { const baseUrl = "https://www.google.co.il/search?q=site:mitmachim.top"; const m = location.pathname.match(/^\/(topic|category)\/(\d+)/); const type = m ? m[1] : null; const id = m ? m[2] : null; let searchInput; function search(path = "") { const query = searchInput.value.trim(); if (query) { window.open(`${baseUrl}${path}%20${encodeURIComponent(query)}`, "_blank"); } } let buttons = {}; buttons.searchAll = { id: "bb-search-all", label: `חיפוש ${type ? "בכל הפורום" : ""}`, className: type ? "btn-secondary" : "btn-primary", callback: () => search(), }; if (type === "topic") { buttons.searchTopic = { label: "חיפוש בנושא זה", className: "btn-primary", callback: () => search(`/topic/${id}`), }; } else if (type === "category") { buttons.searchCategory = { label: "חיפוש בקטגוריה זו", className: "btn-primary", callback: () => search(`/category/${id}`), }; } buttons.cancel = { label: "ביטול", className: "btn-default", "data-bs-dismiss": "modal" }; const dialog = bootbox.dialog({ title: '<div style="text-align:center;"><img src="/assets/uploads/files/1625950269825-mt-google.png" width="400" alt="חיפוש בגוגל"></div>', message: '<input id="bb-inp" class="bootbox-input bootbox-input-text form-control" placeholder="הקלידו כדי לחפש בגוגל" autocomplete="off"/>', buttons, backdrop: true, show: true, onEscape: true }); dialog.on("shown.bs.modal", function () { searchInput = document.getElementById("bb-inp"); if (searchInput) { searchInput.focus(); searchInput.addEventListener("keydown", function (e) { if (e.key === "Enter") { e.preventDefault(); const query = this.value.trim(); if (query) { search(); dialog.modal("hide"); } } else if (e.key === "Escape") { e.preventDefault(); dialog.modal("hide"); } }); } const searchAllButton = document.getElementById("bb-search-all"); if (searchAllButton) { searchAllButton.title = "לחצו על אנטר כדי לחפש"; } }); })(); void 0;){kind=link}