כפתורי גישה מהירה

Sub MyStile()

    ActiveDocument.ApplyQuickStyleSet ("מהודר")

End Sub

Sub MyListStyle()

    For x = 1 To Selection.Paragraphs.Count - 1

        Selection.Paragraphs(x).CloseUp

        Selection.Paragraphs(x).SpaceBefore = 0

        Selection.Paragraphs(x).SpaceAfter = 0

    Next

End Sub

Sub FormatCodeParagraph()

  ' נבדוק מה הרווח אחרי השורה האחרונה כדי להחזיר אותו בסיום המקטע שלנו

    Dim MySpaceAfter As Integer

    MySpaceAfter = 0

    MySpaceAfter = Selection.Paragraphs(Selection.Paragraphs.Count).SpaceAfter

    With Selection

        ' נוסיף מסגרת של גבול לקוד כדי לקבל את הקוד בתוך טבלה

        .Borders.Enable = True

        ' נעצב את כל הטקסט שנבחר

        With .ParagraphFormat

            'left-aligned

            .Alignment = wdAlignParagraphLeft

            'space betwen line is 1

            .Space1

            .WordWrap = False

            'Removes any spacing before the specified paragraphs.

            'equivalent to use:

            '.CloseUp

            SpaceBefore = 0

            .SpaceBeforeAuto = False

            .SpaceAfter = 0

            .SpaceAfterAuto = False

        End With

    End With

    ' נצבע את השורות של הקוד לסירוגין

    For x = 1 To Selection.Paragraphs.Count

        If x Mod 2 = 1 Then

            Selection.Paragraphs(x).Shading.BackgroundPatternColor = RGB(236, 237, 255)

        Else

            Selection.Paragraphs(x).Shading.BackgroundPatternColor = RGB(205, 207, 255)

        End If

        ' נחזיר את הרווח אחרי השורה האחרונה

        If x = Selection.Paragraphs.Count Then Selection.Paragraphs(x).SpaceAfter = MySpaceAfter

    Next

End Sub