דחוף !!! | קודים לחיפוש בוורד

[ש. כהן - ארכיון]

תאריך ההודעה המקורית: 26/09/2023 18:59

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

--
תודה רבה ויום נפלא
ש. כהן

[יואל שילה - ארכיון]

תאריך ההודעה המקורית: 26/09/2023 19:41

Sub נקודה_בסוף_פיסקה()
'
' נקודה_בסוף_פיסקה Macro
'
'
Selection.Find.ClearFormatting
With Selection.Find.ParagraphFormat
.SpaceBeforeAuto = False
.SpaceAfterAuto = False
.Alignment = wdAlignParagraphJustify
End With
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "([א-תa-zA-Z0-9)], ^32""'])(^13)"
.Replacement.Text = "\1.\2"
.Forward = True
.Wrap = wdFindStop
.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
End Sub

------ Original Message ------
מאת: From "ש. כהן"
מאת: To "הבית לעורך התורני"
Date י"א תשרי תשפ"ד 18:59:44
Subject [הבית לעורך התורני] דחוף !!! | קודים לחיפוש בוורד