Замена кавычек " на «»

Прошу прощения, если вдруг в N-й раз задал этот вопрос. Но пролистал форум, ответа не нашел.
Задача следующая. В файле Corel Draw нужно заменить все прямые кавычки " (034) на типографские «» (171 и 187).
Нашел тут на форуме макрос, всё в нем мне понятно:

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,...

Замена кавычек " на «»