Option Explicit

Public Sub AutoOpen()
    Call שלי_הסרת_עוגן_בלתי_נראה
End Sub

Public Sub AutoClose()
    Call שלי_הוספת_עוגן_בלתי_נראה
End Sub

Public Sub שלי_הוספת_עוגן_בלתי_נראה()
'
' שלי_הוספת_עוגן_בלתי_נראה Macro
'
'
    Selection.TypeText Text:="."
    Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    With Selection.Font
        .Name = "+גוף"
              .Size = 11
        .Underline = wdUnderlineNone
        .UnderlineColor = wdColorAutomatic
        .Color = -603914241
        .Superscript = True
        .Spacing = 0
        .Scaling = 100
        .Position = 0
        .Kerning = 1
        .Animation = wdAnimationNone
        .SizeBi = 1
        .NameBi = "+גוף עברי"
        .Ligatures = wdLigaturesStandardContextual
        .NumberSpacing = wdNumberSpacingDefault
        .NumberForm = wdNumberFormDefault
        .StylisticSet = wdStylisticSetDefault
        .ContextualAlternates = 0
    End With
End Sub
Public Sub שלי_הסרת_עוגן_בלתי_נראה()
'
' שלי_הסרת_עוגן_בלתי_נראה Macro
'
'
    Selection.Find.ClearFormatting
    With Selection.Find.Font
        .Color = -603914241
        .Superscript = True
    End With
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "."
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
    End With
    Selection.Find.Execute
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    End Sub