Помогите поправить скрипт

[jovannyfx]

Добрый день
Люди помогите пожалуйста подправить скрипт:

Sub TextReplace()
With ActiveDocument.Range.Find
.Text = "([A-Za-zА-Яа-яЁё])([A-Za-zА-Яа-яЁё])": .MatchWildcards = True
.Replacement.Text = "\1#$&@\2"
.Execute Replace:=wdReplaceAll
.Text = "#$&@": .MatchWildcards = False
.Replacement.Text = " ": .Replacement.Font.Size = 1
.Execute Replace:=wdReplaceAll
End With
End Sub

Какой поиск нужно задать чтобы заменялся только пробел после каждого слова, а не после каждой второй буквы.

Пожалуйста

[jovannyfx]

Так, с этим уже разобрался. Только вот расстояние между словами больно маленькое теперь получилось((

[jovannyfx]

Подскажите каким образом сделали замену как в прикрепленном файле ?

[shanemac51]

здесь применен китайский пробел --код 4447

[jovannyfx]

То есть мой скрипт будет иметь теперь такой вид, я правильно исправил ?

Sub TextReplace()
With ActiveDocument.Range.Find
.Text = "([A-Za-zА-Яа-яЁё])^0032([A-Za-zА-Яа-яЁё])": .MatchWildcards = True
.Replacement.Text = "\1#$&@\2"
.Execute Replace:=wdReplaceAll
.Text = "#$&@": .MatchWildcards = False
.Replacement.Text = "^4447": .Replacement.Font.Size = 1
.Execute Replace:=wdReplaceAll
End With
End Sub

Нет, получилось не так, форматирование текста улетает. Похоже, что здесь используется другой символ.
Я не могу сообразить запрос поиска, чтобы он в конце каждого слова добавлял этот символ и пробел тем самым изменяется слово, но визуально этого не видно.
как то так, буду думать дальше.

[shanemac51]

Replacement.Text = chrw(4447)

[shanemac51]

Sub TextReplace18()
With ActiveDocument.Range.Find

.Text = ChrW(4447)
.MatchWildcards = True
.Replacement.Text = ""
.Execute Replace:=wdReplaceAll

.Text = "([A-Za-zА-Яа-яЁё])([\ \.\,\;])"
.MatchWildcards = True
.Replacement.Text = "\1#$&@\2"
.Execute Replace:=wdReplaceAll
'
.Text = "#$&@"
.MatchWildcards = False
.Replacement.Text = ChrW(4447)
.Replacement.Font.Size = 1
.Execute Replace:=wdReplaceAll

End With
End Sub

[jovannyfx]

Подскажите можно ли с помощью макроса заменить пробелы между русскими словами этим текстом

</w:t></w:r><w:r wsp:rsidRPr="009B0025"><w:rPr><w:rFonts w:ascii="Gungsuh" w:h-ansi="Gungsuh" w:cs="Gungsuh"/><wx:font wx:val="Gungsuh"/><w:noProof/><w:vanish/><w:color w:val="FFFFFF"/><w:spacing w:val="-20"/><w:w w:val="1"/><w:sz w:val="2"/><w:sz-cs w:val="28"/><w:lang w:val="RU"/></w:rPr><w:t>ᅟ</w:t></w:r><w:r><w:rPr><w:rFonts w:ascii="Times New Roman" w:h-ansi="Times New Roman"/><wx:font wx:val="Times New Roman"/><w:noProof/><w:sz w:val="28"/><w:sz-cs w:val="28"/><w:lang w:val="RU"/></w:rPr><w:t> </w:t></w:r><w:r wsp:rsidRPr="009B0025"><w:rPr><w:rFonts w:ascii="Times New Roman" w:h-ansi="Times New Roman"/><wx:font wx:val="Times New Roman"/><w:noProof/><w:sz w:val="28"/><w:sz-cs w:val="28"/><w:lang w:val="RU"/></w:rPr><w:t>

[Ципихович Эндрю]

то есть нашли пробел глянули, если слева знак из перечня а-я, тогда смотрим справа, если тоже нак из перечня а-я, то меняем, так? так вроде же не сложно

[jovannyfx]

Да я тоже так с начала подумал. Пробовал запрос в ворде

[A-Za-zА-Яа-яЁё])^0032([A-Za-zА-Яа-яЁё]

Ищет пробелы, но такой текст к замене не принимает, из-за синтаксиса выдает ошибку. Пробовал вручную через диалог поиск\замена, так там весь текст в строку не влазит(

Пробовал в Akelpad с регулярными выражениями типа [A-я]\s[А-я], так он выделяет пробел и по одной букве слева и справа от слова.