Вправа 7.5 (11 кл.)

Використовуючи додаток MS Word створити макрос для заповнення бланків заяв про надання відпустки.

Sub Макрос2()
    'Створюємо новий документ
    Documents.Add Template:="Normal", NewTemplate:=False, DocumentType:=0
    'Запитуємо кількість заяв
    n = Val(InputBox("Уведіть кількість заяв", "0"))
    For i = 1 To n
        'Збільшуємо відступ першого рядка
        With Selection.ParagraphFormat
            .SpaceBeforeAuto = False
            .SpaceAfterAuto = False
            .FirstLineIndent = CentimetersToPoints(10)
        End With
        'Уводимо текст
        Selection.TypeText Text:="Директору ЗАТ ""Титан +"""
        'НатискаємоEnter
        Selection.TypeParagraph
        Selection.TypeText Text:="Вороненко А.Ю."
        Selection.TypeParagraph
        s = InputBox("Посада в родовому відмінку", "")
        Selection.TypeText Text:=s
        Selection.TypeParagraph
        s = InputBox("Прізвище, ім'я та по батькові в родовому відмінку", "")
        Selection.TypeText Text:=s
        Selection.TypeParagraph
    
        With Selection.ParagraphFormat
           .SpaceBeforeAuto = False
           .SpaceAfterAuto = False
           .FirstLineIndent = CentimetersToPoints(1.25)
        End With
        'Вирівнювання по центру
        Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
        Selection.TypeText Text:="Заява"
        Selection.TypeParagraph
        'Вирівнювання по ширині
        Selection.ParagraphFormat.Alignment = wdAlignParagraphJustify
        Selection.TypeText Text:="Прошу надати мені щорічну основну відпустку тривалістю 24 календарних дні з "
        s = InputBox("З якої дати", "")
        Selection.TypeText Text:=s
        Selection.TypeParagraph
        Selection.TypeParagraph
        s = InputBox("Поточна дата", "")
        Selection.TypeText Text:=s
        'Робимо відсуп табулятором на 10,5 см
        Selection.ParagraphFormat.TabStops.Add Position:=CentimetersToPoints(10.5) _
             , Alignment:=wdAlignTabLeft, Leader:=wdTabLeaderSpaces
        Selection.TypeText Text:=vbTab
        s = InputBox("Прізвище те ініціали в називному відмінку", "")
        Selection.TypeText Text:=s
        Selection.TypeParagraph
        'Створюємо нову сторінку (додаємо розрив сторінки)
        Selection.InsertBreak Type:=wdPageBreak
    Next
    'Виділяємо все
    Selection.WholeStory
    'Встановлюємо шрифт 14,Times New Roman
    Selection.Font.Size = 14
    Selection.Font.Name  = "Times New Roman"
    'Переходимо в кінець документу
    Selection.EndKey Unit:=wdStory
End Sub

Використовуючи створений макрос створіть три заяви.