שאלה לגאוני וורד - חפש והחלף | באג

[ונתנו10]

יש איזה באג בוורד (2003), שאם אתה מחליף משהו ב^13, הוא לא מחליף אותו לתו סוף פסקה אמיתי.
דהיינו, הסימן שלו הוא כמו סוף פסקה, הוא יורד בעצם שורה, אבל נותן לו הגדרות כמו טאב + שיפט אנטר. דהיינו כאילו שהוא שבירת שורה ידנית (אבל הוא לא).
אבל אם תחפש אותו עכשיו בחיפוש רגיל כ: ^p, לא תמצא אותו.
כשאתה בוחר את הפסקה בטריפלקליק, או בקיצורי דרך, הוא בעצם מתייחס לכל הפסקאות, כאל פסקה אחת.
כמו כן, כששומרים קובץ כזה כRTF, הוא בכלל מעלים את הסוף פסקה, כאילו שלא היה שם כלום.
האם יש למישהו רעיון איך אפשר למצוא את התו הבעייתי (בלבד)?
(יש אפשרות של חפש כל סימן פסקה אמיתי, להחליף אותו בקוד, ואז לחפש ^13, ולמצוא את הבעייתיים בלבד. אבל אני מעדיף להימנע מזה)

צרפתי קובץ.
תודה לעוזרים. (לייזער, זה בשביל מ.פ, החבר הטוב... בטח בשבילו יהיה לך פתרון)

 

[לייזער]

בעזהי"ת.
מבלי ליכנס לסיבת הבעי' (שכבר נמצא כתוב עלי גוגל, עם קצת הסבר לדבר, כמו גם הפתרון הפשוט לעקיפת בעי' זו ע"י החלפת כל ^13 ב^p),
הנה לשאלתך איך ניתן לחפש רק את אלו הבעייתיים, מבלי לשנות שום דבר בטעקסט, הנה לכאו' ניתן הדבר ע"י מאקרא כדלהלן [אשר ייתכן וכדאי להקצות לו כפתור או קיצור דרך, בכדי לעבור במהירות מתוצאת חיפוש אחת לשני' עד לסיום הקובץ]:

Sub FindChr13()
Dim myRange As Range
Set myRange = Selection.Range
myRange.SetRange Selection.End, ActiveDocument.StoryRanges(Selection.StoryType).End
With myRange.Find
    While .Execute(Chr(13))
        If myRange.End < myRange.Paragraphs.Last.Range.End Then myRange.Select: End
    Wend
    MsgBox "Done!"
End With
End Sub

בתקווה שיבוא לתועלת. ד"ש.

 

[ונתנו10]

תודה רבה!

 

[RCpro]

למה להחליף ב-^13 ולא ב-^P? (התכוונתי P קטנה)

 

[ונתנו10]

למה להחליף ב-^13 ולא ב-^P? (התכוונתי P קטנה)

כי השאלה היתה איך למצוא את הבעייתים בלבד.

האם יש למישהו רעיון איך אפשר למצוא את התו הבעייתי (בלבד)?

ותודה מיוחדת ללייזער.