Замена символов на другие или комбинацию клавиш на VBA

[ArchiCurtis]

Добрый день друзья! Нужно на VBA написать макрос для Ворда, чтобы можно было менять пробелы или символы на другие символы или вместо символа вставлял некую комбинацию клавиш, как будто пользователь сам нажимал бы. При нажатии клавиш, с зажатием Alt появляются не стандартные символы, которые мне нужны. Так же нужно, заменяющие символы были невидимые. Вот написал чучуть, дальше не знаю как:

Sub Marker()
With ActiveDocument.Range.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    .Execute " ", ReplaceWith:=" ", Replace:=wdReplaceAll
End With
End Sub

[challengerr]

Замену в набранном тексте можно осуществлять с использованием регулярных выражений. В VBScript есть объект regexp
Пример использования regexp в VBA - http://www.macrostash.com/2011/10/08...for-excel-vba/

Замену "на лету" можно осуществлять функцией SendMessage.

Нестандартные символы - метод KeyString класса Aplication
https://msdn.microsoft.com/en-us/lib...keystring.aspx

[ArchiCurtis]

А как сделать вывод символов невидимыми?

[Sasha_Smirnov]

Тут гляньте: http://www.cyberforum.ru/ms-word/thread569508.html#4

И уточните назначение макроса: что на входе, что на выходе (какой текст)?

А вот пример работы со скрытым текстом: http://www.cyberforum.ru/vba/thread1215022.html#3

Готовый проект с поиском в документе Word, а заодно и пример поиска через регулярку (библиотека RegExp): http://www.cyberforum.ru/vba/thread1211758.html

Сообщение от ArchiCurtis

При нажатии клавиш, с зажатием Alt появляются не стандартные символы, которые мне нужны.

Вообще-то это ввод стандартных символов по их коду. Вы шифруете текст, что ли?

[ArchiCurtis]

Сообщение от Sasha_Smirnov

Вообще-то это ввод стандартных символов по их коду. Вы шифруете текст, что ли?

Спасибо. Хочу написать макрос для обхода Антиплагиат. Например, вместо пробелов вставлялись не видимые не стандартные символы. Chr(2) вставляет не стандартные символы, теперь надо их скрыть.

Sub Marker()
With ActiveDocument.Range.Find
.ClearFormatting
.Replacement.ClearFormatting
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
.Execute " ", ReplaceWith:=Chr(2), Replace:=wdReplaceAll
End With
End Sub

[ArchiCurtis]

В общем решил этот вопрос, всем спасибо за помощь.
Вот код, может кому пригодится:

Sub Marker()
With ActiveDocument.Range.Find
.ClearFormatting
.Replacement.ClearFormatting
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
.Replacement.Font.TextColor.RGB = RGB(255, 255, 255)
.Replacement.Font.Size = 3
.Execute " ", ReplaceWith:=Chr(2), Replace:=wdReplaceAll
End With
End Sub

[ArchiCurtis]

То есть он красит символ в белый цвет, его и не видно, то что мне и нужно.

[Sasha_Smirnov]

Возможно, пригодится и это: http://www.programmersforum.ru/showt...php?t=261362#3

Ещё пляски с бубном: Макрос в ворде-что вставлено в слова!