跳到主要內容

如何在單詞中將直引號更改為大括號?

通常,Microsoft Word會自動更改直引號 捲曲(智能正字設計師)的報價 在您鍵入時。 但是,如果關閉此功能,則單引號和雙引號都可能會直接出現在文檔中。 這裡有一些技巧,可幫助您在Word中將直引號更改為大括號,反之亦然。

使用查找和替換將直引號更改為捲曲引號

使用VBA將直接引號更改為捲曲引號

推薦的Word生產工具

Kutools for Word:整合人工智慧 🤖,超過 100 種進階功能可節省 50% 的文件處理時間。免費下載

Office Tab:在 Word(和其他 Office 工具)中引入類似瀏覽器的選項卡,簡化了多重文件導覽。免費下載


箭頭藍色右氣泡 使用查找和替換將直引號更改為捲曲引號

Office 標籤:為 Word、Excel、PowerPoint 帶來選項卡式介面...
ot字中間廣告100
立即增強您的工作流程。      閱讀更多       免費下載

申請前 查找和替換,你應該去 自動更正選項 取消選中 “直引號”與“智能引號” 複選框。

在Word 2003中, 自動更正選項 在...之下 工具 酒吧。 在Word 2007中,應用 自動更正選項 通過點擊  > 選項 > 打樣 > 自動更正選項。 這里以Word 2010/2013為例:

步驟1。 點擊  > 選項 > 打樣 > 自動更正選項 > 鍵入時自動套用,然後選擇 “直引號”與“智能引號” 複選框。 查看截圖:

步驟2。 點擊 首頁 > 更換 ,在 編輯 分組或按 Ctrl + H 顯示 查找和替換 對話框,然後輸入or in 查找內容 框,然後輸入 or ''in 更換 框。 看截圖:

步驟3。 點擊 “全部替換”.

注意: 如果要用直引號替換所有大括號,請清除 “直引號”與“智能引號” 複選框)。


箭頭藍色右氣泡 使用VBA將直接引號更改為捲曲引號

若要使用VBA在Word 2010中將所有直引號替換為捲曲引號,請單擊 文件> 選項 > 打樣 並點擊 自動更正 選項 並選擇 “直引號”與“智能引號” 複選框,如下所示。 (備註:如果要用直引號替換所有大括號,請清除“直引號”和“智能引號”複選框。

步驟1:按“ALT-F11”以打開“ Microsoft Visual Basic for Application”窗口;

步驟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

最佳辦公生產力工具

Kutools for Word - 透過 Over 提升您的文字體驗 100 顯著特點!

🤖 Kutools 人工智慧助手:用人工智慧改變你的寫作 - 生成內容  /  重寫文字  /  總結文件  /  查詢資料 基於文檔,全部在Word中

📘 文件掌握: 分頁  /  合併文件  /  以各種格式匯出選擇(PDF/TXT/DOC/HTML...)  /  批次轉換為PDF  /  將頁面匯出為圖像  /  一次列印多個文件...

內容編輯: 批量查找和替換 跨多個文件  /  調整所有圖片的大小  /  轉置表行和列  /  將表格轉換為文字...

🧹 輕鬆清潔: 移開 多餘的空間  /  分節符  /  所有標題  /  文本框  /  超鏈接  / 如需更多拆卸工具,請前往我們的 刪除組...

創意插入: 插入 千位分隔符  /  複選框  /  單選按鈕  /  QR Code  /  條碼  /  對角線表  /  公式標題  /  圖片說明  /  表格標題  /  多張圖片  / 發現更多 插入組...

🔍 精準選擇:精確定位 特定頁面  /    /  形狀  /  標題段落  / 增強導航功能 更多 選擇功能...

星級增強: 快速導航至任何位置  /  自動插入重複文字  /  在文檔視窗之間無縫切換  /  11 轉換工具...

???? 想嘗試這些功能嗎? Kutools for Word 提供了 60天免費試用,沒有任何限制! 🚀
 
Comments (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
The VBA code method for changing "straight" to "smart" quotes worked perfectly! Thank you!
This comment was minimized by the moderator on the site
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?
This comment was minimized by the moderator on the site
This is my problem too. Did you ever find an answer?
This comment was minimized by the moderator on the site
Your explanation for replacing in Find/Replace from instruction #2 on is completely incomprehensible.
This comment was minimized by the moderator on the site
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.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations