Sub רצף_הערות_חלק_א()
'
' רצף_הערות Macro
'
'
    Selection.GoToNext wdGoToPage
'
' חזור_אחד Macro
'
'
    Selection.MoveLeft Unit:=wdCharacter, Count:=1

' הוסף_הערת_שוליים Macro
'
'
    With Selection
        With .FootnoteOptions
            .Location = wdBottomOfPage
            .NumberingRule = wdRestartContinuous
            .StartingNumber = 1
            .NumberStyle = wdNoteNumberStyleHebrewLetter1
        End With
        .Footnotes.Add Range:=Selection.Range, Reference:=""
    End With
'
' מחק_את_סימון_ההערה_למטה Macro
'
'
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    
' חזור_לטקסט_הראשי Macro
'
'
    If ActiveWindow.ActivePane.View.Type = wdPrintView Or ActiveWindow. _
        ActivePane.View.Type = wdWebView Or ActiveWindow.ActivePane.View.Type = _
        wdPrintPreview Then
        ActiveWindow.View.SeekView = wdSeekMainDocument
    Else
        ActiveWindow.Panes(2).Close
    End If

'
' אחד_שמאלה Macro
'
'
    Selection.MoveRight Unit:=wdCharacter, Count:=1

'
' הקלדת_סולמיות Macro
'
'
    Selection.TypeText Text:="####"
'' הוסף_מעבר_שורה_ידני Macro
'
'
    Selection.TypeText Text:=Chr(11)
'
'

' הוסף_מעבר_מקטע_לפני_עמוד_הבא Macro
'
'
    Selection.InsertBreak Type:=wdSectionBreakNextPage
    '
' הוספת_קוד_לפני_הסולמיות-ולפני_ההערות_המיותרות Macro
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    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
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    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
    Application.WindowState = wdWindowStateNormal
    Selection.MoveRight Unit:=wdCharacter, Count:=4, Extend:=wdExtend
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    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.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^e@$@$"
        .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
    With Selection.Find
        .Text = "^e @$@$"
        .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
        Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    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
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    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
    Application.WindowState = wdWindowStateNormal
    Selection.MoveRight Unit:=wdCharacter, Count:=4, Extend:=wdExtend
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    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.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^e@$@$"
        .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
    With Selection.Find
        .Text = "^e @$@$"
        .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
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    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
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    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
    Application.WindowState = wdWindowStateNormal
    Selection.MoveRight Unit:=wdCharacter, Count:=4, Extend:=wdExtend
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    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.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^f@$@$"
        .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
    With Selection.Find
        .Text = "^f @$@$"
        .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



End Sub

Sub רצף_הערות_חלק_ב()
'
' החלת_כל_הערות_בסגנון_הגיבוי Macro
'
'
'    Selection.WholeStory
'    Selection.Style = ActiveDocument.Styles("גיבוי_הערות_שוליים")

' המר_הערות_שוליים_לסיום Macro
'
'
    ActiveDocument.Footnotes.Convert
'
' העברת_הערות_סיום_לסוף_מקטע Macro
'
'
    With ActiveDocument.Range(Start:=ActiveDocument.Content.Start, End:= _
        ActiveDocument.Content.End).EndnoteOptions
        .Location = wdEndOfSection
        .NumberingRule = wdRestartContinuous
        .StartingNumber = 1
        .NumberStyle = wdNoteNumberStyleLowercaseRoman
    End With

