Public Sub WorkEmail()

	With Application.EmailOptions.EmailSignature
		
		If Selection.LanguageID = wdRussian Then
			.NewMessageSignature = "Подпись"
			.ReplyMessageSignature = "Подпись"
		Else
			.NewMessageSignature = "sign1"
			.ReplyMessageSignature = "sign1"
		End If
		Debug.Print .NewMessageSignature
		
	End With

End Sub