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

[Sanchos]

Очень простой макрос. Работает только с кавычками типа 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

Если кому надо что, говорите...

 

[Henyk]

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

Форму бы, с выбором типа кавычек...

 

[Sanchos]

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

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

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

 

[Henyk]

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

Ага, именно!
Заранее благодарен