' שמירת_סגנון Macro
'
''
'    Selection.WholeStory
'    Selection.MoveLeft Unit:=wdCharacter, Count:=1
'    Selection.MoveRight Unit:=wdCharacter, Count:=7
'    Selection.MoveRight Unit:=wdCharacter, Count:=4, Extend:=wdExtend
'    CommandBars("Styles").Visible = False
'    ActiveDocument.Styles.Add Name:="גיבוי_הערות_שוליים", Type:= _
'        wdStyleTypeParagraph
'    ActiveDocument.Styles("גיבוי_הערות_שוליים").AutomaticallyUpdate = False
'    With ActiveDocument.Styles("גיבוי_הערות_שוליים").Font
'        .Name = "FrankRuehl"
'        .Size = 10
'        .Bold = False
'        .Italic = False
'        .Underline = wdUnderlineNone
'        .UnderlineColor = wdColorAutomatic
'        .StrikeThrough = False
'        .DoubleStrikeThrough = False
'        .Outline = False
'        .Emboss = False
'        .Shadow = False
'        .Hidden = False
'        .SmallCaps = False
'        .AllCaps = False
'        .Color = wdColorAutomatic
'        .Engrave = False
'        .Superscript = False
'        .Subscript = False
'        .Scaling = 100
'        .Kerning = 0
'        .Animation = wdAnimationNone
'        .SizeBi = 16
'        .NameBi = "EFT_Pnina ExtraLight"
'        .BoldBi = False
'        .ItalicBi = False
'        .Ligatures = wdLigaturesNone
'        .NumberSpacing = wdNumberSpacingDefault
'        .NumberForm = wdNumberFormDefault
'        .StylisticSet = wdStylisticSetDefault
'        .ContextualAlternates = 0
'    End With
'    With ActiveDocument.Styles("גיבוי_הערות_שוליים").ParagraphFormat
'        .LeftIndent = CentimetersToPoints(0)
'        .RightIndent = CentimetersToPoints(0)
'        .SpaceBefore = 0
'        .SpaceBeforeAuto = False
'        .SpaceAfter = 0
'        .SpaceAfterAuto = False
'        .LineSpacingRule = wdLineSpaceSingle
'        .Alignment = wdAlignParagraphJustify
'        .WidowControl = False
'        .KeepWithNext = False
'        .KeepTogether = False
'        .PageBreakBefore = False
'        .NoLineNumber = False
'        .Hyphenation = True
'       .FirstLineIndent = CentimetersToPoints(0)
''        .OutlineLevel = wdOutlineLevelBodyText
'        .CharacterUnitLeftIndent = 0
'        .CharacterUnitRightIndent = 0
'        .CharacterUnitFirstLineIndent = 0
'        .LineUnitBefore = 0
'        .LineUnitAfter = 0
'        .MirrorIndents = False
'        .TextboxTightWrap = wdTightNone
'        .CollapsedByDefault = False
'        .ReadingOrder = wdReadingOrderRtl
'    End With
'    ActiveDocument.Styles("גיבוי_הערות_שוליים"). _
'        NoSpaceBetweenParagraphsOfSameStyle = True
'    ActiveDocument.Styles("גיבוי_הערות_שוליים").ParagraphFormat.TabStops. _
'        ClearAll
'    ActiveDocument.Styles("גיבוי_הערות_שוליים").ParagraphFormat.TabStops.Add _
'        Position:=CentimetersToPoints(5.49), Alignment:=wdAlignTabCenter, Leader _
'        :=wdTabLeaderSpaces
'    With ActiveDocument.Styles("גיבוי_הערות_שוליים").ParagraphFormat
'        With .Shading
'            .Texture = wdTextureNone
'            .ForegroundPatternColor = wdColorAutomatic
'            .BackgroundPatternColor = wdColorAutomatic
'        End With
'        .Borders(wdBorderLeft).LineStyle = wdLineStyleNone
'        .Borders(wdBorderRight).LineStyle = wdLineStyleNone
'        .Borders(wdBorderTop).LineStyle = wdLineStyleNone
'        .Borders(wdBorderBottom).LineStyle = wdLineStyleNone
'        With .Borders
'            .DistanceFromTop = 1
'            .DistanceFromLeft = 4
'            .DistanceFromBottom = 1
'            .DistanceFromRight = 4
'            .Shadow = False
'        End With
'    End With
'    ActiveDocument.Styles("גיבוי_הערות_שוליים").LanguageID = wdHebrew
'    ActiveDocument.Styles("גיבוי_הערות_שוליים").NoProofing = False
'    ActiveDocument.Styles("גיבוי_הערות_שוליים").Frame.Delete
' המרת_סימוני_הערות_להתחלה_בכל_עמוד Macro
'
'
    With ActiveDocument.Range(Start:=ActiveDocument.Content.Start, End:= _
        ActiveDocument.Content.End).EndnoteOptions
        .Location = wdEndOfSection
        .NumberingRule = wdRestartContinuous
        .StartingNumber = 1
        .NumberStyle = wdNoteNumberStyleHebrewLetter1
        .NumberingRule = wdRestartSection
    End With

' עבור_להערות_סיום Macro
'
'
    If ActiveWindow.ActivePane.View.Type = wdPrintView Or ActiveWindow. _
        ActivePane.View.Type = wdWebView Or ActiveWindow.ActivePane.View.Type = _
        wdPrintPreview Then
        ActiveWindow.View.SeekView = wdSeekEndnotes
    Else
        ActiveWindow.View.SplitSpecial = wdPaneEndnotes
    End If
