powered by simpleCommunicator - 2.0.19     © 2024 Programmizd 02
Map
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Найти заданный текст (код символа) - устаносить курсор после него - заменить код символом
1 сообщений из 1, страница 1 из 1
Найти заданный текст (код символа) - устаносить курсор после него - заменить код символом
    #40060875
notOne
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Уважаемые камрады, ситуация следующая: имеется древний документ, в котором когда-то были проставлены ударения по методу "установить курсор после ударяемой буквы, набрать 0301 (код символа ударения) и нажать "ALT+X", чтобы заменить код ударения самим ударением. Судя по всему, проставлялись все ударения вручную.

Ранее этот документ открывался вполне нормально - все ударения отображались. Сейчас же при открытии вместо ударений отображается какой-то нераспознанный символ (простой квадратик).

Возможное решение: для начала средствами самого Ворда заменил все эти квадратики на 0301 (код символа ударения). Теперь думаю в VBA сделать следующее: глобально искать 0301, как только очередной 0301 найден - ставить курсор после него и тут же автоматически "нажимать" "ALT+X", затем переходить к следующему 0301 и всё по новой. Это, как я надеюсь, вернёт прежние ударения. Код ниже:

Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Sub Macro11()


With ActiveDocument.Content.Find
        .Text = "0301"
        
        .Parent.Select
                
        Selection.ToggleCharacterCode
        
    End With

End Sub




Для эмуляции нажатия "ALT+X" применяется Selection.ToggleCharacterCode. Однако код не работает так, как задумано - судя по всему, не устанавливается курсор после каждого 0301. В чём ошибка?


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


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