העברה להערות שוליים ע"י חיפוש והחלפה.
-
תאריך ההודעה המקורית: 03/11/2022 21:08
האם לחו"ר יש רעיון כיצד להעביר קטעים שנמצאים בסוגריים להערות שוליים ע"י
חיפוש והחלפה?
יישר כח לעוזרים ושכמ"ה"אשר תשים לפניהם - אמר לו הקב"ה למשה, לא תעלה על דעתך לומר, אשנה להם הפרק
וההלכה ב' או ג' פעמים עד שתהא סדורה בפיהם כמשנתה, ואיני מטריח עצמי להבינם
טעמי הדבר ופירושו, לכך נאמר אשר תשים לפניהם, כשלחן הערוך ומוכן לאכול לפני
האדם". -
תאריך ההודעה המקורית: 03/11/2022 21:08
האם לחו"ר יש רעיון כיצד להעביר קטעים שנמצאים בסוגריים להערות שוליים ע"י
חיפוש והחלפה?
יישר כח לעוזרים ושכמ"ה"אשר תשים לפניהם - אמר לו הקב"ה למשה, לא תעלה על דעתך לומר, אשנה להם הפרק
וההלכה ב' או ג' פעמים עד שתהא סדורה בפיהם כמשנתה, ואיני מטריח עצמי להבינם
טעמי הדבר ופירושו, לכך נאמר אשר תשים לפניהם, כשלחן הערוך ומוכן לאכול לפני
האדם".תאריך ההודעה המקורית: 03/11/2022 23:04
השתמשתי פעם במאקרו הזה (מקור פרוג):
Sub סוגריים_להערות() Application.ScreenUpdating = False again:
Selection.Find.ClearFormatting If Selection.Find.Execute(findText:="{*}",
MatchWildcards:=True, Wrap:=wdFindStop) = True Then strt = 2: lent =
Len(Selection.Text) re: For i = strt To lent If Mid(Selection.Text, i, 1) =
Chr(123) Then Selection.Extend Character:=Chr(125) strt = i + 1: lent =
Len(Selection.Text) GoTo re End If Next mRange = Right(Selection.Text,
(Len(Selection.Text) - 1)) Selection.Delete ActiveDocument.Footnotes.Add
Range:=Selection.Range, Reference:="", Text:=Left(mRange, (Len(mRange) -
1)) & "." If Selection.Previous.Text = " " Then Selection.Delete
Unit:=wdCharacter, Count:=-1 GoTo again End If Application.ScreenUpdating =
True End Sub -
תאריך ההודעה המקורית: 03/11/2022 23:04
השתמשתי פעם במאקרו הזה (מקור פרוג):
Sub סוגריים_להערות() Application.ScreenUpdating = False again:
Selection.Find.ClearFormatting If Selection.Find.Execute(findText:="{*}",
MatchWildcards:=True, Wrap:=wdFindStop) = True Then strt = 2: lent =
Len(Selection.Text) re: For i = strt To lent If Mid(Selection.Text, i, 1) =
Chr(123) Then Selection.Extend Character:=Chr(125) strt = i + 1: lent =
Len(Selection.Text) GoTo re End If Next mRange = Right(Selection.Text,
(Len(Selection.Text) - 1)) Selection.Delete ActiveDocument.Footnotes.Add
Range:=Selection.Range, Reference:="", Text:=Left(mRange, (Len(mRange) -
1)) & "." If Selection.Previous.Text = " " Then Selection.Delete
Unit:=wdCharacter, Count:=-1 GoTo again End If Application.ScreenUpdating =
True End Subתאריך ההודעה המקורית: 03/11/2022 23:07
איני מבין גדול במאקרו, תוכל להסביר לי איך ממקמים את הפקודה?
לפי מה שהבנתי נכנסים לסביבת העבודה של וירטואל בייסיק אך את אופן שמירת
המאקרו לא הבנתי כ"כ טוב.מאת: [email protected]
-
תאריך ההודעה המקורית: 03/11/2022 23:07
איני מבין גדול במאקרו, תוכל להסביר לי איך ממקמים את הפקודה?
לפי מה שהבנתי נכנסים לסביבת העבודה של וירטואל בייסיק אך את אופן שמירת
המאקרו לא הבנתי כ"כ טוב.מאת: [email protected]
תאריך ההודעה המקורית: 03/11/2022 23:12
הצלחתי.
לא ידעתי שזה כ"כ פשוט.
צריך להקצות לזה קיצור מקשים או שיש מקש מוקצה? -
תאריך ההודעה המקורית: 03/11/2022 23:12
הצלחתי.
לא ידעתי שזה כ"כ פשוט.
צריך להקצות לזה קיצור מקשים או שיש מקש מוקצה?תאריך ההודעה המקורית: 03/11/2022 23:14
אין צורך, נכנסים למאקרו ומפעילים.
-
תאריך ההודעה המקורית: 03/11/2022 23:14
אין צורך, נכנסים למאקרו ומפעילים.
-
תאריך ההודעה המקורית: 06/11/2022 14:49
יישר כח עצום ורב לרב אברהם דיקמן על המאקרו הנפלא להמרת סוגריים להערת שוליים!
-
תאריך ההודעה המקורית: 06/11/2022 14:49
יישר כח עצום ורב לרב אברהם דיקמן על המאקרו הנפלא להמרת סוגריים להערת שוליים!
תאריך ההודעה המקורית: 06/11/2022 23:32
-
תאריך ההודעה המקורית: 06/11/2022 23:32
תאריך ההודעה המקורית: 07/11/2022 18:11
יש הפוך? - להמיר הערות שוליים לסוגריים?
ב-יום ראשון, 6 בנובמבר 2022 בשעה 23:32:32 UTC+2, es0583292679 כתב/ה:
-
תאריך ההודעה המקורית: 07/11/2022 18:11
יש הפוך? - להמיר הערות שוליים לסוגריים?
ב-יום ראשון, 6 בנובמבר 2022 בשעה 23:32:32 UTC+2, es0583292679 כתב/ה:
תאריך ההודעה המקורית: 07/11/2022 18:26
כמובן!
עיין בתמונה שהבאתי לעיל.[data:image/gif;base64,R0lGODlhAQABAIAAAP///wAAACwAAAAAAQABAAACAkQBADs=3D]
מאת: [email protected] -
תאריך ההודעה המקורית: 07/11/2022 18:26
כמובן!
עיין בתמונה שהבאתי לעיל.[data:image/gif;base64,R0lGODlhAQABAIAAAP///wAAACwAAAAAAQABAAACAkQBADs=3D]
מאת: [email protected]תאריך ההודעה המקורית: 07/11/2022 18:35
תודה.
התכונתי לשאול אם יש איזו פקודת מאקרו כזו.
בברכה מרובה.
יוסף מיכאל יוסקוביץ
0548496207מאת: [email protected]
-
תאריך ההודעה המקורית: 07/11/2022 18:35
תודה.
התכונתי לשאול אם יש איזו פקודת מאקרו כזו.
בברכה מרובה.
יוסף מיכאל יוסקוביץ
0548496207מאת: [email protected]
תאריך ההודעה המקורית: 08/11/2022 19:44
תעשה כזאת.
הרעיון הוא להבין מהו רצף הפעולות שחוזר על עצמו, ואז להקליט למקרו.
עשיתי בעבר ועבד מצוין.
הפעולה הראשונה צריכה להיות לעבור להערת שוליים הקרובה, וזה עושים ע"י "הצג
הערות" שבסרגל הפניות.מאת: [email protected]
-
תאריך ההודעה המקורית: 08/11/2022 19:44
תעשה כזאת.
הרעיון הוא להבין מהו רצף הפעולות שחוזר על עצמו, ואז להקליט למקרו.
עשיתי בעבר ועבד מצוין.
הפעולה הראשונה צריכה להיות לעבור להערת שוליים הקרובה, וזה עושים ע"י "הצג
הערות" שבסרגל הפניות.מאת: [email protected]
תאריך ההודעה המקורית: 08/11/2022 21:27
איך עושים זאת? מישהו יכול להדריכני?
בברכה מרובה.
יוסף מיכאל יוסקוביץ
0548496207 -
תאריך ההודעה המקורית: 08/11/2022 21:27
איך עושים זאת? מישהו יכול להדריכני?
בברכה מרובה.
יוסף מיכאל יוסקוביץ
0548496207תאריך ההודעה המקורית: 17/11/2022 14:51
הרב דיקמן, השתמשתי במאקרו שלך (להחליף סוגריים בהערות שוליים, אך כשאני מגיע
לשימוש בפועל, הוא קופץ מאנגלית לעברית וההיפך ואז התוכנית אינה מגיבה...
מה יכול להיות הבעיה?
בברכה מרובה.
יוסף מיכאל יוסקוביץ
0548496207מאת: [email protected]
שלום! נראה שהשיחה הזו מעניינת אותך, אבל עדיין אין לך חשבון.
נמאס לכם לגלול בין אותם הפוסטים בכל ביקור? כשנרשמים לחשבון, תמיד תחזרו בדיוק למקום שבו הייתם קודם, ותוכלו לבחור לקבל התראות על תגובות חדשות (בין אם במייל, ובין אם בהתראת פוש). תוכלו גם לשמור סימניות ולפרגן ב-upvote לפוסטים כדי להביע הערכה לחברי קהילה אחרים.
בעזרת התרומה שלך, הפוסט הזה יכול להיות אפילו טוב יותר 💗
הרשמה התחברות