Ципихович Эндрю,

для меня это программа))) как сделать чтоб я свои словечки вводила в форму(на форме поставлю textbox1),а не в ворде? и соответственно результат тоже вывести на форму в другой textbox2.
надеюсь написала понятно

Ципихович ЭндрюАмосенька, девочка это рюшечки
parArr = Split(Selection.Text, vbCr)
меняешь на
parArr = Split(Имя_формы.Текст_бокс1.Value, vbCr)
и
Selection.Text = Join(parArr, vbCr)
на
Имя_формы.Текст_бокс2.Value = Join(parArr, vbCr)
Если не ошибаюсь
кажется ошибка всё же есть

Ципихович Эндрю,

я не та которую можно склеить

Ципихович Эндрю,

у меня не получается. для текстбоксов отдельно нужно что то прописывать?

Ципихович Эндрю,

я исправила. работает!!!!! спасибо вам большое!!!!

Private Sub CommandButton1_Click()
'зеркальное отражение текста функция StrReverse$, изначально текст должен быть выделенным после чего
'перевёрнутый текст появляется на месте выделенного текста
Dim parArr() As String
Dim myArr() As String
Dim par As Integer
Dim i As Integer

'Ниже:разбиваем текст на параграфы
parArr = Split(TextBox1.Value, vbCr)

For par = 0 To UBound(parArr)
'Ниже:текст параграфа бьём на слова
myArr = Split(parArr(par), " ")

'Ниже:переворачиваем каждое слово
For i = 1 To UBound(myArr) Step 2
myArr(i) = StrReverse$(myArr(i))
Next i


'Ниже:собираем параграф назад
parArr(par) = Join(myArr, " ")
Next par

'Ниже:собираем весь текст
TextBox2.Value = Join(parArr, vbCr)

End Sub

Private Sub CommandButton2_Click()
Application.Quit
End Sub

Private Sub TextBox1_Change()
'parArr = Split(Word.Value, vbCr)
End Sub

Private Sub TextBox2_Change()
'Word.TextBox2.Value = Join(parArr, vbCr)
End Sub

убрала только одно слово

Всё-таки нашелся человек который мне помог. Спасибо Вам Эндрю Ципихович!!!

Ципихович Эндрю,

Да,согласна,разница есть)))

Ципихович Эндрю,

вторая кнопка это выход из приложения

Ципихович Эндрю,

так удобнее))) да и форма не совсем пустая

Ципихович Эндрю,

хм... вот этот скрипт,как вы называете, я написала для кнопки commandbutton, которую я назвала обработкой