1

Тема: Удаление пробела перед смайликом

Здравствуйте! Есть огромный фрагмент переписки, в котором смайлики-emoji написаны через пробел. Нужно каким-то образом пробелы эти убрать. Подскажите, пожалуйста, макрос или регулярное выражение, чтобы это сделать. (Как известно, Word 2016 и в целом Windows 10 «нативно» поддерживают emoji.)

2

Re: Удаление пробела перед смайликом

Для примера:
Текст сообщения

3

Re: Удаление пробела перед смайликом

Для примера:

4

Re: Удаление пробела перед смайликом

Пример:
Удаление пробела перед смайликом

5

Re: Удаление пробела перед смайликом

Текст сообщения в ворде нужен, а не тут.

Спасибо можно перевести на WebMoney-кошелёк R378231864568 или на Яндекс-деньги 410015093172871

6

Re: Удаление пробела перед смайликом

В этом файле исходный текст и пример того, как должно всё выглядеть в итоге.

Post's attachments

[Переписка].docm 110.22 Кб, 1 скачиваний с 2018-06-12 

You don't have the permssions to download the attachments of this post.

7

Re: Удаление пробела перед смайликом

Всегда с подозрением отношусь к .docm форматам, как и многие другие.

Спасибо можно перевести на WebMoney-кошелёк R378231864568 или на Яндекс-деньги 410015093172871

8

Re: Удаление пробела перед смайликом

Пробуйте этот код

Sub NonSpacedSmile()
Dim oDoc As Document
Set oDoc = ActiveDocument
For i = oDoc.Range.Characters.Count To 1 Step -1
    If Not i = oDoc.Characters.Count Then
        oDoc.Range.Characters(i).Select
        sNext = oDoc.Range.Characters(i + 1)
        iChrNumb = AscW(sNext)
        If iChrNumb < -10000 Then
            If oDoc.Range.Characters(i) = Chr(32) Or oDoc.Range.Characters(i) = Chr(160) Then oDoc.Range.Characters(i).Delete
        End If
    End If
Next i
End Sub
Спасибо можно перевести на WebMoney-кошелёк R378231864568 или на Яндекс-деньги 410015093172871