'
' חזור_להתחלה Macro
'
'
    Selection.WholeStory
    Selection.MoveLeft Unit:=wdCharacter, Count:=1

' הוספת_תו_המוחק_פיסקה Macro
'
'
    Selection.InsertStyleSeparator

' מעבר_לסימון_הערה_הבא Macro
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^e"
        .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
End Sub

Sub רצף_הערות_חלק_ג()
' מעבר_לסימון_הערה_הבא Macro
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^e"
        .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




' הוספת_תו_המוחק_פיסקה Macro
'
'
    Selection.InsertStyleSeparator


End Sub
Sub עדכון_מקטעים_לפי_סולמיות_כולל_הערות_המפרידות()
' עבור_לתחילת_המסמך_מכל_מקום Macro
'
'
    Selection.GoToNext wdGoToSection
    Selection.WholeStory
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
'
' עבור_לסוף_המסמך Macro
'
'
    Selection.WholeStory
    Selection.MoveRight Unit:=wdWord, Count:=1

'
' זוז (פנה מקום) Macro
'
'
    Selection.MoveRight Unit:=wdCharacter, Count:=1

' מחיקת_מעבר_שורה_ידני Macro
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^l"
        .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

' מחיקת_מקטעים Macro
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^b"
        .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
'

'' הוסף_מעבר_שורה_ידני Macro
'
'
    Selection.TypeText Text:=Chr(11)

' יצירת_מקטע Macro
'

'
    Selection.InsertBreak Type:=wdSectionBreakNextPage

'
' גזירת_המקטע_והמעבר_שורה Macro
'
'
    Selection.MoveLeft Unit:=wdCharacter, Count:=2, Extend:=wdExtend
    Selection.Cut
'
' עדכון_סולמיות_עם_מקטע_לפי_תוכן_הלוח Macro
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "####"
        .Replacement.Text = "####^c"
        .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
' הוספת_הערת_שוליים_ריקה_עם_קוד_מתאים_לפני_כל_סולמית()

'
' מחיקת_תוכן_מקודד Macro
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "@#@#^e@$@$"
        .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
    With Selection.Find
        .Text = "@#@# ^e@$@$"
        .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
    With Selection.Find
        .Text = "@#@# ^e @$@$"
        .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
    With Selection.Find
        .Text = "@#@#^e @$@$"
        .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
'
' הוספת_הערת_שוליים_ריקה_עם_קוד_מתאים_לפני_כל_סולמית Macro
'
'
    Selection.WholeStory
    Selection.MoveLeft Unit:=wdCharacter, Count:=1

' הוסף_הערת_שוליים Macro
'
'
    With Selection
        With .FootnoteOptions
            .Location = wdBottomOfPage
            .NumberingRule = wdRestartContinuous
            .StartingNumber = 1
            .NumberStyle = wdNoteNumberStyleHebrewLetter1
        End With
        .Footnotes.Add Range:=Selection.Range, Reference:=""
    End With
'
' מחק_את_סימון_ההערה_למטה Macro
'
'
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
        If ActiveWindow.ActivePane.View.Type = wdPrintView Or ActiveWindow. _
        ActivePane.View.Type = wdWebView Or ActiveWindow.ActivePane.View.Type = _
        wdPrintPreview Then
        ActiveWindow.View.SeekView = wdSeekMainDocument
    Else
        ActiveWindow.Panes(2).Close
    End If
    Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    Selection.Cut
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "####"
        .Replacement.Text = "@#@#^c@$@$####"
        .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

' המר_הערות_שוליים_לסיום Macro
'
'
    ActiveDocument.Footnotes.Convert
'

'
' הסתרת_ההערת_שוליים_עם_הקודים Macro
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find.Replacement.Font
        .Size = 1
        .Color = -603914241
    End With
    With Selection.Find
        .Text = "@#@#^e@$@$"
        .Replacement.Text = "^&"
        .Forward = True
        .Wrap = wdFindAsk
        .Format = True
        .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
'
' הסתרת_הערות_שוליים_עם_הקודים Macro
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find.Replacement.Font
        .Size = 1
        .Color = -603914241
    End With
    With Selection.Find
        .Text = "@#@#^e@$@$"
        .Replacement.Text = "^&"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .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
