שיתוף | "מתעדכן" אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות.
-
פוסט זה נמחק!
מי שמועניין מאקרו להסתרת טקסט
https://mitmachim.top/topic/79487/בקשת-מידע-טשטוש-טקסט-בוורד -
מאקרו תיקון שגיאות - מתעדכן
התיקונים שהוא עושה:
-
הוא מסיר:
רווח כפול
פסיק כפול
נקודה כפולה
מרכאות כפולות
רווח ולאחמ"כ פסיק
רווח ולאחמ"כ נקודה
רווח ולאחמ"כ מרכאות -
שלושה יודי"ם - מחליף ל שתיים
-
הוא מסמן את אותיות מנצפך (מ,ן,ץ,ף,ך) שיש רווח לפניהם, או שהם באמצע מילה - בצבע אדום.
-
מסמן אותיות שעומדות בפנ"ע (-כלומר עם רווח לפניהם ואחריהם) באדום.
-
הופך פיסקה 2 פיסקאות ריקות - לפיסקה 1
-
מסיר אותיות מנצפכ כפולות.
(לדוגמא: "םם" - מחליף ב "ם") -
הופך סוגריים הפוכים.
(לדוגמא: ")שלום(" מחליף ב"(שלום)"). [מצוי בייבוא מאנגלית לעברית (יש לבעיה זו כבר מאקרו מובנה בווינודס)] -
מוסיף רווח לפני ואחרי סוגריים - איפה שחסר.
(לדוגמא: "שלום(וברכה)" \ "(שלום)וברכה". מחליף ב "שלום (וברכה)" \ "(שלום) וברכה") -
מעביר נקודה, פסיק, וגרש למקומם הראוי, במקרה של הקלדה אחרי הרווח במקום לפני.
(לדוגמא: "שלום ,וברכה" \ "שלום .וברכה" מחליף ב"שלום, וברכה" \ "שלום. וברכה")
במקומות שאנחנו לא רוצים שהמאקרו יסמן אות בודדת באדום, לדוגמא: סי' א, חלק ב, שורש ז -
המאקרו מחזיר אותם לצבע המקורי.
במקרים דלהלהן המאקרו מחזיר לצבע המקורי: סימן, שורש, סעיף, אות, סוג, דף, חלק.
(משום מה לא הצלחתי להגדיר שגם אם האות הצריכה תיקון נמצאת לפני מעבר פיסקה, שגם היא תתוקן ותחזור לצבעה המקורי. כשניסיתי לעשות זאת (ע"י הגדרה שכל אות אחר המילים הנ"ל תחזור לצבעה המקורי, גם אם אין אחריה ריווח), זה גרם שגם שאר האותיות = שלא אחרי המילים הנ"ל, יחזרו לצבעם המקורי. אשמח אם מישהו יוכל לפתור חידה זו, תודה).נ.ב. מי שנוהג לכתוב כך: סימן א' או שורש ח' לא נצרך לתיקון זה.
נ.ב.ב. אם ישנם עוד מילים כנ"ל אשמח שיסבו את תשומת ליבי
אשמח להערות והארות וכן להוספות.
מאקרו תיקון סימנים כפולים ועוד.txtקובץ וורד - דוגמא לפעילות המאקרו:
בדיקת מאקרו תיקון סימנים כפולים.docxSub תיקון_סימנים_כפולים_ועוד()
'
' תיקון_סימנים_כפולים_ועוד 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@יאיר-דניאל בנוגע לתיקון נקודה כפולה - כבר כתבתי למעלה שהרבה פעמים כותבים שלוש נקודות ...
ובצורה שאתה עשית זה יהפוך להיות רק שתיים.
לכן החיפוש צריך להיות "..[!]." להחליף ב "..." וכן למקרה שיצא 4 נקודות צריך לחפש: ".{4,}" החלף ב"..." -
-
@יאיר-דניאל בנוגע לתיקון נקודה כפולה - כבר כתבתי למעלה שהרבה פעמים כותבים שלוש נקודות ...
ובצורה שאתה עשית זה יהפוך להיות רק שתיים.
לכן החיפוש צריך להיות "..[!]." להחליף ב "..." וכן למקרה שיצא 4 נקודות צריך לחפש: ".{4,}" החלף ב"..."@אלכסון כתב בשיתוף | "מתעדכן" אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות.:
לכן החיפוש צריך להיות "..[!]." להחליף ב "..."
לא הבנתי את הפקודה שלך - מה זה אומר לעשות? א"א לעשות ב"חפש את" ..[!]. זהו טקסט לא חוקי.
אם כבר אפשר לעשות כך: חפש את - .{2,} החלף ב - . -
@אלכסון כתב בשיתוף | "מתעדכן" אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות.:
לכן החיפוש צריך להיות "..[!]." להחליף ב "..."
לא הבנתי את הפקודה שלך - מה זה אומר לעשות? א"א לעשות ב"חפש את" ..[!]. זהו טקסט לא חוקי.
אם כבר אפשר לעשות כך: חפש את - .{2,} החלף ב - .@יאיר-דניאל סליחה טעות, הנקודה צריכה להיות בתוך הסוגריים.
אבל ליתר דיוק החיפוש צריך להיות כך: (?[!.])(..)(?[!.]) החלף ב \1.\3 -
@יאיר-דניאל סליחה טעות, הנקודה צריכה להיות בתוך הסוגריים.
אבל ליתר דיוק החיפוש צריך להיות כך: (?[!.])(..)(?[!.]) החלף ב \1.\3@אלכסון לא הבנתי בשביל מה כל הסיבוך הזה - הרבה יותר פשוט כמו שאמרת, חפש את "..[!.]" החלף ב"."
בדרך כלל לא קורה לאנשים שהם מקלידים ארבע פעמים נקודה בטעות..., אלא א"כ הם התכוונו להקליד ... ויצא להם ....
ולזה מועיל הפקודה הבאה - חפש את "...." החלף ב "..." (וכמובן - להפעיל פקודה זו לפני הקודמת), או פשוט יותר חפש את ".{4,}" החלף ב"..."
אגב שתי הפקודות האלו כבר הוכנסו (היום) במאקרו שהעליתי לעיל. -
אני רוצה שהמחשב יסמן לי באדום, כל מילה שמסתיימת באות שאינה מאותיות מנצפ"כ, ואינה באה אחרי גרשיים,
(לדוגמה "קדשימ" "אעג" - אבל לא "אע"ג" "מ"מ" וכן ע"ז הדרך.
למה שאני עושה את הפקודה דלהלן, המחשב מסמן לי כל מילה שניה?
איפה הטעות שלי? אשמח לעזרה. תודה! -
אני רוצה שהמחשב יסמן לי באדום, כל מילה שמסתיימת באות שאינה מאותיות מנצפ"כ, ואינה באה אחרי גרשיים,
(לדוגמה "קדשימ" "אעג" - אבל לא "אע"ג" "מ"מ" וכן ע"ז הדרך.
למה שאני עושה את הפקודה דלהלן, המחשב מסמן לי כל מילה שניה?
איפה הטעות שלי? אשמח לעזרה. תודה!@יאיר-דניאל
לא הבנתי על איזה פקודה אתה מדבר -
@יאיר-דניאל
לא הבנתי על איזה פקודה אתה מדבר@pcinfogmach צודק, סליחה לא צירפתי את התמונה
-
@pcinfogmach צודק, סליחה לא צירפתי את התמונה
@יאיר-דניאל
תנסה כך:
נ.ב אם אפשר הייתי מעדיף ששאלות ממין זה יהיו בשרשור של החיפוש והחלפה לא בשרשור של מאקרו - תודה מראש
-
@יאיר-דניאל
תנסה כך:
נ.ב אם אפשר הייתי מעדיף ששאלות ממין זה יהיו בשרשור של החיפוש והחלפה לא בשרשור של מאקרו - תודה מראש
@pcinfogmach איך אני עושה פקודת מאקרו כדלהלן:
אני מעוניין ליצור פקודת מאקרו להערת שוליים בגודל ובכתב מסויים. שגם מספר הערה לא יהיה כמו הברירת מחדל, (10 נקודות) אלא יהיה 9 נקודות, וגם הכתב יהיה בגודל 9 נקודות ולא 10.
איך עושים זאת?
אגב אם יש לך תשובה לזה https://mitmachim.top/post/918133 אשמח לקבלה. תודה רבה! -
@pcinfogmach איך אני עושה פקודת מאקרו כדלהלן:
אני מעוניין ליצור פקודת מאקרו להערת שוליים בגודל ובכתב מסויים. שגם מספר הערה לא יהיה כמו הברירת מחדל, (10 נקודות) אלא יהיה 9 נקודות, וגם הכתב יהיה בגודל 9 נקודות ולא 10.
איך עושים זאת?
אגב אם יש לך תשובה לזה https://mitmachim.top/post/918133 אשמח לקבלה. תודה רבה!@יאיר-דניאל
נשמע שאתה רוצה לעשות לולאה על הערות שוליים
לולאה ממין זה תיתן לך גישה גם להפניה וגם להערת שולייםלחילופין תוכל להתמש בחיפוש החלפה על טווח מסויים
קודם לחפש את ההפניה
ואז לעבור להערות על ידי פקודת המאקרו ולעשות שם חיפוש והחלפה ג"כ
גישה זו קצת יותר מורכבת מאחר ותצטרך להגדיר את טווח החיפוש היטב
בפרט בחיפוש בתוך ההערות שוליים -
@יאיר-דניאל
נשמע שאתה רוצה לעשות לולאה על הערות שוליים
לולאה ממין זה תיתן לך גישה גם להפניה וגם להערת שולייםלחילופין תוכל להתמש בחיפוש החלפה על טווח מסויים
קודם לחפש את ההפניה
ואז לעבור להערות על ידי פקודת המאקרו ולעשות שם חיפוש והחלפה ג"כ
גישה זו קצת יותר מורכבת מאחר ותצטרך להגדיר את טווח החיפוש היטב
בפרט בחיפוש בתוך ההערות שוליים@pcinfogmach כתב בשיתוף | "מתעדכן" אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות.:
נשמע שאתה רוצה לעשות לולאה על הערות שוליים
לולאה ממין זה תיתן לך גישה גם להפניה וגם להערת שולייםת'אמת לא הבנתי מה אתה אומר, או שלא הסברתי את עצמו מספיק - אני רוצה להגיע למצב שע"י קיצור מקשים - אני יוסיף הערת שוליים במסמך בלי להגדיר כל פעם מחדש גודל כתב וכו'
(יש לי כבר כזו פקודה שהקלטתי, ואיתה אני משתמש, רק יש לי בה באג, שאם אני מוסיף הערה לפני הערה קיימת (כלומר אחרי הערה 1 ולפני הערה 2 אני מוסיף עוד הרעה) זה מוסיף לי הערה, אבל הסמן קופץ לי להערה הבאה) -
@pcinfogmach כתב בשיתוף | "מתעדכן" אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות.:
נשמע שאתה רוצה לעשות לולאה על הערות שוליים
לולאה ממין זה תיתן לך גישה גם להפניה וגם להערת שולייםת'אמת לא הבנתי מה אתה אומר, או שלא הסברתי את עצמו מספיק - אני רוצה להגיע למצב שע"י קיצור מקשים - אני יוסיף הערת שוליים במסמך בלי להגדיר כל פעם מחדש גודל כתב וכו'
(יש לי כבר כזו פקודה שהקלטתי, ואיתה אני משתמש, רק יש לי בה באג, שאם אני מוסיף הערה לפני הערה קיימת (כלומר אחרי הערה 1 ולפני הערה 2 אני מוסיף עוד הרעה) זה מוסיף לי הערה, אבל הסמן קופץ לי להערה הבאה)@יאיר-דניאל
תעלה את הקוד שיש לך -
@יאיר-דניאל
תעלה את הקוד שיש לך@pcinfogmach פתרתי את הבעיה "מעיקרא" בעקבות המלצתו של @menajemmendel, פשוט שיניתי את הברירת מחדל של הערות שוליים - בסגנונות...
במקום בית חולים מתחת לגשר...
בכ"א, תודה על העזרה וההירתמות! -
מצורף כמה מאקרואים פשוטים (אבל ממש פשוטים...)
(מיועד למי שלא יודע איך מקליטים מאקרו, או למי שמתעצל לעשות זאת)כמה הוראות:
-
במאקרו "הקטנת סוגריים מרובעות" - בשורה האחרונה " Replacement.Font.SizeBi = 11" - תשנו את המספר 11 למספר הרצוי אצלכם במסמך
-
המאקרואים של "קפיצה כלפי מעלה" ו"קפיצה כלפי מטה" מיועדים למי שמשתמש במקלדת, ולא אוהב לגעת בעכבר, ורוצה לגלול קצת את המסמך אבל בצורה של קטעים ולא ע"י החיצים במקלדת. (מומלץ להגדיר למאקרואים אלו קיצורי מקשים במקלדת)
-
המאקרו "קפיצה לסוף המסמך" מיועד לאנשים שכותבים מסמך ארוך כגון חבורה וכדו' וכשהם נכנסים לקובץ הסמן לא נמצא בסוך המסמך, וצריך לגלול ע"י העכבר או ע"י החיצים בכדי להמשיך לכתוב איפה שהפסיקו (לי זה קורה המון!). כנ"ל מומלץ להגדיר לו קיצור מקשים במקלדת.
-
-
מצורף כמה מאקרואים פשוטים (אבל ממש פשוטים...)
(מיועד למי שלא יודע איך מקליטים מאקרו, או למי שמתעצל לעשות זאת)כמה הוראות:
-
במאקרו "הקטנת סוגריים מרובעות" - בשורה האחרונה " Replacement.Font.SizeBi = 11" - תשנו את המספר 11 למספר הרצוי אצלכם במסמך
-
המאקרואים של "קפיצה כלפי מעלה" ו"קפיצה כלפי מטה" מיועדים למי שמשתמש במקלדת, ולא אוהב לגעת בעכבר, ורוצה לגלול קצת את המסמך אבל בצורה של קטעים ולא ע"י החיצים במקלדת. (מומלץ להגדיר למאקרואים אלו קיצורי מקשים במקלדת)
-
המאקרו "קפיצה לסוף המסמך" מיועד לאנשים שכותבים מסמך ארוך כגון חבורה וכדו' וכשהם נכנסים לקובץ הסמן לא נמצא בסוך המסמך, וצריך לגלול ע"י העכבר או ע"י החיצים בכדי להמשיך לכתוב איפה שהפסיקו (לי זה קורה המון!). כנ"ל מומלץ להגדיר לו קיצור מקשים במקלדת.
@יאיר-דניאל כתב בשיתוף | "מתעדכן" אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות.:
המאקרו "קפיצה לסוף המסמך" מיועד לאנשים שכותבים מסמך ארוך כגון חבורה וכדו' וכשהם נכנסים לקובץ הסמן לא נמצא בסוך המסמך, וצריך לגלול ע"י העכבר או ע"י החיצים בכדי להמשיך לכתוב איפה שהפסיקו (לי זה קורה המון!). כנ"ל מומלץ להגדיר לו קיצור מקשים במקלדת.
לא צריך לזה שום מאקרו, יש מקש מובנה לזה במחשב CTRL + END
כמו כן לגלגל כלפי מטה ומעלה יש מקש PgUp, ו PgDn, ואם אתה רוצה פסקה פסקה, אפשר פשוט CTRL+חץ למעלה או למטה, עובר פסקה פסקה
-
-
מאקרו טקסט מתחלף בוורדרוצים ליצור פירוש עם טקסט מתחלף כדוגמת רש"י או מפרשים אחרים??
המאקרו שיסדר את העניינים!!איך זה עובד??
- מסמנים את הפיסקאות שעליהם רוצים להחיל את המאקרו.
- בחלון שנפתח, מסמנים באיזה תו מסתיים הדיבור המתחיל ובאיזה תו מסתיים הדיבור, ולוחצים על אישור.
- המאקרו מדגיש מתחילת הפיסקה עד הסימן של סוף הדיבור המתחיל, ולאחר מכן הוא מסמן מתו סוף דיבור עד תו תחילת ד"ה.
שימו לב שהמאקרו עובד על הפיסקאות הנבחרות מתחילת הפיסקה ועד סופה.
תמונה להמחשה:
להורדה מכאן
-
מאקרו טקסט מתחלף בוורד
רוצים ליצור פירוש עם טקסט מתחלף כדוגמת רש"י או מפרשים אחרים??
המאקרו שיסדר את העניינים!!איך זה עובד??
- מסמנים את הפיסקאות שעליהם רוצים להחיל את המאקרו.
- בחלון שנפתח, מסמנים באיזה תו מסתיים הדיבור המתחיל ובאיזה תו מסתיים הדיבור, ולוחצים על אישור.
- המאקרו מדגיש מתחילת הפיסקה עד הסימן של סוף הדיבור המתחיל, ולאחר מכן הוא מסמן מתו סוף דיבור עד תו תחילת ד"ה.
שימו לב שהמאקרו עובד על הפיסקאות הנבחרות מתחילת הפיסקה ועד סופה.
תמונה להמחשה:
להורדה מכאן
-
@שלמה11
נא לפרט קצת איך המאקרו עובדנ.ב. אולי מישהו יודע מהו השם המיקצועי עבור מה ש@שלמה11 מתאר אינני זוכר כרגע אבל כמדומני שיש לזה שם מקצועי
@pcinfogmach כתב בשיתוף | "מתעדכן" אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות.:
עבור מה ש@שלמה11 מתאר
-
@יאיר-דניאל כתב בשיתוף | "מתעדכן" אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות.:
המאקרו "קפיצה לסוף המסמך" מיועד לאנשים שכותבים מסמך ארוך כגון חבורה וכדו' וכשהם נכנסים לקובץ הסמן לא נמצא בסוך המסמך, וצריך לגלול ע"י העכבר או ע"י החיצים בכדי להמשיך לכתוב איפה שהפסיקו (לי זה קורה המון!). כנ"ל מומלץ להגדיר לו קיצור מקשים במקלדת.
לא צריך לזה שום מאקרו, יש מקש מובנה לזה במחשב CTRL + END
כמו כן לגלגל כלפי מטה ומעלה יש מקש PgUp, ו PgDn, ואם אתה רוצה פסקה פסקה, אפשר פשוט CTRL+חץ למעלה או למטה, עובר פסקה פסקה
@menajemmendel כתב בשיתוף | "מתעדכן" אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות.:
לא צריך לזה שום מאקרו, יש מקש מובנה לזה במחשב CTRL + END
לא שמת לב כנראה מה כתבתי
אני מדבר על מי שרוצה לגלול עד סוף המסמך, ולא פיסקה פיסקה. צירוף המקשים CTRL + END מעביר אותך לתחילת המילה הקודמת@menajemmendel כתב בשיתוף | "מתעדכן" אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות.:
כמו כן לגלגל כלפי מטה ומעלה יש מקש PgUp, ו PgDn, ואם אתה רוצה פסקה פסקה, אפשר פשוט CTRL+חץ למעלה או למטה, עובר פסקה פסקה
ולגבי זה - אני דיברתי על אנשים שרוצים לגלול רבע מסך בערך ולא לפי פסקאות, כי לפעמים פסקה יכולה להיות מאוד ארוכה.
(במיוחד לפני עריכה, בכתיבת טיוטה)
 { const baseUrl = "https://www.google.co.il/search?q=site:mitmachim.top"; const m = location.pathname.match(/^\/(topic|category)\/(\d+)/); const type = m ? m[1] : null; const id = m ? m[2] : null; let searchInput; function search(path = "") { const query = searchInput.value.trim(); if (query) { window.open(`${baseUrl}${path}%20${encodeURIComponent(query)}`, "_blank"); } } let buttons = {}; buttons.searchAll = { id: "bb-search-all", label: `חיפוש ${type ? "בכל הפורום" : ""}`, className: type ? "btn-secondary" : "btn-primary", callback: () => search(), }; if (type === "topic") { buttons.searchTopic = { label: "חיפוש בנושא זה", className: "btn-primary", callback: () => search(`/topic/${id}`), }; } else if (type === "category") { buttons.searchCategory = { label: "חיפוש בקטגוריה זו", className: "btn-primary", callback: () => search(`/category/${id}`), }; } buttons.cancel = { label: "ביטול", className: "btn-default", "data-bs-dismiss": "modal" }; const dialog = bootbox.dialog({ title: '<div style="text-align:center;"><img src="/assets/uploads/files/1625950269825-mt-google.png" width="400" alt="חיפוש בגוגל"></div>', message: '<input id="bb-inp" class="bootbox-input bootbox-input-text form-control" placeholder="הקלידו כדי לחפש בגוגל" autocomplete="off"/>', buttons, backdrop: true, show: true, onEscape: true }); dialog.on("shown.bs.modal", function () { searchInput = document.getElementById("bb-inp"); if (searchInput) { searchInput.focus(); searchInput.addEventListener("keydown", function (e) { if (e.key === "Enter") { e.preventDefault(); const query = this.value.trim(); if (query) { search(); dialog.modal("hide"); } } else if (e.key === "Escape") { e.preventDefault(); dialog.modal("hide"); } }); } const searchAllButton = document.getElementById("bb-search-all"); if (searchAllButton) { searchAllButton.title = "לחצו על אנטר כדי לחפש"; } }); })(); void 0;){kind=link}