Форум программистов CodeGuru
17 Июль 2018, 21:26:17 *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.

Войти
Новости:
 
   Начало   Помощь Войти Регистрация  
Страниц: [1]   Вниз
  Печать  
Автор Тема: КТО ЗНАЕТ!  (Прочитано 16491 раз)
0 Пользователей и 1 Гость смотрят эту тему.
Marlen
Новичок
*
Офлайн Офлайн

Сообщений: 1


Просмотр профиля
« : 06 Август 2010, 19:43:58 »

Функция With Selection.Find .Text =” ” .Replacement.Text = " " .Forward = True .Wrap = wdFindContinue - ищит и заменят дольше времени

Создан поиск и замена букв по клавиш ASCII (vbcode) -
Код:
Sub Replace ()
Dim NUMBER, I
    For I = 1 To 15000
     Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    NUMBER = AscW(Selection.Text)
    If Len(Selection.Text) > 1 Then
    Exit For
    End If
    Select Case NUMBER
Case 1040
     Selection.TypeText Text:="A"
Case 1041
     Selection.TypeText Text:="B"
' и так далее
    End Select
    Next
  Selection.MoveDown Unit:=wdLine, Count:=1
  Selection.HomeKey Unit:=wdLine
End Sub


но есть следующая проблема например нужно заменит несколько букв “аbv” на “абв” или “g`” на “г”
Например
Case 1040+1041
Selection.TypeText Text:="AБ" - но это ошибочно
Ну как быт знатоки!
Записан
Страниц: [1]   Вверх
  Печать  
 
Перейти в:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2015, Simple Machines Valid XHTML 1.0! Valid CSS!