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

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

שימוש במקשי קיצור בהקלטת מאקרו

2024
3 3 0 1
  • י
    תאריך ההודעה המקורית: 18/11/2024 20:55

    שלום וברכה,
    עשיתי לסגנון מסוים קיצור דרך, והשתמשתי בו בהקלטה של פקודת מאקרו.
    ברם, כאשר אני מפעיל את הפקודה, הוא עושה את הכל מלבד החלת הסגנון המבוקש (הוא
    כן מקטין את הגופן - כפי שמורה סגנון היעד - אך לא משנה את הסגנון עצמו).

    אשמח לדעת מה הפתרון לכך, והאם יש קיצורי דרך מסוימים שעלולים לעשות בעיות
    (במקרה הזה הקיצור היה alt+b).

    תודה מראש!

    0
  • י יונתן - ארכיון
    תאריך ההודעה המקורית: 18/11/2024 20:55

    שלום וברכה,
    עשיתי לסגנון מסוים קיצור דרך, והשתמשתי בו בהקלטה של פקודת מאקרו.
    ברם, כאשר אני מפעיל את הפקודה, הוא עושה את הכל מלבד החלת הסגנון המבוקש (הוא
    כן מקטין את הגופן - כפי שמורה סגנון היעד - אך לא משנה את הסגנון עצמו).

    אשמח לדעת מה הפתרון לכך, והאם יש קיצורי דרך מסוימים שעלולים לעשות בעיות
    (במקרה הזה הקיצור היה alt+b).

    תודה מראש!

    מ
    תאריך ההודעה המקורית: 19/11/2024 00:20

    אינני יודע פתרון, אבל לכאו' הכי פשוט לעשות שוב את המקרו ולהשתמש בכפתור
    במקום בקצ"ד.

    --

    0
  • מ מהדיר ספרים - ארכיון
    תאריך ההודעה המקורית: 19/11/2024 00:20

    אינני יודע פתרון, אבל לכאו' הכי פשוט לעשות שוב את המקרו ולהשתמש בכפתור
    במקום בקצ"ד.

    --

    י
    תאריך ההודעה המקורית: 21/11/2024 17:28

    אפשר להגדיר סגנון גודל 5
    ואח"כ החלף הכל מגודל 5 לסגנון הרצוי

    מאת: [email protected]

    0
התחברו כדי לפרסם תגובה

  • Y

    מאקרו להעתקת הערת שוליים ללמעלה

    2024
    1
    0 הצבעות
    1 פוסטים
    0 צפיות
    Y
    תאריך ההודעה המקורית: 24/01/2024 20:45 שלום רב. אני מנסה לעשות פקודת מאקרו להעתיק תוכן מהערת שוליים למעלה - אני רוצה לעשות את הפעולות הבאות: ירידה להערה. 2. בחירת ההערה בשלימותה. 3. העתקה. 4. מחיקה (אין דרך לגזור הערות שוליים). 5. חזרה למעלה. 6. הדבקה. 7. מחיקת ההפניה להערה. דא עקא, שאינני מוצא רעיון איך לבצע את פעולה מספר 2, אודה לכל רעיון. אדגיש, שאינני מדבר על פעולה של עשיית מאקרו כזה למסמך כולו (יש לי מאקרו כזה כבר). ישר כח למסייעים.
  • ש

    מאקרו

    2024
    5
    0 הצבעות
    5 פוסטים
    0 צפיות
    מ
    תאריך ההודעה המקורית: 30/01/2024 20:35 מאקרו זו אפשרות מובנית בוורד ליצור תכנות של פעולות/רצף פעולות ולהגדיר להם כפתור/מקשי קיצור.
  • M

    עזרה ביצירת מאקרו למיון פסקאות

    2024
    2
    0 הצבעות
    2 פוסטים
    0 צפיות
    י
    תאריך ההודעה המקורית: 24/06/2024 22:48 כן בחר כל קבוצה, ולחץ על מיין בתפריט בית ------ Original Message ------ מאת: From "[email protected]" מאת: To "פורום עורכים תורניים" Date י"ח סיוון תשפ"ד 22:34:39 Subject [הבית לעורך התורני] עזרה ביצירת מאקרו למיון פסקאות
  • מ

    הודעת שגיאה בפתיחת פקודת מאקרו

    2024
    1
    0 הצבעות
    1 פוסטים
    0 צפיות
    מ
    תאריך ההודעה המקורית: 22/07/2024 00:08 [image: image.png] מה אפשר לעשות? "אשר תשים לפניהם - אמר לו הקב"ה למשה, לא תעלה על דעתך לומר, אשנה להם הפרק וההלכה ב' או ג' פעמים עד שתהא סדורה בפיהם כמשנתה, ואיני מטריח עצמי להבינם טעמי הדבר ופירושו, לכך נאמר אשר תשים לפניהם, כשלחן הערוך ומוכן לאכול לפני האדם".
  • ד

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

    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 --
  • Y

    מאקרו במחשב עצמו

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

    קיצור דרך לשינוי צבע הטקסט

    2024
    2
    0 הצבעות
    2 פוסטים
    0 צפיות
    א
    תאריך ההודעה המקורית: 06/09/2024 10:43 אפשר ליצור מאקרו פשוט.
  • א

    פקודות מאקרו שנמחקות

    2024
    4
    0 הצבעות
    4 פוסטים
    0 צפיות
    א
    תאריך ההודעה המקורית: 16/11/2024 20:38 אצלי קורה דבר מוזר בתחילה סרב לעשות לי אבל עשה טובה ושורה אחת הוא כן פעל הפעלתי עוד פעם את המאקרו ושוב נתן שורה אחת בלבד התקנתי מחדש - כלומר העתקתי את פקודת המאקרו והדבבקתי בקובץ שנפתח בalt + f11 ואז פעם אחת עשה בעייה ומיד אחר כך הכל תקין זה ממש פלא פלאים כמה המחשב הזה לא צפוי מאת: [email protected]