Sub Лаб1_Зад1()
'
' Макрос1 Макрос
' Макрос записан 27.03.2017 dero
'
    Selection.TypeText Text:="ТОВ «Ремпобуттехніка»"
End Sub
Sub Лаб1_Сам1()
'
' Лаб1_Сам1 Макрос
' Макрос записан 27.03.2017 dero
'

If Selection.LanguageID = wdUkrainian Then
  Selection.LanguageID = wdRussian
Else
    If Selection.LanguageID = wdRussian Then
        Selection.LanguageID = wdEnglishUS
    Else
        If Selection.LanguageID = wdEnglishUS Then
            Selection.LanguageID = wdUkrainian
        End If
    End If
End If
    Selection.NoProofing = False
    Application.CheckLanguage = True
End Sub
Sub Лаб1_Сам2()
'
' Лаб1_Сам2 Макрос
' Макрос записан 27.03.2017 dero
'
    Selection.InlineShapes.AddPicture FileName:= _
        "C:\Users\dero\Desktop\Снимок.PNG", LinkToFile:=False, SaveWithDocument:= _
        True
End Sub
Sub Лаб1_Зад2()
'
' Лаб1_Зад2 Макрос
' Макрос записан 27.03.2017 dero
'
    With Selection.Paragraphs(1).DropCap
        .Position = wdDropNormal
        .FontName = "Arial"
        .LinesToDrop = 2
        .DistanceFromText = CentimetersToPoints(0.2)
    End With
End Sub