Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Необходимо осуществить поиск дат определенного формата (например дд.мм.гггг или дд.месяц(текстом) гггг.) со 2-й по 4-ю страницу документа.Пожалуйста, подскажите ,как это можно осуществить(не особо сильна в макроса.Пока только осуществила поиск во всем документе
Ищем даты вида "1 апреля 2014":
Public Sub Replace_On_The_Pages()
Const P1 As Long = 2 ' первая страница поиска
Const P2 As Long = 4 ' последняя страница поиска
Const T As String = "<[0-9]{1;2}>[ ^s]@[А-ЯЁа-яё]@[ ^s]@[0-9]{4}>" ' маска поиска
Dim D As Document, R As Range, N As Long, P As Long
' документ
Set D = ActiveDocument
' разбиваем документ на страницы
D.Repaginate
' область начала поиска
Set R = D.GoTo(wdGoToPage, wdGoToAbsolute, P1)
' параметры поиска
With R.Find
.ClearFormatting
.Replacement.ClearFormatting
.Forward = True
.Wrap = wdFindStop
.MatchWildcards = True
.Text = T
' параметры замены
'.Replacement.Text = ""
End With
' цикл поиска
N = 0 ' счетчик
Do
' ищем
R.Find.Execute
If R.Find.Found <> True Then Exit Do ' не нашли
P = R.Information(wdActiveEndPageNumber) ' страница находки
If P > P2 Then Exit Do ' выход за диапазон страниц
' нашли
N = N + 1
' делаем что-то
'...
' пример замены
'R.Collapse Direction:=wdCollapseStart
'R.Find.Execute Replace:=wdReplaceOne
'...
' сообщаем пользователю
R.Select
If MsgBox("Находка " & N & " / Страница " & P, vbOKCancel) <> vbOK Then Exit Do
'...
' ищем далее
R.Collapse Direction:=wdCollapseEnd
Loop
MsgBox "Всего найдено " & N
End SubСпасибо огромное)вы мне очень очень помогли)
Хотела еще уточнить, а можно в маске поиска ,задать поиск одновременно формат месяца текстовой и цифрами??(пример 01.04.2013 и 01 апреля 2014)
То есть, чтоб макрос учитывал подсчет и текстового формата и цифр. Я с подстановочными знаками не очень сильна, но хочу сказать, что это очень нужная штука)
...поиск одновременно формат месяца текстовой и цифрами...
Попробуйте такой шаблон:
Const T As String = "<[0-9]{1;2}>[. ^s]@[А-ЯЁа-яё0-9]@[. ^s]@[0-9]{4}>" ' маска поискаЗдесь можно прочитать о подстановочных знаках при поиске и замене в Word
внешняя ссылка
Начинать со стр. 94 по колонтитулу.
Спасибо за помощь)и материалы 
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Поиск в нужном диапазоне страниц worda
Если сказать, что нет человека, хоть немного знакомого с компьютером, который бы не слышал о редакторе для набора текстов Microsoft Word, то это будет никакое не преувеличение. На портале о Microsoft Office Word вы узнаете про: ключи для офисса 2007. Однако больше половины пользователей, активно работающих в программе, используют ее по минимуму.
Создать документ, оформить, сохранить, распечатать – это простейшие операции, но при больших объемах можно значительно сократить время и повысить производительность, если их автоматизировать. На портале о Microsoft Office Word вы узнаете про: изменить формат с ворлд в пдф. Еще в большей степени это касается редактирования чужих, порой, неудобоваримых текстов.
На форуме сайта Ворд Эксперт, собрана коллекция лучших шаблонов, макросов и настроек приложения для различных задач, связанных с рецензированием, редактированием, набором и оформлением текста. На портале о Microsoft Office Word вы узнаете про: word 2010 sellectioncells получить значение ячейки.
Здесь вы найдете как принципы автоматизации для различных операций, так и готовые решения. Познакомитесь с отличиями и тонкостями в работе различных версиях Ворда, сможете выбрать литературу, необходимую для совершенствования ваших знаний и навыков, или оставить запрос на решение той либо иной проблемы. Наш сайт о Microsoft Office Word даст ответ про: как открыть ворд с поддержкой макросов.
Кроме того, вы сможете поделиться с участниками своими собственными наработками и настройками. Сравнить эффективность различных способов решения задач по редактированию текстов. На портале о Microsoft Office Word вы узнаете про: как поменять ориентацию одной страницы в word 2010.