макрос для замены кавычек

[caute]

Требуется заменить угловые кавычки «» на фигурные “”.
Трудность в том, что в поле "Заменить на" Word 2003 игнорирует разницу между фигурными и угловыми кавычками. Приходится копировать фигурную в буфер обмена и использовать ^c.
А нельзя ли написать макрос замены кавычек?

[Sasha_Smirnov]

Можно.

Там ещё не забудьте отключить «Заменять при вводе» в Автоформате.

А то вообще (когда я такое себе делал) ничего не понятно, что происходит.

Вот ближайшее что нашёл (поиск в цикле с помощью Find): http://programmersforum.ru/showthread.php?t=146988

(Темы внизу страницы смотрел — вообще мимо!)

[caute]

Может еще кто-то поможет чем-то, кроме советов из серии "Учи VBA"?
Если в лом писать целый макрос, укажите просто, как вписать фигурные кавычки в строку
.Replacement.Text = ""

(в юникоде “” числятся как 201C и 201D)

[Вождь]

Вставьте нужные кавычки в документ (можно через Вставка > Символ), затем скопируйте их в диалог поиска и замены через буфер (Ctrl+C и Ctrl+V).

[Aent]

как вписать фигурные кавычки в строку .Replacement.Text =

Попробуйте указать ChrW(&H201C) и ChrW(&H201D).

[caute]

скопируйте их в диалог поиска и замены через буфер

повторюсь: поле "Заменить на" Word 2003 в упор не видит разницу между фигурными и угловыми кавычками, спасает только ^c.
Так и маюсь годами. А тут несколько таких доков подвернулось - решил поспрошать знатоков.

Попробуйте указать ChrW(&H201C) и ChrW(&H201D).

Word 2003 не понимает такого, вставляет как обычный текст
Возможно, желаемый макрос замены кавычек просто невозможен...

[Вождь]

Сообщение от caute

...поле "Заменить на" Word 2003 в упор не видит разницу...

Видит, видит. Как уже советовали, надо пред заменой оключить автозамену: Сервис > Параметры автозамены > Автоформат при вводе > прямые кавычки парными.

[caute]

Действительно, сработало - надо же.
Жаль, нельзя включить в макрос команду вкл-откл параметров автозамены

[Вождь]

Сообщение от caute

...включить в макрос команду вкл-откл параметров автозамены...

Options.AutoFormatAsYouTypeReplaceQ uotes = False
Учите VBA

[caute]

ну а шо ж Вы сразу не сказали! (я в глубине души надеялся)
VBA мне нужен раз в пятилетку, а то б я погрыз его

Может, кому еще пригодится.

Sub Угловые_кавычки_заменить_на_фигурные()
    Options.AutoFormatAsYouTypeReplaceQuotes = False
    With Selection.Find
        .Text = "«"
        .Replacement.Text = "“"
    Selection.Find.Execute Replace:=wdReplaceAll
        .Text = "»"
        .Replacement.Text = "”"
    Selection.Find.Execute Replace:=wdReplaceAll
    End With
    Options.AutoFormatAsYouTypeReplaceQuotes = True
End Sub