Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Здравствуйте! Есть огромный фрагмент переписки, в котором смайлики-emoji написаны через пробел. Нужно каким-то образом пробелы эти убрать. Подскажите, пожалуйста, макрос или регулярное выражение, чтобы это сделать. (Как известно, Word 2016 и в целом Windows 10 «нативно» поддерживают emoji.)
Для примера:
Текст сообщения
Для примера:
Пример:
Текст сообщения в ворде нужен, а не тут.
В этом файле исходный текст и пример того, как должно всё выглядеть в итоге.
Всегда с подозрением отношусь к .docm форматам, как и многие другие.
Пробуйте этот код
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Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться