וורד מחיקת תווים דו-כיווניים בוורד

[חיטובים]

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

@צורת הדף @ישורון קובי

 

[חיטובים]

הרב @צורת הדף בטוב ליבו שלח לי מאקרו שמסדר את הבעיה, והסכים להעלות לכאן.

Sub Hidden_rtl_mark()

With Selection.Find

.Execute FindText:=ChrW(8234), MatchWildcards:=True, Forward:=True, Wrap:=wdFindContinue, Format:=False, Replacewith:="", Replace:=wdReplaceAll
.Execute FindText:=ChrW(8235), MatchWildcards:=True, Forward:=True, Wrap:=wdFindContinue, Format:=False, Replacewith:="", Replace:=wdReplaceAll
.Execute FindText:=ChrW(8236), MatchWildcards:=True, Forward:=True, Wrap:=wdFindContinue, Format:=False, Replacewith:="", Replace:=wdReplaceAll
.Execute FindText:=ChrW(8237), MatchWildcards:=True, Forward:=True, Wrap:=wdFindContinue, Format:=False, Replacewith:="", Replace:=wdReplaceAll
.Execute FindText:=ChrW(8238), MatchWildcards:=True, Forward:=True, Wrap:=wdFindContinue, Format:=False, Replacewith:="", Replace:=wdReplaceAll

End With

End Sub

 

[שיקול דעת]

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

 

[חיטובים]

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

הבעיה כמו שתיארתי בהודעה הראשונה כאן

 

[שיקול דעת]

הבעיה כמו שתיארתי בהודעה הראשונה כאן

מה זה 'תווים דו כיוונים'??

 

[אברהם]

תוי יוניקוד שנועדו להגדיר כיווניות לטקסט, שונה מהאלגוריתם של יוניקוד

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

 

[חיטובים]

עדכון: כעת המאקרו מוחק את התווים גם בהערות שוליים והערות סיום.

Sub Hidden_rtl_mark()
 
For Each aStory In ActiveDocument.StoryRanges
If aStory.StoryType = wdMainTextStory Or aStory.StoryType = wdFootnotesStory Or aStory.StoryType = wdEndnotesStory Then
With aStory.Find
.Execute FindText:=ChrW(8234), MatchWildcards:=True, Forward:=True, Wrap:=wdFindContinue, Format:=False, Replacewith:="", Replace:=wdReplaceAll
.Execute FindText:=ChrW(8235), MatchWildcards:=True, Forward:=True, Wrap:=wdFindContinue, Format:=False, Replacewith:="", Replace:=wdReplaceAll
.Execute FindText:=ChrW(8236), MatchWildcards:=True, Forward:=True, Wrap:=wdFindContinue, Format:=False, Replacewith:="", Replace:=wdReplaceAll
.Execute FindText:=ChrW(8237), MatchWildcards:=True, Forward:=True, Wrap:=wdFindContinue, Format:=False, Replacewith:="", Replace:=wdReplaceAll
.Execute FindText:=ChrW(8238), MatchWildcards:=True, Forward:=True, Wrap:=wdFindContinue, Format:=False, Replacewith:="", Replace:=wdReplaceAll
End With
End If
Next

End Sub

 

[חיטובים]

לעתים הפעלת המאקרו גורמת למספרים להתהפך - לא באשמתו אלא באשמת ההקלדה המקורית. צריך לשים לב.