דילוג לתוכן
פורום לעורך התורני

הפורום לעורך התורני
  1. דף הבית
  2. ארכיון: הקבוצה הישנה
  3. 2024
  4. עזרה בבר אילן. חזו"א וקיצור דרך
שימו לב — קטגוריית ארכיון
הנושאים בקטגוריה זו הועברו מארכיון קבוצת גוגל, והמשתמשים המוצגים בהם אינם פעילים בפורום.
לקבלת מענה או לתחילת דיון, מומלץ לפתוח נושא חדש בקטגוריה המתאימה.

עזרה בבר אילן. חזו"א וקיצור דרך

2024
5 4 0 1
התחברו כדי לפרסם תגובה

  • ל

    עזרה בבר - אילן

    2024
    16
    0 הצבעות
    16 פוסטים
    0 צפיות
    Y
    תאריך ההודעה המקורית: 09/02/2024 14:40 השאלה איפה האפשרות להגדיר שלא יעתיק את אותיות הציון לפרשנים. בברכה מרובה. יוסף מיכאל יוסקוביץ 0548496207 מעוניינים במבוא לספר? ביוגרפיה לחיבור כלשהו?* תולדות לסבא שלכם?** - ב"ה בעל ניסיון בכתיבת מאות מבואות תולדות והקדמות לספרים שונים, עורך ספרי היסטוריה וספרים נוספים.*
  • ש

    תקלה בבר אילן

    2024
    3
    1
    0 הצבעות
    3 פוסטים
    0 צפיות
    ת
    תאריך ההודעה המקורית: 06/03/2024 14:01 זה קרה לי בעבר בבירור בשירות התמיכה של השו"ת בר אילן הסבירו לי שזה קורה עקב העתקה של הרבה חומר ואכן להתקין מחדש את התוכנה מסייע אבל יתכן שלאחר כמה פעמים זה יחסם לגמרי
  • א

    שאלה בבר אילן

    2024
    5
    0 הצבעות
    5 פוסטים
    0 צפיות
    7
    תאריך ההודעה המקורית: 08/03/2024 10:51 כשאני מעתיק מבר אילן, תמיד נוצר רווח מיותר לאחר ההעתקה. יש דרך להפטר ממנו? תודה לעונים ב-יום חמישי, 7 במרץ 2024 בשעה 10:54:26 UTC+2, אברהם יצחק כתב/ה:
  • ש

    שאלה בבר אילן

    2024
    3
    1
    0 הצבעות
    3 פוסטים
    0 צפיות
    ש
    תאריך ההודעה המקורית: 29/01/2024 13:49 ייש"כ גדול [image: Mailtrack] https://mailtrack.io?utm_source=gmail&utm_medium=signature&utm_campaign=signaturevirality11& Sender notified by Mailtrack https://mailtrack.io?utm_source=gmail&utm_medium=signature&utm_campaign=signaturevirality11& 29.01.24, 13:49:10 מאת: [email protected]
  • י

    עזרה בבר אילן

    2024
    3
    0 הצבעות
    3 פוסטים
    0 צפיות
    י
    תאריך ההודעה המקורית: 29/05/2024 20:59 מעולה. תודה. [image: Mailtrack] https://mailtrack.io?utm_source=gmail&utm_medium=signature&utm_campaign=signaturevirality11& Sender notified by Mailtrack https://mailtrack.io?utm_source=gmail&utm_medium=signature&utm_campaign=signaturevirality11& 29.05.24, 20:58:59
  • ד

    עזרה בוורד קיצור דרך להזרחה,

    2024
    3
    0 הצבעות
    3 פוסטים
    0 צפיות
    מ
    תאריך ההודעה המקורית: 28/08/2024 14:14 מלבד קיצור הדרך הנ"ל, הכנתי מאקרו להזרחות שעושה עוד פעולה, אם אין משהו מושחר הוא מחפש את ההזרחה הבאה. ואז בלחיצה נוספת אפשר לבטל אותה. זה מאקרו די מורכב. הנה הוא: Sub הדגשצהוב() ' Check if text is selected If Selection.Type = wdSelectionIP Then ' No text selected, search and select next highlighted text Dim rng As Range Dim foundInMainDoc As Boolean Dim foundInFootnote As Boolean foundInMainDoc = False foundInFootnote = False Set rng = ActiveDocument.Range ' Set the starting point to the current selection rng.Start = Selection.End ' Check if selection is in footnotes If Selection.StoryType = wdFootnotesStory Then ' Search in footnotes first foundInFootnote = FindNextHighlightInFootnotes(Selection.End) End If ' If not found in footnotes, search in main document If Not foundInFootnote Then With rng.Find .ClearFormatting .Highlight = True .Wrap = wdFindStop .Forward = True .Execute End With If rng.Find.Found Then rng.Select foundInMainDoc = True Else ' If not found in main document, check in footnotes foundInFootnote = FindNextHighlightInFootnotes(0) End If End If ' If still not found, search from the beginning of the document If Not foundInMainDoc And Not foundInFootnote Then rng.Start = 0 rng.End = Selection.End With rng.Find .ClearFormatting .Highlight = True .Wrap = wdFindStop .Forward = True .Execute End With If rng.Find.Found Then rng.Select foundInMainDoc = True Else ' If still not found, search footnotes from the beginning foundInFootnote = FindNextHighlightInFootnotes(0) End If End If ' If no highlight found in both main document and footnotes If Not foundInMainDoc And Not foundInFootnote Then MsgBox "אין עוד טקסט מסומן עד סוף המסמך, כולל הערות שוליים." End If Else ' Check if the selected range is already highlighted If Selection.Range.HighlightColorIndex = wdYellow Then ' If highlighted, remove the highlighting Selection.Range.HighlightColorIndex = wdNoHighlight Selection.MoveRight Unit:=wdCharacter, Count:=1 Else ' If not highlighted, apply yellow highlighting Options.DefaultHighlightColorIndex = wdYellow Selection.Range.HighlightColorIndex = wdYellow End If End If End Sub Function FindNextHighlightInFootnotes(startPosition As Long) As Boolean Dim ftNote As Footnote Dim ftRng As Range FindNextHighlightInFootnotes = False For Each ftNote In ActiveDocument.Footnotes Set ftRng = ftNote.Range If ftRng.End > startPosition Then ftRng.Start = Max(ftRng.Start, startPosition) With ftRng.Find .ClearFormatting .Highlight = True .Wrap = wdFindStop .Forward = True .Execute End With If ftRng.Find.Found Then ftRng.Select FindNextHighlightInFootnotes = True Exit Function End If End If Next ftNote End Function Function Max(value1 As Long, value2 As Long) As Long If value1 > value2 Then Max = value1 Else Max = value2 End If End Function --
  • א

    בקשת עזרה בבר אילן

    2024
    6
    0 הצבעות
    6 פוסטים
    0 צפיות
    ב
    תאריך ההודעה המקורית: 19/09/2024 15:41 בבקשה לצרף קישור.
  • א

    עזרה בבר אילן

    2024
    1
    0 הצבעות
    1 פוסטים
    0 צפיות
    א
    תאריך ההודעה המקורית: 30/09/2024 21:25 אני רוצה לעשות חיפוש בתוך הספר, ואז נפתחת לי החלון המצורף. אני רוצה לבחור את האפשרות האחרונה, היינו רק את פרק יב. יש אפשרות לבחור זאת דרך המקלדת? [ירידה על ידי החיצים והקשת אנטר לא עובד] [image: image.png] [image: Mailsuite] Sent with Mailsuite · Unsubscribe https://mailtrack.io/en/privacy/opt-out/unsubscribe/e545cdca0664fa9c75c4c8fdcd4422f104af3cba/be85c6dc145a04f6aac7d6f8841984254b66015008c64bb64092da77962d7235f04239905e5463db8137c0f591defcad79f9a5992a713f9f98a9f10f7e1513e1 30.09.24, 21:23:51

0

מחובר

793

משתמשים

14.1k

נושאים

63.0k

פוסטים