Совет. Другие языки - Google-Translated. Вы можете посетить English версия этой ссылки.
Войти
x
or
x
x
Регистрация
x

or

Как изменить прямые кавычки на фигурные кавычки в слове?

Обычно Microsoft Word автоматически изменяет прямые кавычки к фигурным (умным ortypographer's) котировкам как вы печатаете. Но если функция отключена, как одиночные, так и двойные кавычки могут отображаться прямо в документе. Вот советы для вас изменить прямые кавычки на фигурные кавычки и наоборот в Word.

Чанг прямо цитирует цитаты с помощью Find и Replace

Измените прямые котировки на фигурные котировки с помощью VBA


arrow синий правый пузырь Измените прямые кавычки на фигурные кавычки с помощью Find и Replace

Популярные
Удивительно! Используйте эффективные вкладки в Word (Office), такие как Chrome, Firefox и New Internet Explorer!

Узнать больше Скачать бесплатно

Перед применением Найти и заменить, вы должны перейти к Параметры автокоррекции снимите флажок «Прямые цитаты» с «умными кавычками» установите флажок.

В Word 2003, Параметры автокоррекции находится под Инструмент бар. И в Word 2007, применяя Параметры автокоррекции кликнув > Опционы > теплоизолирующие > Параметры автокоррекции, Здесь мы используем Word 2010 / 2013:

Шаг 1. Нажмите > Опция > теплоизолирующие > Параметры автокоррекции > Автоформат по мере вводаИ выберите «Прямые цитаты» с «умными кавычками» установите флажок. Смотрите скриншот:

Шаг 2. Нажмите Главная > Заменять , который относится к Редактирование группы или нажмите Ctrl + H для отображения Найти и заменить диалога и введите "or '' in Найти то, что и введите " or ''in Заменить коробка. Смотрите скриншот:

Шаг 3. Нажмите Заменить все.

Примечание: если вы хотите заменить все фигурные кавычки прямыми кавычками, пожалуйста, очистите «Прямые цитаты» с «умными кавычками» ).


arrow синий правый пузырь Измените прямые котировки на фигурные котировки с помощью VBA

Чтобы заменить все прямые кавычки курчавыми цитатами в Word 2010 с помощью VBA, нажмите филе> Опция > теплоизолирующие и нажмите Автозамена Опционы И выберите «Прямые цитаты» с «умными кавычками» сначала установите флажок. (Внимание: если вы хотите заменить все фигурные кавычки прямыми кавычками, пожалуйста, снимите флажок «Прямые кавычки» с помощью «умных кавычек»).

Шаг 1: нажмите "Alt-F11", Чтобы открыть окно Microsoft Visual Basic для приложения;

Шаг 2: нажмите модуль на Вставить вкладку, скопируйте и вставьте следующий код VBA в модуль окно;

Шаг 3: Затем нажмите прогон для применения VBA.

Следующим VBA является изменение прямых котировок на фигурные кавычки:

Sub ChangeDoubleStraightQuotes()
'Update 20131107
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = """"
.Replacement.Text = """"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord =False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Следующим VBA является изменение фигурных котировок на прямые котировки:

Sub ReplaceSmartQuotes()
Dim vFindText As Variant
Dim vReplText As Variant
Dim i As Long
vFindText = Array("[^0145^0146]", "[^0147^0148]")
vReplText = Array("^039", "^034")
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Forward = True
.Wrap = wdFindContinue
.MatchWholeWord = True
.MatchWildcards = True
For i = LBound(vFindText) To UBound(vFindText)
.Text = vFindText(i)
.Replacement.Text = vReplText(i)
.Execute Replace:=wdReplaceAll
Next i
End With
End Sub



Рекомендуемые инструменты для повышения производительности Word

Kutools For Word - больше, чем расширенные возможности 100 для Microsoft Word, сэкономьте время 50%

  • Сложные и повторяющиеся операции могут быть выполнены одноразовой обработкой за считанные секунды.
  • Вставьте несколько изображений из папок в документ Word одновременно.
  • Объединяйте и объединяйте несколько файлов Word в разных папках в нужном вам порядке.
  • Разделите текущий документ на отдельные документы в соответствии с заголовком 1, разрывом раздела или другими критериями.
  • Конвертировать файлы между Doc и Docx, Docx и PDF, набор инструментов для общих преобразований и выбора, и так далее...
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Sri · 8 months ago
    The VBA code method for changing "straight" to "smart" quotes worked perfectly! Thank you!
  • To post as a guest, your comment is unpublished.
    no name · 1 years ago
    My problem is that I have work normally in German but have an English document, which I marked as "English". Then I did find&replace and it converted them to lower " and upper " as it would happen in German. I looked at all the settings but I couldn't find it. I changed the dictionary language and everything else I could find to English... any idea?
  • To post as a guest, your comment is unpublished.
    Bill Smith · 5 years ago
    Your explanation for replacing in Find/Replace from instruction #2 on is completely incomprehensible.
    • To post as a guest, your comment is unpublished.
      Dustin · 3 years ago
      I think I found the explanation on another page. If you simply do a replace all and ask it to replace either single quotes or double quotes with the exact same symbol, it will go through and apply your autocorrect rules, including to replace straight quotes with smart quotes. So it should update those all to smart quotes as it goes.