Дано предложение. Переписать предложение без определённого слова из этого предложения.

@saikle · Регистрация: 16.12.2009

Слово вводится с клавиатуры .

@gaw · 28.01.2011, 13:00

Visual Basic

1
2
3

Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text2.Text = Join(Filter(Split(Text1.Text, " "), Text1.SelText, False, vbTextCompare), " ")
End Sub

@saikle · 28.01.2011, 16:35 **[ТС]**

Забыл написать, что предложение содержится в *.doc файле.
Примечание
Элементы управления не использовать.
Массив слов документа можно получить при помощи конструкции ThisDocument.Words, значение каждого слова – при помощи свойства Text.

@gaw · 28.01.2011, 18:06

вы еще что то забыли

@saikle · 28.01.2011, 18:08 **[ТС]**

спасибо конечно =)
при помощи макроса должна запускаться программа

@gaw · 28.01.2011, 18:13

я не это имел ввиду

@saikle · 28.01.2011, 18:17 **[ТС]**

На подобии этой темы Циклы: For…Next, For Each…Next, Do While…Loop, Do Until…Loop

@saikle 12 / 12 / 0 Регистрация: 16.12.2009 Сообщений: 113
		1
	Дано предложение. Переписать предложение без определённого слова из этого предложения. 28.01.2011, 12:50. Показов 1481. Ответов 6 Метки нет (Все метки) Слово вводится с клавиатуры . 1

@saikle 12 / 12 / 0 Регистрация: 16.12.2009 Сообщений: 113
	28.01.2011, 16:35 [ТС]	3
	Забыл написать, что предложение содержится в *.doc файле. Примечание Элементы управления не использовать. Массив слов документа можно получить при помощи конструкции ThisDocument.Words, значение каждого слова – при помощи свойства Text. 0

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	28.01.2011, 18:06	4
	вы еще что то забыли 0

@saikle 12 / 12 / 0 Регистрация: 16.12.2009 Сообщений: 113
	28.01.2011, 18:08 [ТС]	5
	спасибо конечно =) при помощи макроса должна запускаться программа 1

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	28.01.2011, 18:13	6
	я не это имел ввиду 0

@saikle 12 / 12 / 0 Регистрация: 16.12.2009 Сообщений: 113
	28.01.2011, 18:17 [ТС]	7
	На подобии этой темы Циклы: For…Next, For Each…Next, Do While…Loop, Do Until…Loop 0

Опции темы