Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Word: поиск в документе с заменой... / 2 сообщений из 2, страница 1 из 1
11.02.2010, 14:33
    #36463320
CacheLot
CacheLot
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Word: поиск в документе с заменой...
Нужно найти в достаточно объёмном документе все цифры, заключённые в кватдратные скобки, например [245]. Вытощить от туда цифры (к примеру245), обработать эти цифры, и заменить на новые цифры (к примеру на 25)... В итоге получить замену в тексте на [25].
Напсал процедуру:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Set myRange = ActiveDocument.Content
With myRange.Find
    '.ClearFormatting
    '.Replacement.ClearFormatting
    .MatchWildcards = True
    .Text = "\[*\]"
    .Replacement.Text = "[" & my(.Text) & "]" 
    .Execute Replace:=wdReplaceAll
    
End With

Private Function my(b) As String
my = b & "Q"
End Function

Не получается в функцию обработки my передать найденные цифры.. подсакажите как это сделать? my(.Text) - передаёт строку "\[*\]", а нужно передавать конкретное значение найденное в тексте!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.02.2010, 10:03
    #36464929
CacheLot
CacheLot
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Word: поиск в документе с заменой...
CacheLot,

Посмотрел на задачу под другим углом, родилось альтернативное решение:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Sub y(yArr, N1)

Set myRange = Selection
For N =  1  To N1
With myRange.Find
    '.ClearFormatting
    '.Replacement.ClearFormatting
    .MatchWildcards = True
    .Text = "\[" & yArr(N) & "\]"
    .Replacement.Text = "[" & N & "]" 
    .Execute Replace:=wdReplaceAll
End With
Next N

Т.е. заранее формируется массив, решение на универсальноость не претендует, но мне подходит:)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Word: поиск в документе с заменой... / 2 сообщений из 2, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]