דילוג לתוכן
  • חוקי הפורום
  • פופולרי
  • לא נפתר
  • משתמשים
  • חיפוש גוגל בפורום
  • צור קשר
עיצובים
  • Light
  • Cerulean
  • Cosmo
  • Flatly
  • Journal
  • Litera
  • Lumen
  • Lux
  • Materia
  • Minty
  • Morph
  • Pulse
  • Sandstone
  • Simplex
  • Sketchy
  • Spacelab
  • United
  • Yeti
  • Zephyr
  • Dark
  • Cyborg
  • Darkly
  • Quartz
  • Slate
  • Solar
  • Superhero
  • Vapor

  • ברירת מחדל (ללא עיצוב (ברירת מחדל))
  • ללא עיצוב (ברירת מחדל)
כיווץ
מתמחים טופ
  1. דף הבית
  2. תוכנות
  3. יישומי אופיס
  4. וורד
  5. עזרה הדדית - וורד
  6. שיתוף | "מתעדכן" אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות.

שיתוף | "מתעדכן" אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות.

מתוזמן נעוץ נעול הועבר עזרה הדדית - וורד
300 פוסטים 31 כותבים 24.8k צפיות 32 עוקבים
  • מהישן לחדש
  • מהחדש לישן
  • הכי הרבה הצבעות
תגובה
  • תגובה כנושא
