Код VBA для макроса в документе Word:

Sub глагол()
'
' глагол Макрос
'
'
End Sub
Sub именник()
'
' именник Макрос
'
'
End Sub
Sub в()
'
' в Макрос
' ваы
'
    Selection.MoveRight Unit:=wdCharacter, Count:=8, Extend:=wdExtend
End Sub
Sub Imennuk()
'
' Imennuk Макрос
' op
'
    Selection.MoveRight Unit:=wdCharacter, Count:=8, Extend:=wdExtend
    Selection.Font.UnderlineColor = wdColorAutomatic
    Selection.Font.Underline = wdUnderlineSingle
    Selection.Font.Color = wdColorAutomatic
End Sub
Sub дієслова()
'
' дієслова Макрос
' ====
'
    Selection.MoveRight Unit:=wdCharacter, Count:=10, Extend:=wdExtend
    Selection.Font.Color = 5296274
    Selection.Font.Underline = wdUnderlineDouble
End Sub
Sub Прикметник()
'
' Прикметник Макрос
' ----
'
    Selection.MoveRight Unit:=wdCharacter, Count:=17
    Selection.MoveLeft Unit:=wdCharacter, Count:=64
    Selection.TypeText Text:=" "
    Selection.MoveRight Unit:=wdCharacter, Count:=4
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.TypeText Text:=" "
    Selection.MoveLeft Unit:=wdCharacter, Count:=4
    Selection.TypeBackspace
    Selection.TypeText Text:=" "
    Selection.TypeParagraph
    Selection.TypeBackspace
    Selection.MoveRight Unit:=wdCharacter, Count:=12, Extend:=wdExtend
    Selection.Font.Underline = wdUnderlineWavy
    Selection.Font.Color = -704577690
    Selection.Font.Color = -553582695
End Sub
Sub Титулка()
'
' Титулка Макрос
'
'
    Application.Keyboard (1033)
    Application.Keyboard (1049)
    Application.Keyboard (1058)
    Application.Keyboard (1033)
    Selection.TypeText Text:=":"
End Sub
Sub Титулка2()
'
' Титулка2 Макрос
'
'
    Selection.PasteAndFormat (wdPasteDefault)
End Sub
Sub Титулка3()
'
' Титулка3 Макрос
'
'
    Selection.PasteAndFormat (wdPasteDefault)
End Sub

Лабораторная Работа по Excel: /laboratorna_9.xlsm