שימו לב — קטגוריית ארכיון
הנושאים בקטגוריה זו הועברו מארכיון קבוצת גוגל, והמשתמשים המוצגים בהם אינם פעילים בפורום.
לקבלת מענה או לתחילת דיון, מומלץ לפתוח נושא חדש בקטגוריה המתאימה.
העברה להערות שוליים ע"י חיפוש והחלפה.
2022
14
פוסטים
5
כותבים
0
צפיות
1
עוקבים
-
תאריך ההודעה המקורית: 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]
-
-
-
-
-
-
תאריך ההודעה המקורית: 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]
-
תאריך ההודעה המקורית: 17/11/2022 14:51
הרב דיקמן, השתמשתי במאקרו שלך (להחליף סוגריים בהערות שוליים, אך כשאני מגיע
לשימוש בפועל, הוא קופץ מאנגלית לעברית וההיפך ואז התוכנית אינה מגיבה...
מה יכול להיות הבעיה?
בברכה מרובה.
יוסף מיכאל יוסקוביץ
0548496207מאת: [email protected]
שלום! נראה שהשיחה הזו מעניינת אותך, אבל עדיין אין לך חשבון.
נמאס לכם לגלול בין אותם הפוסטים בכל ביקור? כשנרשמים לחשבון, תמיד תחזרו בדיוק למקום שבו הייתם קודם, ותוכלו לבחור לקבל התראות על תגובות חדשות (בין אם במייל, ובין אם בהתראת פוש). תוכלו גם לשמור סימניות ולפרגן ב-upvote לפוסטים כדי להביע הערכה לחברי קהילה אחרים.
בעזרת התרומה שלך, הפוסט הזה יכול להיות אפילו טוב יותר 💗
הרשמה התחברות