התחברו כדי לפרסם תגובה
נושא זה נמחק. רק משתמשים עם הרשאות מתאימות יוכלו לצפות בו.
  • י יאיר דניאל

    פוסט זה נמחק!

    ש מנותק
    ש מנותק
    שרגא תכנות
    כתב נערך לאחרונה על ידי
    #239

    מי שמועניין מאקרו להסתרת טקסט
    https://mitmachim.top/topic/79487/בקשת-מידע-טשטוש-טקסט-בוורד

    תגובה 1 תגובה אחרונה
    0
    • י יאיר דניאל

      מאקרו תיקון שגיאות - מתעדכן

      התיקונים שהוא עושה:

      • הוא מסיר:
        רווח כפול
        פסיק כפול
        נקודה כפולה
        מרכאות כפולות
        רווח ולאחמ"כ פסיק
        רווח ולאחמ"כ נקודה
        רווח ולאחמ"כ מרכאות

      • שלושה יודי"ם - מחליף ל שתיים

      • הוא מסמן את אותיות מנצפך (מ,ן,ץ,ף,ך) שיש רווח לפניהם, או שהם באמצע מילה - בצבע אדום.

      • מסמן אותיות שעומדות בפנ"ע (-כלומר עם רווח לפניהם ואחריהם) באדום.

      • הופך פיסקה 2 פיסקאות ריקות - לפיסקה 1

      • מסיר אותיות מנצפכ כפולות.
        (לדוגמא: "םם" - מחליף ב "ם")

      • הופך סוגריים הפוכים.
        (לדוגמא: ")שלום(" מחליף ב"(שלום)"). [מצוי בייבוא מאנגלית לעברית (יש לבעיה זו כבר מאקרו מובנה בווינודס)]

      • מוסיף רווח לפני ואחרי סוגריים - איפה שחסר.
        (לדוגמא: "שלום(וברכה)" \ "(שלום)וברכה". מחליף ב "שלום (וברכה)" \ "(שלום) וברכה")

      • מעביר נקודה, פסיק, וגרש למקומם הראוי, במקרה של הקלדה אחרי הרווח במקום לפני.
        (לדוגמא: "שלום ,וברכה" \ "שלום .וברכה" מחליף ב"שלום, וברכה" \ "שלום. וברכה")

      במקומות שאנחנו לא רוצים שהמאקרו יסמן אות בודדת באדום, לדוגמא: סי' א, חלק ב, שורש ז -
      המאקרו מחזיר אותם לצבע המקורי.
      במקרים דלהלהן המאקרו מחזיר לצבע המקורי: סימן, שורש, סעיף, אות, סוג, דף, חלק.
      (משום מה לא הצלחתי להגדיר שגם אם האות הצריכה תיקון נמצאת לפני מעבר פיסקה, שגם היא תתוקן ותחזור לצבעה המקורי. כשניסיתי לעשות זאת (ע"י הגדרה שכל אות אחר המילים הנ"ל תחזור לצבעה המקורי, גם אם אין אחריה ריווח), זה גרם שגם שאר האותיות = שלא אחרי המילים הנ"ל, יחזרו לצבעם המקורי. אשמח אם מישהו יוכל לפתור חידה זו, תודה).

      נ.ב. מי שנוהג לכתוב כך: סימן א' או שורש ח' לא נצרך לתיקון זה.

      נ.ב.ב. אם ישנם עוד מילים כנ"ל אשמח שיסבו את תשומת ליבי

      אשמח להערות והארות וכן להוספות.
      מאקרו תיקון סימנים כפולים ועוד.txt

      קובץ וורד - דוגמא לפעילות המאקרו:
      בדיקת מאקרו תיקון סימנים כפולים.docx

      Sub תיקון_סימנים_כפולים_ועוד()
      '
      ' תיקון_סימנים_כפולים_ועוד Macro
      '
      '
      Selection.Find.ClearFormatting
      Selection.Find.Replacement.ClearFormatting
      With Selection.Find
      .Text = "..[!.]"
      .Replacement.Text = ". "
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchKashida = False
      .MatchDiacritics = False
      .MatchAlefHamza = False
      .MatchControl = False
      .MatchAllWordForms = False
      .MatchSoundsLike = False
      .MatchWildcards = True
      End With
      Selection.Find.ClearFormatting
      Selection.Find.Replacement.ClearFormatting
      With Selection.Find
      .Text = ".{4,}"
      .Replacement.Text = "..."
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchKashida = False
      .MatchDiacritics = False
      .MatchAlefHamza = False
      .MatchControl = False
      .MatchAllWordForms = False
      .MatchSoundsLike = False
      .MatchWildcards = True
      End With
      Selection.Find.Execute Replace:=wdReplaceAll
      With Selection.Find
      .Text = ",,"
      .Replacement.Text = ","
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchKashida = False
      .MatchDiacritics = False
      .MatchAlefHamza = False
      .MatchControl = False
      .MatchAllWordForms = False
      .MatchSoundsLike = False
      .MatchWildcards = True
      End With
      Selection.Find.ClearFormatting
      Selection.Find.Replacement.ClearFormatting
      With Selection.Find
      .Text = "םם"
      .Replacement.Text = "ם"
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchKashida = False
      .MatchDiacritics = False
      .MatchAlefHamza = False
      .MatchControl = False
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
      End With
      Selection.Find.Execute Replace:=wdReplaceAll
      With Selection.Find
      .Text = "ןן"
      .Replacement.Text = "ן"
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchKashida = False
      .MatchDiacritics = False
      .MatchAlefHamza = False
      .MatchControl = False
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
      End With
      Selection.Find.Execute Replace:=wdReplaceAll
      With Selection.Find
      .Text = "ץץ"
      .Replacement.Text = "ץ"
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchKashida = False
      .MatchDiacritics = False
      .MatchAlefHamza = False
      .MatchControl = False
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
      End With
      Selection.Find.Execute Replace:=wdReplaceAll
      With Selection.Find
      .Text = "ףף"
      .Replacement.Text = "ף"
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchKashida = False
      .MatchDiacritics = False
      .MatchAlefHamza = False
      .MatchControl = False
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
      End With
      Selection.Find.Execute Replace:=wdReplaceAll
      With Selection.Find
      .Text = "ךך"
      .Replacement.Text = "ך"
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchKashida = False
      .MatchDiacritics = False
      .MatchAlefHamza = False
      .MatchControl = False
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
      End With
      Selection.Find.Execute Replace:=wdReplaceAll
      With Selection.Find
      .Text = " ם"
      .Replacement.Text = "^&"
      .Forward = True
      .Wrap = wdFindContinue
      .Format = True
      .MatchCase = False
      .MatchWholeWord = False
      .MatchKashida = False
      .MatchDiacritics = False
      .MatchAlefHamza = False
      .MatchControl = False
      .MatchAllWordForms = False
      .MatchSoundsLike = False
      .MatchWildcards = True
      End With
      Selection.Find.Execute Replace:=wdReplaceAll
      With Selection.Find
      .Text = " ן"
      .Replacement.Text = "^&"
      .Forward = True
      .Wrap = wdFindContinue
      .Format = True
      .MatchCase = False
      .MatchWholeWord = False
      .MatchKashida = False
      .MatchDiacritics = False
      .MatchAlefHamza = False
      .MatchControl = False
      .MatchAllWordForms = False
      .MatchSoundsLike = False
      .MatchWildcards = True
      End With
      Selection.Find.Execute Replace:=wdReplaceAll
      With Selection.Find
      .Text = " ץ"
      .Replacement.Text = "^&"
      .Forward = True
      .Wrap = wdFindContinue
      .Format = True
      .MatchCase = False
      .MatchWholeWord = False
      .MatchKashida = False
      .MatchDiacritics = False
      .MatchAlefHamza = False
      .MatchControl = False
      .MatchAllWordForms = False
      .MatchSoundsLike = False
      .MatchWildcards = True
      End With
      Selection.Find.Execute Replace:=wdReplaceAll
      With Selection.Find
      .Text = " ף"
      .Replacement.Text = "^&"
      .Forward = True
      .Wrap = wdFindContinue
      .Format = True
      .MatchCase = False
      .MatchWholeWord = False
      .MatchKashida = False
      .MatchDiacritics = False
      .MatchAlefHamza = False
      .MatchControl = False
      .MatchAllWordForms = False
      .MatchSoundsLike = False
      .MatchWildcards = True
      End With
      Selection.Find.Execute Replace:=wdReplaceAll
      With Selection.Find
      .Text = " ך"
      .Replacement.Text = "^&"
      .Forward = True
      .Wrap = wdFindContinue
      .Format = True
      .MatchCase = False
      .MatchWholeWord = False
      .MatchKashida = False
      .MatchDiacritics = False
      .MatchAlefHamza = False
      .MatchControl = False
      .MatchAllWordForms = False
      .MatchSoundsLike = False
      .MatchWildcards = True
      End With
      Selection.Find.Execute Replace:=wdReplaceAll
      Selection.Find.ClearFormatting
      Selection.Find.Replacement.ClearFormatting
      Selection.Find.Replacement.Font.Color = wdColorRed
      With Selection.Find
      .Text = "ם^$"
      .Replacement.Text = "^&"
      .Forward = True
      .Wrap = wdFindContinue
      .Format = True
      .MatchCase = False
      .MatchWholeWord = False
      .MatchKashida = False
      .MatchDiacritics = False
      .MatchAlefHamza = False
      .MatchControl = False
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
      End With
      Selection.Find.Execute Replace:=wdReplaceAll
      With Selection.Find
      .Text = "ן^$"
      .Replacement.Text = "^&"
      .Forward = True
      .Wrap = wdFindContinue
      .Format = True
      .MatchCase = False
      .MatchWholeWord = False
      .MatchKashida = False
      .MatchDiacritics = False
      .MatchAlefHamza = False
      .MatchControl = False
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
      End With
      Selection.Find.Execute Replace:=wdReplaceAll
      With Selection.Find
      .Text = "ץ^$"
      .Replacement.Text = "^&"
      .Forward = True
      .Wrap = wdFindContinue
      .Format = True
      .MatchCase = False
      .MatchWholeWord = False
      .MatchKashida = False
      .MatchDiacritics = False
      .MatchAlefHamza = False
      .MatchControl = False
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
      End With
      Selection.Find.Execute Replace:=wdReplaceAll
      With Selection.Find
      .Text = "ף^$"
      .Replacement.Text = "^&"
      .Forward = True
      .Wrap = wdFindContinue
      .Format = True
      .MatchCase = False
      .MatchWholeWord = False
      .MatchKashida = False
      .MatchDiacritics = False
      .MatchAlefHamza = False
      .MatchControl = False
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
      End With
      Selection.Find.Execute Replace:=wdReplaceAll
      With Selection.Find
      .Text = "ך^$"
      .Replacement.Text = "^&"
      .Forward = True
      .Wrap = wdFindContinue
      .Format = True
      .MatchCase = False
      .MatchWholeWord = False
      .MatchKashida = False
      .MatchDiacritics = False
      .MatchAlefHamza = False
      .MatchControl = False
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
      End With
      Selection.Find.Execute Replace:=wdReplaceAll
      Selection.Find.ClearFormatting
      Selection.Find.Replacement.ClearFormatting
      Selection.Find.Replacement.Font.Color = wdColorAutomatic
      With Selection.Find
      .Text = ".[! ]?"
      .Replacement.Text = "@.^&"
      .Forward = True
      .Wrap = wdFindContinue
      .Format = True
      .MatchCase = False
      .MatchWholeWord = False
      .MatchKashida = False
      .MatchDiacritics = False
      .MatchAlefHamza = False
      .MatchControl = False
      .MatchAllWordForms = False
      .MatchSoundsLike = False
      .MatchWildcards = True
      End With
      Selection.Find.Execute Replace:=wdReplaceAll
      Selection.Find.ClearFormatting
      Selection.Find.Replacement.ClearFormatting
      With Selection.Find
      .Text = "@.."
      .Replacement.Text = ". "
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchKashida = False
      .MatchDiacritics = False
      .MatchAlefHamza = False
      .MatchControl = False
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
      End With
      Selection.Find.Execute Replace:=wdReplaceAll
      Selection.Find.ClearFormatting
      Selection.Find.Replacement.ClearFormatting
      With Selection.Find
      .Text = ",[! ]?"
      .Replacement.Text = "@,^&"
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchKashida = False
      .MatchDiacritics = False
      .MatchAlefHamza = False
      .MatchControl = False
      .MatchAllWordForms = False
      .MatchSoundsLike = False
      .MatchWildcards = True
      End With
      Selection.Find.Execute Replace:=wdReplaceAll
      Selection.Find.ClearFormatting
      Selection.Find.Replacement.ClearFormatting
      With Selection.Find
      .Text = "@,,"
      .Replacement.Text = ","
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchKashida = False
      .MatchDiacritics = False
      .MatchAlefHamza = False
      .MatchControl = False
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
      End With
      Selection.Find.Execute Replace:=wdReplaceAll
      Selection.Find.ClearFormatting
      Selection.Find.Replacement.ClearFormatting
      With Selection.Find
      .Text = "(.)([! ^13]>)"
      .Replacement.Text = "\1 \2"
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchKashida = False
      .MatchDiacritics = False
      .MatchAlefHamza = False
      .MatchControl = False
      .MatchAllWordForms = False
      .MatchSoundsLike = False
      .MatchWildcards = True
      End With
      Selection.Find.Execute Replace:=wdReplaceAll
      With Selection.Find
      .Text = "(,)([! ^13]
      >)"
      .Replacement.Text = "\1 \2"
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchKashida = False
      .MatchDiacritics = False
      .MatchAlefHamza = False
      .MatchControl = False
      .MatchAllWordForms = False
      .MatchSoundsLike = False
      .MatchWildcards = True
      End With
      Selection.Find.Execute Replace:=wdReplaceAll
      With Selection.Find
      .Text = "(')([! ^13]*>)"
      .Replacement.Text = "\1 \2"
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchKashida = False
      .MatchDiacritics = False
      .MatchAlefHamza = False
      .MatchControl = False
      .MatchAllWordForms = False
      .MatchSoundsLike = False
      .MatchWildcards = True
      End With
      Selection.Find.Execute Replace:=wdReplaceAll
      Selection.Find.ClearFormatting
      Selection.Find.Replacement.ClearFormatting
      With Selection.Find
      .Text = "([! ^13'""])([([])"
      .Replacement.Text = "\1 \2"
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchKashida = False
      .MatchDiacritics = False
      .MatchAlefHamza = False
      .MatchControl = False
      .MatchAllWordForms = False
      .MatchSoundsLike = False
      .MatchWildcards = True
      End With
      Selection.Find.Execute Replace:=wdReplaceAll
      With Selection.Find
      .Text = "([)]])([! ^13.,'""?!])"
      .Replacement.Text = "\1 \2"
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchKashida = False
      .MatchDiacritics = False
      .MatchAlefHamza = False
      .MatchControl = False
      .MatchAllWordForms = False
      .MatchSoundsLike = False
      .MatchWildcards = True
      End With
      Selection.Find.ClearFormatting
      Selection.Find.Replacement.ClearFormatting
      Selection.Find.Replacement.Font.Color = wdColorRed
      With Selection.Find
      .Text = " [א-ת] "
      .Replacement.Text = "^&"
      .Forward = True
      .Wrap = wdFindContinue
      .Format = True
      .MatchCase = False
      .MatchWholeWord = False
      .MatchKashida = False
      .MatchDiacritics = False
      .MatchAlefHamza = False
      .MatchControl = False
      .MatchAllWordForms = False
      .MatchSoundsLike = False
      .MatchWildcards = True
      End With
      Selection.Find.Execute Replace:=wdReplaceAll
      With Selection.Find
      .Text = " [א-ת]^13"
      .Replacement.Text = "^&"
      .Forward = True
      .Wrap = wdFindContinue
      .Format = True
      .MatchCase = False
      .MatchWholeWord = False
      .MatchKashida = False
      .MatchDiacritics = False
      .MatchAlefHamza = False
      .MatchControl = False
      .MatchAllWordForms = False
      .MatchSoundsLike = False
      .MatchWildcards = True
      End With
      Selection.Find.Execute Replace:=wdReplaceAll
      Selection.Find.ClearFormatting
      Selection.Find.Replacement.ClearFormatting
      Selection.Find.Replacement.Font.Color = wdColorAutomatic
      With Selection.Find
      .Text = "ג [א-ת]^13"
      .Replacement.Text = "^&"
      .Forward = True
      .Wrap = wdFindContinue
      .Format = True
      .MatchCase = False
      .MatchWholeWord = False
      .MatchKashida = False
      .MatchDiacritics = False
      .MatchAlefHamza = False
      .MatchControl = False
      .MatchAllWordForms = False
      .MatchSoundsLike = False
      .MatchWildcards = True
      End With
      Selection.Find.Execute Replace:=wdReplaceAll
      With Selection.Find
      .Text = "ש [א-ת]^13"
      .Replacement.Text = "^&"
      .Forward = True
      .Wrap = wdFindContinue
      .Format = True
      .MatchCase = False
      .MatchWholeWord = False
      .MatchKashida = False
      .MatchDiacritics = False
      .MatchAlefHamza = False
      .MatchControl = False
      .MatchAllWordForms = False
      .MatchSoundsLike = False
      .MatchWildcards = True
      End With
      Selection.Find.Execute Replace:=wdReplaceAll
      With Selection.Find
      .Text = "' [א-ת]^13"
      .Replacement.Text = "^&"
      .Forward = True
      .Wrap = wdFindContinue
      .Format = True
      .MatchCase = False
      .MatchWholeWord = False
      .MatchKashida = False
      .MatchDiacritics = False
      .MatchAlefHamza = False
      .MatchControl = False
      .MatchAllWordForms = False
      .MatchSoundsLike = False
      .MatchWildcards = True
      End With
      Selection.Find.Execute Replace:=wdReplaceAll
      With Selection.Find
      .Text = "ק [א-ת]^13"
      .Replacement.Text = "^&"
      .Forward = True
      .Wrap = wdFindContinue
      .Format = True
      .MatchCase = False
      .MatchWholeWord = False
      .MatchKashida = False
      .MatchDiacritics = False
      .MatchAlefHamza = False
      .MatchControl = False
      .MatchAllWordForms = False
      .MatchSoundsLike = False
      .MatchWildcards = True
      End With
      Selection.Find.Execute Replace:=wdReplaceAll
      With Selection.Find
      .Text = "ן [א-ת]^13"
      .Replacement.Text = "^&"
      .Forward = True
      .Wrap = wdFindContinue
      .Format = True
      .MatchCase = False
      .MatchWholeWord = False
      .MatchKashida = False
      .MatchDiacritics = False
      .MatchAlefHamza = False
      .MatchControl = False
      .MatchAllWordForms = False
      .MatchSoundsLike = False
      .MatchWildcards = True
      End With
      Selection.Find.Execute Replace:=wdReplaceAll
      With Selection.Find
      .Text = "ת [א-ת]^13"
      .Replacement.Text = "^&"
      .Forward = True
      .Wrap = wdFindContinue
      .Format = True
      .MatchCase = False
      .MatchWholeWord = False
      .MatchKashida = False
      .MatchDiacritics = False
      .MatchAlefHamza = False
      .MatchControl = False
      .MatchAllWordForms = False
      .MatchSoundsLike = False
      .MatchWildcards = True
      End With
      Selection.Find.ClearFormatting
      Selection.Find.Replacement.ClearFormatting
      Selection.Find.Replacement.Font.Color = wdColorAutomatic
      With Selection.Find
      .Text = "ן [א-ת] "
      .Replacement.Text = "^&"
      .Forward = True
      .Wrap = wdFindContinue
      .Format = True
      .MatchCase = False
      .MatchWholeWord = False
      .MatchKashida = False
      .MatchDiacritics = False
      .MatchAlefHamza = False
      .MatchControl = False
      .MatchAllWordForms = False
      .MatchSoundsLike = False
      .MatchWildcards = True
      End With
      Selection.Find.Execute Replace:=wdReplaceAll
      With Selection.Find
      .Text = "ש [א-ת] "
      .Replacement.Text = "^&"
      .Forward = True
      .Wrap = wdFindContinue
      .Format = True
      .MatchCase = False
      .MatchWholeWord = False
      .MatchKashida = False
      .MatchDiacritics = False
      .MatchAlefHamza = False
      .MatchControl = False
      .MatchAllWordForms = False
      .MatchSoundsLike = False
      .MatchWildcards = True
      End With
      Selection.Find.Execute Replace:=wdReplaceAll
      With Selection.Find
      .Text = "ק [א-ת] "
      .Replacement.Text = "^&"
      .Forward = True
      .Wrap = wdFindContinue
      .Format = True
      .MatchCase = False
      .MatchWholeWord = False
      .MatchKashida = False
      .MatchDiacritics = False
      .MatchAlefHamza = False
      .MatchControl = False
      .MatchAllWordForms = False
      .MatchSoundsLike = False
      .MatchWildcards = True
      End With
      Selection.Find.Execute Replace:=wdReplaceAll
      With Selection.Find
      .Text = "ת [א-ת] "
      .Replacement.Text = "^&"
      .Forward = True
      .Wrap = wdFindContinue
      .Format = True
      .MatchCase = False
      .MatchWholeWord = False
      .MatchKashida = False
      .MatchDiacritics = False
      .MatchAlefHamza = False
      .MatchControl = False
      .MatchAllWordForms = False
      .MatchSoundsLike = False
      .MatchWildcards = True
      End With
      Selection.Find.Execute Replace:=wdReplaceAll
      With Selection.Find
      .Text = "ף [א-ת] "
      .Replacement.Text = "^&"
      .Forward = True
      .Wrap = wdFindContinue
      .Format = True
      .MatchCase = False
      .MatchWholeWord = False
      .MatchKashida = False
      .MatchDiacritics = False
      .MatchAlefHamza = False
      .MatchControl = False
      .MatchAllWordForms = False
      .MatchSoundsLike = False
      .MatchWildcards = True
      End With
      Selection.Find.Execute Replace:=wdReplaceAll
      With Selection.Find
      .Text = "ג [א-ת] "
      .Replacement.Text = "^&"
      .Forward = True
      .Wrap = wdFindContinue
      .Format = True
      .MatchCase = False
      .MatchWholeWord = False
      .MatchKashida = False
      .MatchDiacritics = False
      .MatchAlefHamza = False
      .MatchControl = False
      .MatchAllWordForms = False
      .MatchSoundsLike = False
      .MatchWildcards = True
      End With
      Selection.Find.Execute Replace:=wdReplaceAll
      With Selection.Find
      .Text = "' [א-ת] "
      .Replacement.Text = "^&"
      .Forward = True
      .Wrap = wdFindContinue
      .Format = True
      .MatchCase = False
      .MatchWholeWord = False
      .MatchKashida = False
      .MatchDiacritics = False
      .MatchAlefHamza = False
      .MatchControl = False
      .MatchAllWordForms = False
      .MatchSoundsLike = False
      .MatchWildcards = True
      End With
      Selection.Find.ClearFormatting
      Selection.Find.Replacement.ClearFormatting
      With Selection.Find
      .Text = "ייי"
      .Replacement.Text = "יי"
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchKashida = False
      .MatchDiacritics = False
      .MatchAlefHamza = False
      .MatchControl = False
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
      End With
      Selection.Find.Execute Replace:=wdReplaceAll
      With Selection.Find
      .Text = " ) "
      .Replacement.Text = " ("
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchKashida = False
      .MatchDiacritics = False
      .MatchAlefHamza = False
      .MatchControl = False
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
      End With
      Selection.Find.Execute Replace:=wdReplaceAll
      Selection.Find.ClearFormatting
      Selection.Find.Replacement.ClearFormatting
      With Selection.Find
      .Text = " ) "
      .Replacement.Text = " ("
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchKashida = False
      .MatchDiacritics = False
      .MatchAlefHamza = False
      .MatchControl = False
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
      End With
      Selection.Find.ClearFormatting
      Selection.Find.Replacement.ClearFormatting
      With Selection.Find
      .Text = " ( "
      .Replacement.Text = ") "
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchKashida = False
      .MatchDiacritics = False
      .MatchAlefHamza = False
      .MatchControl = False
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
      End With
      With Selection.Find
      Selection.Find.ClearFormatting
      Selection.Find.Replacement.ClearFormatting
      With Selection.Find
      .Text = " "
      .Replacement.Text = " "
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchKashida = False
      .MatchDiacritics = False
      .MatchAlefHamza = False
      .MatchControl = False
      .MatchAllWordForms = False
      .MatchSoundsLike = False
      .MatchWildcards = True
      End With
      Selection.Find.Execute Replace:=wdReplaceAll
      Selection.Find.ClearFormatting
      Selection.Find.Replacement.ClearFormatting
      With Selection.Find
      .Text = " ^p"
      .Replacement.Text = "^p"
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchKashida = False
      .MatchDiacritics = False
      .MatchAlefHamza = False
      .MatchControl = False
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
      End With
      Selection.Find.Execute Replace:=wdReplaceAll
      With Selection.Find
      .Text = " ^p^p"
      .Replacement.Text = "^p"
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchKashida = False
      .MatchDiacritics = False
      .MatchAlefHamza = False
      .MatchControl = False
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
      End With
      Selection.Find.ClearFormatting
      Selection.Find.Replacement.ClearFormatting
      With Selection.Find
      .Text = " ,"
      .Replacement.Text = ","
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchKashida = False
      .MatchDiacritics = False
      .MatchAlefHamza = False
      .MatchControl = False
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
      End With
      Selection.Find.Execute Replace:=wdReplaceAll
      With Selection.Find
      .Text = " ."
      .Replacement.Text = "."
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchKashida = False
      .MatchDiacritics = False
      .MatchAlefHamza = False
      .MatchControl = False
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
      End With
      Selection.Find.Execute Replace:=wdReplaceAll
      End With
      End Sub

      א מנותק
      א מנותק
      אלכסון
      כתב נערך לאחרונה על ידי
      #240

      @יאיר-דניאל בנוגע לתיקון נקודה כפולה - כבר כתבתי למעלה שהרבה פעמים כותבים שלוש נקודות ...
      ובצורה שאתה עשית זה יהפוך להיות רק שתיים.
      לכן החיפוש צריך להיות "..[!]." להחליף ב "..." וכן למקרה שיצא 4 נקודות צריך לחפש: ".{4,}" החלף ב"..."

      י תגובה 1 תגובה אחרונה
      0
      • א אלכסון

        @יאיר-דניאל בנוגע לתיקון נקודה כפולה - כבר כתבתי למעלה שהרבה פעמים כותבים שלוש נקודות ...
        ובצורה שאתה עשית זה יהפוך להיות רק שתיים.
        לכן החיפוש צריך להיות "..[!]." להחליף ב "..." וכן למקרה שיצא 4 נקודות צריך לחפש: ".{4,}" החלף ב"..."

        י מנותק
        י מנותק
        יאיר דניאל
        כתב נערך לאחרונה על ידי
        #241

        @אלכסון כתב בשיתוף | "מתעדכן" אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות.:

        לכן החיפוש צריך להיות "..[!]." להחליף ב "..."

        לא הבנתי את הפקודה שלך - מה זה אומר לעשות? א"א לעשות ב"חפש את" ..[!]. זהו טקסט לא חוקי.
        אם כבר אפשר לעשות כך: חפש את - .{2,} החלף ב - .

        א תגובה 1 תגובה אחרונה
        0
        • י יאיר דניאל

          @אלכסון כתב בשיתוף | "מתעדכן" אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות.:

          לכן החיפוש צריך להיות "..[!]." להחליף ב "..."

          לא הבנתי את הפקודה שלך - מה זה אומר לעשות? א"א לעשות ב"חפש את" ..[!]. זהו טקסט לא חוקי.
          אם כבר אפשר לעשות כך: חפש את - .{2,} החלף ב - .

          א מנותק
          א מנותק
          אלכסון
          כתב נערך לאחרונה על ידי
          #242

          @יאיר-דניאל סליחה טעות, הנקודה צריכה להיות בתוך הסוגריים.
          אבל ליתר דיוק החיפוש צריך להיות כך: (?[!.])(..)(?[!.]) החלף ב \1.\3

          י תגובה 1 תגובה אחרונה
          0
          • א אלכסון

            @יאיר-דניאל סליחה טעות, הנקודה צריכה להיות בתוך הסוגריים.
            אבל ליתר דיוק החיפוש צריך להיות כך: (?[!.])(..)(?[!.]) החלף ב \1.\3

            י מנותק
            י מנותק
            יאיר דניאל
            כתב נערך לאחרונה על ידי יאיר דניאל
            #243

            @אלכסון לא הבנתי בשביל מה כל הסיבוך הזה - הרבה יותר פשוט כמו שאמרת, חפש את "..[!.]" החלף ב"."
            בדרך כלל לא קורה לאנשים שהם מקלידים ארבע פעמים נקודה בטעות..., אלא א"כ הם התכוונו להקליד ... ויצא להם ....
            ולזה מועיל הפקודה הבאה - חפש את "...." החלף ב "..." (וכמובן - להפעיל פקודה זו לפני הקודמת), או פשוט יותר חפש את ".{4,}" החלף ב"..."
            אגב שתי הפקודות האלו כבר הוכנסו (היום) במאקרו שהעליתי לעיל.

            תגובה 1 תגובה אחרונה
            0
            • י מנותק
              י מנותק
              יאיר דניאל
              כתב נערך לאחרונה על ידי
              #244

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

              @pcinfogmach

              P תגובה 1 תגובה אחרונה
              0
              • י יאיר דניאל

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

                @pcinfogmach

                P מנותק
                P מנותק
                pcinfogmach
                מדריכים
                כתב נערך לאחרונה על ידי
                #245

                @יאיר-דניאל
                לא הבנתי על איזה פקודה אתה מדבר

                גמ"ח עזרה וייעוץ בנושאי מחשבים

                י תגובה 1 תגובה אחרונה
                0
                • P pcinfogmach

                  @יאיר-דניאל
                  לא הבנתי על איזה פקודה אתה מדבר

                  י מנותק
                  י מנותק
                  יאיר דניאל
                  כתב נערך לאחרונה על ידי
                  #246

                  @pcinfogmach צודק, סליחה לא צירפתי את התמונה
                  ‏‏לכידה.PNG

                  P תגובה 1 תגובה אחרונה
                  0
                  • י יאיר דניאל

                    @pcinfogmach צודק, סליחה לא צירפתי את התמונה
                    ‏‏לכידה.PNG

                    P מנותק
                    P מנותק
                    pcinfogmach
                    מדריכים
                    כתב נערך לאחרונה על ידי pcinfogmach
                    #247

                    @יאיר-דניאל
                    תנסה כך:
                    cd5fbb38-666d-4491-a2e0-a46fe7c0f74b-image.png

                    נ.ב אם אפשר הייתי מעדיף ששאלות ממין זה יהיו בשרשור של החיפוש והחלפה לא בשרשור של מאקרו - תודה מראש

                    גמ"ח עזרה וייעוץ בנושאי מחשבים

                    י תגובה 1 תגובה אחרונה
                    2
                    • P pcinfogmach

                      @יאיר-דניאל
                      תנסה כך:
                      cd5fbb38-666d-4491-a2e0-a46fe7c0f74b-image.png

                      נ.ב אם אפשר הייתי מעדיף ששאלות ממין זה יהיו בשרשור של החיפוש והחלפה לא בשרשור של מאקרו - תודה מראש

                      י מנותק
                      י מנותק
                      יאיר דניאל
                      כתב נערך לאחרונה על ידי
                      #248

                      @pcinfogmach איך אני עושה פקודת מאקרו כדלהלן:
                      אני מעוניין ליצור פקודת מאקרו להערת שוליים בגודל ובכתב מסויים. שגם מספר הערה לא יהיה כמו הברירת מחדל, (10 נקודות) אלא יהיה 9 נקודות, וגם הכתב יהיה בגודל 9 נקודות ולא 10.
                      איך עושים זאת?
                      אגב אם יש לך תשובה לזה https://mitmachim.top/post/918133 אשמח לקבלה. תודה רבה!

                      P תגובה 1 תגובה אחרונה
                      0
                      • י יאיר דניאל

                        @pcinfogmach איך אני עושה פקודת מאקרו כדלהלן:
                        אני מעוניין ליצור פקודת מאקרו להערת שוליים בגודל ובכתב מסויים. שגם מספר הערה לא יהיה כמו הברירת מחדל, (10 נקודות) אלא יהיה 9 נקודות, וגם הכתב יהיה בגודל 9 נקודות ולא 10.
                        איך עושים זאת?
                        אגב אם יש לך תשובה לזה https://mitmachim.top/post/918133 אשמח לקבלה. תודה רבה!

                        P מנותק
                        P מנותק
                        pcinfogmach
                        מדריכים
                        כתב נערך לאחרונה על ידי pcinfogmach
                        #249

                        @יאיר-דניאל
                        נשמע שאתה רוצה לעשות לולאה על הערות שוליים
                        לולאה ממין זה תיתן לך גישה גם להפניה וגם להערת שוליים

                        לחילופין תוכל להתמש בחיפוש החלפה על טווח מסויים
                        קודם לחפש את ההפניה
                        ואז לעבור להערות על ידי פקודת המאקרו ולעשות שם חיפוש והחלפה ג"כ
                        גישה זו קצת יותר מורכבת מאחר ותצטרך להגדיר את טווח החיפוש היטב
                        בפרט בחיפוש בתוך ההערות שוליים

                        גמ"ח עזרה וייעוץ בנושאי מחשבים

                        י תגובה 1 תגובה אחרונה
                        0
                        • P pcinfogmach

                          @יאיר-דניאל
                          נשמע שאתה רוצה לעשות לולאה על הערות שוליים
                          לולאה ממין זה תיתן לך גישה גם להפניה וגם להערת שוליים

                          לחילופין תוכל להתמש בחיפוש החלפה על טווח מסויים
                          קודם לחפש את ההפניה
                          ואז לעבור להערות על ידי פקודת המאקרו ולעשות שם חיפוש והחלפה ג"כ
                          גישה זו קצת יותר מורכבת מאחר ותצטרך להגדיר את טווח החיפוש היטב
                          בפרט בחיפוש בתוך ההערות שוליים

                          י מנותק
                          י מנותק
                          יאיר דניאל
                          כתב נערך לאחרונה על ידי
                          #250

                          @pcinfogmach כתב בשיתוף | "מתעדכן" אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות.:

                          נשמע שאתה רוצה לעשות לולאה על הערות שוליים
                          לולאה ממין זה תיתן לך גישה גם להפניה וגם להערת שוליים

                          ת'אמת לא הבנתי מה אתה אומר, או שלא הסברתי את עצמו מספיק - אני רוצה להגיע למצב שע"י קיצור מקשים - אני יוסיף הערת שוליים במסמך בלי להגדיר כל פעם מחדש גודל כתב וכו'
                          (יש לי כבר כזו פקודה שהקלטתי, ואיתה אני משתמש, רק יש לי בה באג, שאם אני מוסיף הערה לפני הערה קיימת (כלומר אחרי הערה 1 ולפני הערה 2 אני מוסיף עוד הרעה) זה מוסיף לי הערה, אבל הסמן קופץ לי להערה הבאה)

                          P תגובה 1 תגובה אחרונה
                          0
                          • י יאיר דניאל

                            @pcinfogmach כתב בשיתוף | "מתעדכן" אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות.:

                            נשמע שאתה רוצה לעשות לולאה על הערות שוליים
                            לולאה ממין זה תיתן לך גישה גם להפניה וגם להערת שוליים

                            ת'אמת לא הבנתי מה אתה אומר, או שלא הסברתי את עצמו מספיק - אני רוצה להגיע למצב שע"י קיצור מקשים - אני יוסיף הערת שוליים במסמך בלי להגדיר כל פעם מחדש גודל כתב וכו'
                            (יש לי כבר כזו פקודה שהקלטתי, ואיתה אני משתמש, רק יש לי בה באג, שאם אני מוסיף הערה לפני הערה קיימת (כלומר אחרי הערה 1 ולפני הערה 2 אני מוסיף עוד הרעה) זה מוסיף לי הערה, אבל הסמן קופץ לי להערה הבאה)

                            P מנותק
                            P מנותק
                            pcinfogmach
                            מדריכים
                            כתב נערך לאחרונה על ידי
                            #251

                            @יאיר-דניאל
                            תעלה את הקוד שיש לך

                            גמ"ח עזרה וייעוץ בנושאי מחשבים

                            י תגובה 1 תגובה אחרונה
                            1
                            • P pcinfogmach

                              @יאיר-דניאל
                              תעלה את הקוד שיש לך

                              י מנותק
                              י מנותק
                              יאיר דניאל
                              כתב נערך לאחרונה על ידי יאיר דניאל
                              #252

                              @pcinfogmach פתרתי את הבעיה "מעיקרא" בעקבות המלצתו של @menajemmendel, פשוט שיניתי את הברירת מחדל של הערות שוליים - בסגנונות...
                              במקום בית חולים מתחת לגשר...
                              בכ"א, תודה על העזרה וההירתמות!

                              תגובה 1 תגובה אחרונה
                              2
                              • י מנותק
                                י מנותק
                                יאיר דניאל
                                כתב נערך לאחרונה על ידי
                                #253

                                מצורף כמה מאקרואים פשוטים (אבל ממש פשוטים...)
                                (מיועד למי שלא יודע איך מקליטים מאקרו, או למי שמתעצל לעשות זאת)

                                כמה הוראות:

                                • במאקרו "הקטנת סוגריים מרובעות" - בשורה האחרונה " Replacement.Font.SizeBi = 11" - תשנו את המספר 11 למספר הרצוי אצלכם במסמך

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

                                • המאקרו "קפיצה לסוף המסמך" מיועד לאנשים שכותבים מסמך ארוך כגון חבורה וכדו' וכשהם נכנסים לקובץ הסמן לא נמצא בסוך המסמך, וצריך לגלול ע"י העכבר או ע"י החיצים בכדי להמשיך לכתוב איפה שהפסיקו (לי זה קורה המון!). כנ"ל מומלץ להגדיר לו קיצור מקשים במקלדת.

                                • Sub דפדוף_כלפי_מטה().txt
                                  Sub דפדוף_כלפי_מעלה().txt

                                • Sub הקטנת_סוגריים_מרובעות().txt

                                • Sub קפיצה_לסוף_המסמך().txt

                                menajemmendelM י 2 תגובות תגובה אחרונה
                                0
                                • י יאיר דניאל

                                  מצורף כמה מאקרואים פשוטים (אבל ממש פשוטים...)
                                  (מיועד למי שלא יודע איך מקליטים מאקרו, או למי שמתעצל לעשות זאת)

                                  כמה הוראות:

                                  • במאקרו "הקטנת סוגריים מרובעות" - בשורה האחרונה " Replacement.Font.SizeBi = 11" - תשנו את המספר 11 למספר הרצוי אצלכם במסמך

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

                                  • המאקרו "קפיצה לסוף המסמך" מיועד לאנשים שכותבים מסמך ארוך כגון חבורה וכדו' וכשהם נכנסים לקובץ הסמן לא נמצא בסוך המסמך, וצריך לגלול ע"י העכבר או ע"י החיצים בכדי להמשיך לכתוב איפה שהפסיקו (לי זה קורה המון!). כנ"ל מומלץ להגדיר לו קיצור מקשים במקלדת.

                                  • Sub דפדוף_כלפי_מטה().txt
                                    Sub דפדוף_כלפי_מעלה().txt

                                  • Sub הקטנת_סוגריים_מרובעות().txt

                                  • Sub קפיצה_לסוף_המסמך().txt

                                  menajemmendelM מנותק
                                  menajemmendelM מנותק
                                  menajemmendel
                                  כתב נערך לאחרונה על ידי menajemmendel
                                  #254

                                  @יאיר-דניאל כתב בשיתוף | "מתעדכן" אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות.:

                                  המאקרו "קפיצה לסוף המסמך" מיועד לאנשים שכותבים מסמך ארוך כגון חבורה וכדו' וכשהם נכנסים לקובץ הסמן לא נמצא בסוך המסמך, וצריך לגלול ע"י העכבר או ע"י החיצים בכדי להמשיך לכתוב איפה שהפסיקו (לי זה קורה המון!). כנ"ל מומלץ להגדיר לו קיצור מקשים במקלדת.

                                  לא צריך לזה שום מאקרו, יש מקש מובנה לזה במחשב CTRL + END

                                  כמו כן לגלגל כלפי מטה ומעלה יש מקש PgUp, ו PgDn, ואם אתה רוצה פסקה פסקה, אפשר פשוט CTRL+חץ למעלה או למטה, עובר פסקה פסקה

                                  י תגובה 1 תגובה אחרונה
                                  2
                                  • ש מנותק
                                    ש מנותק
                                    שלמה11
                                    כתב נערך לאחרונה על ידי שלמה11
                                    #255

                                    🌟 מאקרו טקסט מתחלף בוורד🌟

                                    רוצים ליצור פירוש עם טקסט מתחלף כדוגמת רש"י או מפרשים אחרים??
                                    המאקרו שיסדר את העניינים!!

                                    איך זה עובד??

                                    1. מסמנים את הפיסקאות שעליהם רוצים להחיל את המאקרו.
                                    2. בחלון שנפתח, מסמנים באיזה תו מסתיים הדיבור המתחיל ובאיזה תו מסתיים הדיבור, ולוחצים על אישור.
                                    3. המאקרו מדגיש מתחילת הפיסקה עד הסימן של סוף הדיבור המתחיל, ולאחר מכן הוא מסמן מתו סוף דיבור עד תו תחילת ד"ה.

                                    שימו לב שהמאקרו עובד על הפיסקאות הנבחרות מתחילת הפיסקה ועד סופה.

                                    תמונה להמחשה:
                                    צילום מסך 2025-02-28 151835.png

                                    להורדה מכאן

                                    P תגובה 1 תגובה אחרונה
                                    4
                                    • ש שלמה11

                                      🌟 מאקרו טקסט מתחלף בוורד🌟

                                      רוצים ליצור פירוש עם טקסט מתחלף כדוגמת רש"י או מפרשים אחרים??
                                      המאקרו שיסדר את העניינים!!

                                      איך זה עובד??

                                      1. מסמנים את הפיסקאות שעליהם רוצים להחיל את המאקרו.
                                      2. בחלון שנפתח, מסמנים באיזה תו מסתיים הדיבור המתחיל ובאיזה תו מסתיים הדיבור, ולוחצים על אישור.
                                      3. המאקרו מדגיש מתחילת הפיסקה עד הסימן של סוף הדיבור המתחיל, ולאחר מכן הוא מסמן מתו סוף דיבור עד תו תחילת ד"ה.

                                      שימו לב שהמאקרו עובד על הפיסקאות הנבחרות מתחילת הפיסקה ועד סופה.

                                      תמונה להמחשה:
                                      צילום מסך 2025-02-28 151835.png

                                      להורדה מכאן

                                      P מנותק
                                      P מנותק
                                      pcinfogmach
                                      מדריכים
                                      כתב נערך לאחרונה על ידי
                                      #256

                                      @שלמה11
                                      נא לפרט קצת איך המאקרו עובד

                                      נ.ב. אולי מישהו יודע מהו השם המיקצועי עבור מה ש@שלמה11 מתאר אינני זוכר כרגע אבל כמדומני שיש לזה שם מקצועי

                                      גמ"ח עזרה וייעוץ בנושאי מחשבים

                                      א ד ש 3 תגובות תגובה אחרונה
                                      3
                                      • P pcinfogmach

                                        @שלמה11
                                        נא לפרט קצת איך המאקרו עובד

                                        נ.ב. אולי מישהו יודע מהו השם המיקצועי עבור מה ש@שלמה11 מתאר אינני זוכר כרגע אבל כמדומני שיש לזה שם מקצועי

                                        א מנותק
                                        א מנותק
                                        אלף שין
                                        כתב נערך לאחרונה על ידי
                                        #257

                                        @pcinfogmach כתב בשיתוף | "מתעדכן" אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות.:

                                        עבור מה ש@שלמה11 מתאר

                                        @שלמה11

                                        תגובה 1 תגובה אחרונה
                                        0
                                        • menajemmendelM menajemmendel

                                          @יאיר-דניאל כתב בשיתוף | "מתעדכן" אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות.:

                                          המאקרו "קפיצה לסוף המסמך" מיועד לאנשים שכותבים מסמך ארוך כגון חבורה וכדו' וכשהם נכנסים לקובץ הסמן לא נמצא בסוך המסמך, וצריך לגלול ע"י העכבר או ע"י החיצים בכדי להמשיך לכתוב איפה שהפסיקו (לי זה קורה המון!). כנ"ל מומלץ להגדיר לו קיצור מקשים במקלדת.

                                          לא צריך לזה שום מאקרו, יש מקש מובנה לזה במחשב CTRL + END

                                          כמו כן לגלגל כלפי מטה ומעלה יש מקש PgUp, ו PgDn, ואם אתה רוצה פסקה פסקה, אפשר פשוט CTRL+חץ למעלה או למטה, עובר פסקה פסקה

                                          י מנותק
                                          י מנותק
                                          יאיר דניאל
                                          כתב נערך לאחרונה על ידי
                                          #258

                                          @menajemmendel כתב בשיתוף | "מתעדכן" אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות.:

                                          לא צריך לזה שום מאקרו, יש מקש מובנה לזה במחשב CTRL + END
                                          לא שמת לב כנראה מה כתבתי
                                          אני מדבר על מי שרוצה לגלול עד סוף המסמך, ולא פיסקה פיסקה. צירוף המקשים CTRL + END מעביר אותך לתחילת המילה הקודמת

                                          @menajemmendel כתב בשיתוף | "מתעדכן" אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות.:

                                          כמו כן לגלגל כלפי מטה ומעלה יש מקש PgUp, ו PgDn, ואם אתה רוצה פסקה פסקה, אפשר פשוט CTRL+חץ למעלה או למטה, עובר פסקה פסקה

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

                                          menajemmendelM תגובה 1 תגובה אחרונה
                                          0

                                          • התחברות

                                          • אין לך חשבון עדיין? הרשמה

                                          • התחברו או הירשמו כדי לחפש.
                                          • פוסט ראשון
                                            פוסט אחרון
                                          0
                                          • חוקי הפורום
                                          • פופולרי
                                          • לא נפתר
                                          • משתמשים
                                          • חיפוש גוגל בפורום
                                          • צור קשר