'
' החלף_לבן_בגודל_אחד Macro
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Font.Color = -603914241
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find.Replacement.Font
        .Size = 1
        .Color = -603914241
    End With
    With Selection.Find
        .Text = ""
        .Replacement.Text = "^&"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .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
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Font.Color = -603914241
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find.Replacement.Font
        .Size = 1
        .Color = -603914241
    End With
    With Selection.Find
        .Text = ""
        .Replacement.Text = "^&"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    With Selection
        If .Find.Forward = True Then
            .Collapse Direction:=wdCollapseStart
        Else
            .Collapse Direction:=wdCollapseEnd
        End If
        .Find.Execute Replace:=wdReplaceOne
        If .Find.Forward = True Then
            .Collapse Direction:=wdCollapseEnd
        Else
            .Collapse Direction:=wdCollapseStart
        End If
        .Find.Execute
    End With
    With Selection
        If .Find.Forward = True Then
            .Collapse Direction:=wdCollapseStart
        Else
            .Collapse Direction:=wdCollapseEnd
        End If
        .Find.Execute Replace:=wdReplaceOne
        If .Find.Forward = True Then
            .Collapse Direction:=wdCollapseEnd
        Else
            .Collapse Direction:=wdCollapseStart
        End If
        .Find.Execute
    End With
    Selection.Find.ClearFormatting
    Selection.Find.Font.Color = -603914241
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find.Replacement.Font
        .Size = 1
        .Color = -603914241
    End With
    With Selection.Find
        .Text = ""
        .Replacement.Text = "^&"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .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
    ActiveWindow.ActivePane.VerticalPercentScrolled = 0
' עבור_לתחילת_המסמך_מכל_מקום Macro
'
'
    Selection.GoToNext wdGoToSection
    Selection.WholeStory
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
'
' עבור_לסוף_המסמך Macro
'
'
    Selection.WholeStory
    Selection.MoveRight Unit:=wdWord, Count:=1

'

' הסתרת_כתב_לבן Macro
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Font.Color = -603914241
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find.Replacement.Font
        .Size = 1
        .Color = -603914241
    End With
    With Selection.Find
        .Text = ""
        .Replacement.Text = "^&"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .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
'
' צבע_קודים_בלבן Macro
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find.Replacement.Font
        .Size = 1
        .Color = -603914241
    End With
    With Selection.Find
        .Text = "@#@#"
        .Replacement.Text = "^&"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .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
    With Selection.Find
        .Text = "@#@#"
        .Replacement.Text = "^&"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .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
    With Selection.Find
        .Text = "@$@$"
        .Replacement.Text = "^&"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .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
' הקטן_כל_לבן_למידה_1 Macro
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Font.Color = -603914241
    With Selection.Find
        .Text = ""
        .Replacement.Text = "^&"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Font.Size = 1
' המשך Macro
'
'
    Selection.Font.Shrink
    Selection.Font.Shrink
    Selection.Font.Shrink
    Selection.Font.Shrink
    Selection.Font.Shrink
    Selection.Font.Shrink
    Selection.Font.Shrink
    Selection.Font.Shrink
    Selection.Font.Shrink
    Selection.Font.Shrink
    Selection.Font.Shrink
    Selection.Font.Shrink
    Selection.Font.Shrink
    Selection.Font.Shrink
    Selection.Font.Shrink
    Selection.Font.Shrink
    Selection.Font.Shrink
    Selection.Font.Shrink
    Selection.Font.Shrink
    Selection.Font.Shrink
    Selection.Font.Shrink
    Selection.Font.Shrink
    Selection.Font.Shrink
    Selection.Font.Shrink
    Selection.Font.Shrink
    Selection.Font.Shrink
    Selection.Font.Shrink
    Selection.Font.Shrink
    Selection.Font.Shrink
    Selection.Font.Shrink
    Selection.Font.Shrink
    Selection.Font.Shrink
    Selection.Font.Shrink
    Selection.Font.Shrink
    Selection.Font.Shrink
    Selection.Font.Shrink
    Selection.Font.Shrink
    Selection.Font.Shrink
    Selection.Font.Shrink
    Selection.Font.Shrink
    Selection.Font.Shrink
'
' תיקוני_קודים_כפולים Macro
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    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
    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
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Execute Replace:=wdReplaceAll
'
' הסתר_כל_לבן_בהסתרה_רשמית Macro
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Font.Color = -603914241
    Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.Font.Hidden = True
    With Selection.Find
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .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
End Sub
Sub רצף_הערות_חלק_ד()
'
' רצף_הערות_חלק_ד Macro
'
'
    Application.Run MacroName:="עדכון_מקטעים_לפי_סולמיות_כולל_הערות_המפרידות"
End Sub