עזרה ב MACRO של REPLACE ב WORD

עזרה ב MACRO של REPLACE ב WORD

OFFICE 2013
WIN 7

מבקש להחליף ב STRING את (char(63 ברווח.
יש לי קטע ב MACRO שנראה כך:
קוד:
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

הבעיה היא שמופיעה שורת TEXT
.text = "משהו"

כשאני מדביק את (char(63 מופיע במאקרו "?"
אשמח לעזרה.
תודה מראש.
 
נסיתי גם את 2 המקרו מצורפים

לצערי הרב, ללא תוצאות.
קוד:
Sub test()
For Each achar In ActiveDocument.Characters
       achar = Replace(achar, Chr(63), "")
       Next
End Sub

נסיתי גם :
קוד:
Sub test1()
For Each achar In ActiveDocument.Characters
i = Asc(achar)
If i < 48 Then achar = ""
If i > 58 And i < 64 Then achar = ""
If i > 64 And i < 97 Then achar = ""
If i > 122 Then achar = ""

       Next
End Sub
{ בהנחה שכל הטקסט באנגלית }
גם לא עזר.
הCHARACTER שתמונתו מצורפת, מסרב להעלם.
אשמח לרעיון נוסף ( רצוי כזה שעובד
)
תודה מראש

 
אגדיר אחרת את הבעיה

ה CHAR בתמונה מופיע או בתחילת מלה, או בסוף מלה או באיזשהו מקום במלה.
איך אפשר להעלים אותו באופן ממוכן/אוטומטי מהמלה?
מדובר ב WORD 2013 / WIN 7.

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

 
הבנתי מה הבעיה במאקרו

אשמח לעזרה בסוגיה:
קוד:
Sub test1()
For Each achar In ActiveDocument.Characters
i = Asc(achar)
If i < 48 Then achar = ""
If i > 58 And i < 64 Then achar = ""
If i > 64 And i < 97 Then achar = ""
If i > 122 Then achar = ""

       Next
End Sub
אחרי ש ACHAR השתנה לפי אחד ה IF -ים, ל BLANK , איך אני דואג לכתוב את ה ACHAR החדש , במקומו?
תודה.
 
למעלה