Cách chỉnh dấu ngoặc kép bị ngược trong word

Làm thế nào để thay đổi dấu ngoặc kép thẳng thành dấu ngoặc kép trong word?

Thông thường Microsoft Word sẽ tự động thay đổi dấu ngoặc kép

đến câu trích dẫn xoăn (thông minh của nhà thiết kế)khi bạn nhập. Nhưng nếu tính năng này bị tắt, cả dấu nháy đơn và dấu nháy kép có thể xuất hiện ngay trong tài liệu của bạn. Dưới đây là mẹo để bạn đổi dấu ngoặc kép thẳng thành dấu ngoặc kép và ngược lại trong Word.

Thay đổi dấu ngoặc kép thành dấu ngoặc kép với Tìm và Thay thế

Thay đổi dấu ngoặc kép thẳng thành dấu ngoặc kép với VBA

---

Thay đổi dấu ngoặc kép thẳng thành dấu ngoặc kép với Tìm và Thay thế

Trước khi áp dụng Tìm và Thay thế, bạn nên đến Tuỳ chọn Tự động sửa để bỏ chọn "Dấu ngoặc kép" với "dấu ngoặc kép thông minh" hộp kiểm tra.

Trong Word 2003, Tuỳ chọn Tự động sửa nằm dưới Công cụ quán ba. Và trong Word 2007, áp dụng Tuỳ chọn Tự động sửa bằng cách nhấp chuột

> Các lựa chọn > Proofing > Tuỳ chọn Tự động sửa. Ở đây chúng tôi lấy Word 2010/2013 làm ví dụ:

Bước 1. Nhấp chuột

> Tùy chọn > Proofing > Tuỳ chọn Tự động sửa > Tự động định dạng khi bạn nhập, Và chọn "Trích dẫn thẳng" với "trích dẫn thông minh" hộp kiểm. Xem ảnh chụp màn hình ：

Bước 2. Nhấp chuột Trang chủ > Thay thế trong Chỉnh sửa nhóm hoặc nhấn Ctrl + H để hiển thị Tìm và Thay thế hộp thoại và nhập 'or '' in Tìm hộp và nhập ' or ''in Thay thế bằng cái hộp. Xem ảnh chụp màn hình:

Bước 3. Nhấp chuột Thay thế Tất cả.

Lưu ý: nếu bạn muốn thay thế tất cả các dấu ngoặc kép bằng dấu ngoặc kép thẳng, vui lòng xóa "Dấu ngoặc kép" với "dấu ngoặc kép thông minh" hộp kiểm).

---

Thay đổi dấu ngoặc kép thẳng thành dấu ngoặc kép với VBA

Để thay thế tất cả các dấu ngoặc kép thẳng bằng dấu ngoặc kép trong Word 2010 bằng cách sử dụng VBA, vui lòng nhấp vào Tập tin> Tùy chọn > Proofing và nhấp Tự động sửa lỗi Các lựa chọn Và chọn "Dấu ngoặc kép" với "dấu ngoặc kép thông minh" hộp kiểm như sau đầu tiên. (Chú thích: nếu bạn muốn thay thế tất cả các dấu ngoặc kép bằng dấu ngoặc kép, vui lòng bỏ chọn hộp kiểm "Dấu ngoặc kép" bằng "dấu ngoặc kép thông minh").

Bước 1: Nhấn Alt-F11Để mở cửa sổ Microsoft Visual Basic for Application;

Bước 2: Nhấp Mô-đun trên Chèn , sao chép và dán mã VBA sau vào Mô-đun cửa sổ;

Bước 3: Sau đó nhấp vào chạy

để áp dụng VBA.

VBA sau đây là để thay đổi dấu ngoặc kép thẳng thành dấu ngoặc kép:

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 sau đây là thay đổi dấu ngoặc kép thành dấu ngoặc kép thẳng:

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

---

---

Công cụ năng suất Word được đề xuất