IMHO.WS - Показать сообщение отдельно - VBA: как работать со всем текстом в Word'e?

LightImage · 17.10.2005, 13:57

Код:

Dim myRange As Range, aWord As Range
Set myRange = ActiveDocument.Content
For Each aWord In myRange.Words
 If aWord.Text = "Franklin " Then aWord.Delete
Next

17.10.2005, 13:57	# 2
LightImage Junior Member Регистрация: 16.10.2002 Адрес: Россия-матушка Пол: Male Сообщения: 96	Код: Dim myRange As Range, aWord As Range Set myRange = ActiveDocument.Content For Each aWord In myRange.Words If aWord.Text = "Franklin " Then aWord.Delete Next __________________ 1 миллибайт = 1/1024 байта