שיתוף | שרשור חיפוש והחלפה בוורד - אילתורים מקצועיים בוורד
עזרה הדדית - וורד
122
פוסטים
29
כותבים
13.2k
צפיות
40
עוקבים
-
@poker כתב בשיתוף | שרשור חיפוש והחלפה בוורד - אילתורים מקצועיים בוורד:
@pcinfogmach
דבר ראשון תודה ענקית על היוזמה שלך.
שאלה קטנה שמטרידה אותי זמן רב במקרה שיש לי 'אנטרים' מיותרים לאורך כל המסמך, ואני רוצה מחוק אותם באמצעות 'חפש והחלף'.
כיצד עושים זאת???יש שני אפשרויות:
- חפש את ^p^p, החלף ב ^p, [וצריך לחזור על הפעולה כמה פעמים עד שהכל מסתדר].
- חפש את ^13{2,} [וצריך לסמן השתמש בתווים כלליים], החלף ב ^13, [ובאופן זה הכל מסתדר בפעם אחת].
בנוסף לזה יש לי מאקרו מיוחד שמתקן את זה באופן אוטומטי על כל המסמך, וגם מוחק כל רווח מיותר לפני או אחרי פסקא.
Sub מחיקת_פסקאות_כפולות() ' ' DeletingEmptyParagraphs Macro ' מחיקת פסקאות ריקות ' Selection.Find.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 Selection.MoveRight Unit:=wdCharacter, Count:=1 Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = " {1,}^13" .Replacement.Text = "^13" .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 {1,}" .Replacement.Text = "^13" .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{2,}" .Replacement.Text = "^13" .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 End Sub -
@מניין @pcinfogmach

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