Замена кавычек на типографские

  • Автор темы Автор темы Sanchos
  • Дата начала Дата начала
Статус
Закрыто для дальнейших ответов.

Sanchos

Sancho
Топикстартер
15 лет на форуме
Сообщения
806
Реакции
158
Очень простой макрос. Работает только с кавычками типа Chr(34) - (")
Код:
Sub textConvertKavichky()
    Dim s As Shape, r As New ShapeRange
    Set r = ActiveSelectionRange
    For Each s In r
        If s.Type = cdrTextShape Then
        s.Text.Replace Chr(32) & Chr(34), Chr(32) & Chr(171), True, ReplaceAll:=True
        s.Text.Replace vbCr & Chr(34), vbCr & Chr(171), True, ReplaceAll:=True
        s.Text.Replace Chr(34) & Chr(32), Chr(187) & Chr(32), True, ReplaceAll:=True
        s.Text.Replace Chr(34) & vbCr, Chr(187) & vbCr, True, ReplaceAll:=True
        End If
    Next s
End Sub

Если кому надо что, говорите...
 
Ответ: Замена кавычек на типографские

Форму бы, с выбором типа кавычек...
 
Ответ: Замена кавычек на типографские

типа что на что менять?

Кстати скоро планирую написать ТекстКорректор - макрос под корел для корректировки текста от всяких ошибок... Вот туда и включу эту возможность
 
Ответ: Замена кавычек на типографские

Ага, именно!
Заранее благодарен :)
 
Статус
Закрыто для дальнейших ответов.