בקשת מידע | בקשת קודים של טעמי המקרא לחיפוש והחלפה

[ZVULON]

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

[צדיק וטוב לו 0]

@ZVULON @pcinfogmach יש לך מסתמא מה לומר בנידון.

[pcinfogmach]

@ZVULON
עיין כאן
https://www.prog.co.il/threads/תווים-כלליים.585301/#post-8161589

וכאן
https://mitmachim.top/post/607514

כמו"כ בתוסף שלי יש פקודה עבור גילוי תווים
אם אתה מעוניין בקוד עצמו אז הנה

 Sub GetAsciiCode2()
    Dim myChar As String
    Dim AsciiCode As Integer
    Dim myTxt As String
    Dim i As Integer
    
    With Selection.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = ""
        .Replacement.Text = ""
    End With
    
    ' Get the selected character
    myTxt = Selection.Text
    
    ' Check if a character is selected
    If Len(myTxt) = 0 Then Exit Sub
    
    For i = 1 To Len(myTxt)
        myChar = Mid(myTxt, i, 1)
        ' Get the ASCII code of the selected character
        AsciiCode = Asc(myChar)
        If AsciiCode > 223 And AsciiCode < 251 Then AsciiCode = AsciiCode - 96
             
        ' Open the search and replace dialog
        With Selection.Find
            .Text = .Text & "^" & AsciiCode
            .MatchWildcards = True
        End With
        
            Next i
            
Application.CommandBars.ExecuteMso ("ReplaceDialog")
    
End Sub

[ZVULON]

תודה רבה, עזרת לי מאוד