Question

Уважаемые эксперты, помогите пожалуйста. Нужно составить макрос в Word, который сравнивает совпадают ли первое и последнее слова в строке. Строка вводится с клавиатуры. В результате должна появляться надпись - совпадают; не совпадают.

Answer 1

Sub example()

Dim a() As String

a = Split(InputBox("Введите строку"))

If a(0) = a(UBound(a)) Then

MsgBox "Совпадают"

Else

MsgBox "Не совпадают"

End If

End Sub