Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Сообщений [ 2 ]
- Slamzor
- сержант
- Неактивен
- Зарегистрирован: 13.12.2012
- Сообщений: 32
Тема: Выделение текста между двух слов
Добрый день.
Данный макрос выделяет область между текстом (и копирует в буфер), но останавливает поиск при первом совпадении. Как я понимаю для выделения во всем документе Нужно добавить Do ... Loop и выход из цикла поиска. Своими силами не получилось.
Sub SelectBetweenText()
Dim MyRange As Range, rStart&, rEnd&
Set MyRange = ActiveDocument.Content
With MyRange
With .Find
.ClearFormatting
.Text = "Слово1"
.Forward = True
.Wrap = wdFindStop
.Format = False
.MatchCase = False
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
.Execute
If .Found Then rStart = MyRange.End: rEnd = rStart
End With
End With
Set MyRange = ActiveDocument.Content
With MyRange
With .Find
.Text = "Слово2"
.Execute
If .Found Then rEnd = MyRange.Start
End With
End With
If rEnd > rStart Then
ActiveDocument.Range(rStart, rEnd).Select
Selection.Copy
End If
End Sub
- Slamzor
- сержант
- Неактивен
- Зарегистрирован: 13.12.2012
- Сообщений: 32
Re: Выделение текста между двух слов
Sub BTWtext()
Dim r
Set r = ActiveDocument.Range
With r.Find
.ClearFormatting
.Text = "Слово1*Слово2"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
If .Execute Then
ActiveDocument.Range(r.Start + 6, r.End - 6).Select
Do While Selection.Find.Execute
Selection.MoveStart wdCharacter, 6
Selection.MoveEnd wdCharacter, -6
r = r & Selection.Range.Text
Selection.Collapse wdCollapseEnd
Loop
Else
MsgBox "Текст не найден!", vbExclamation
End If
End With
End Sub
Попробовал таким макаром, но выделяет только одно совпадение. Помогите с ошибкой...
Сообщений [ 2 ]
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Выделение текста между двух слов
Если ваша трудовая деятельность или учеба предполагает работу с большим количеством различных текстов, то основной ваш рабочий инструмент наверняка редактор текста Microsoft Word. Наш сайт о Microsoft Office Word даст ответ про: в ворде нумерация страниц для диплома.
Эта мощная программа, которая способна значительно автоматизировать набор текста, ускорить редактирования, выбрать самый удобный из множества предложенных вариантов оформления вашей работы. На портале о Microsoft Office Word вы узнаете про: ошибка при открытии файла word в 2003.
У каждого человека, использующего Ворд, со временем накапливается запас различных хитрых приемов и способов облегчить свой труд. Наш сайт о Microsoft Office Word даст ответ про: многоуровневый список скачать.
Поделиться своими «тайными знаниями» и узнать секреты других пользователей вы можете на форуме сайта Ворд Эксперт, в котором обсуждается все, связанное с этой программой. На портале о Microsoft Office Word вы узнаете про: как ускорить работу office 2010.
Ворд Эксперт – это три основных направления. Первое - ответы на стандартные вопросы, которые возникают у многих пользователей (например, о написании макросов в автоматическом режиме), Второе - обсуждения настроек различных версий программы, проблем и нюансов редактирования и форматирования текстов, а также вопросов автоматизации работы. Наш сайт о Microsoft Office Word даст ответ про: работа с вордом 2010.
И, наконец, предложение готовых путей и вариантов решения той либо иной проблемы.
Кроме того, вы можете заказать шаблон, макрос или любую другую работу, связанную с Вордом в подразделе «Заявки на разработку». Наш сайт о Microsoft Office Word даст ответ про: как настроить расстояние между слов в ворде.