Làm thế nào để thay thế gạch chân bằng in nghiêng trong word?

Trong một số trường hợp, bạn có thể cần phải thay thế tất cả các ký tự gạch dưới bằng chữ nghiêng hoặc dấu phụ trong từ. Làm cách nào bạn có thể nhanh chóng thay thế tất cả các ký tự gạch dưới bằng chữ nghiêng trong Word? Bạn có thể thực hiện theo hai cách sau trong Word.

Thay thế tất cả các ký tự gạch chân bằng chữ nghiêng bằng Tìm và Thay thế

Thay thế tất cả các ký tự gạch chân bằng chữ nghiêng bằng VBA

---

Thay thế tất cả ký tự gạch dưới bằng chữ nghiêng bằng Tìm và Thay thế

Bước 1 ： Bước 1: Nhấp vào Trang chủ > Thay thế (Word 2007.2010 / 2013) và sử dụng phím tắt Ctrl + H để khởi chạy hộp thoại Tìm và Thay thế;

Bước 2: bấm vào Hơn nút để đưa lên Tìm kiếm tùy chọn.

Bước 3: Đưa con trỏ vào Tìm gì , nhấp vào Phông chữ từ Định dạng danh sách thả xuống để chọn Gạch chân phong cách và Gạch chân màu sắc

Bước 4: Đưa con trỏ vào Với thay thế hộp, bấm vào Font từ Định dạng danh sách thả xuống để chọn Nghiêng trong danh sách Kiểu phông chữ.

Bước 5: bấm vào OK>Thay thế Tất cả.

Chú thích:

1. nhấp chuột Không định dạng để đảm bảo không có thông tin định dạng nào được chỉ định trong Tìm gì hộp và Với thay thế hộp trước khi hoạt động của bạn.

2. Việc xử lý này chỉ làm cho văn bản có gạch chân nghiêng, không thể bỏ gạch chân.

---

Thay thế tất cả các ký tự gạch chân bằng chữ nghiêng bằng VBA

Ngoài ra, bạn cũng có thể sử dụng VBA để thay thế gạch chân bằng Italic. Nhưng nếu bạn không giỏi macro, tôi không khuyến khích phương pháp này. Làm như sau:

Kutools cho Word, một tiện ích bổ sung tiện dụng, bao gồm các nhóm công cụ giúp bạn dễ dàng làm việc và nâng cao khả năng xử lý tài liệu văn bản. Dùng thử miễn phí trong 45 ngày! Get It Now!

Bước 1: Nhấn Alt + F11 để mở cửa sổ VBA trong Word;

Bước 2: Nhấp Mô-đun in Chèn và chèn mã VBA vào Mô-đun cửa sổ;

Mã VBA để thay thế tất cả các ký tự gạch dưới bằng chữ nghiêng trong Word.:

Sub ReplaceUnderlineWithItalic()
'Update 20131107
Selection.Find.ClearFormatting
Selection.Find.Font.Underline = wdUnderlineSingle
Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.Font.Italic = True
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Replacement.Font.Underline = wdUnderlineNone
.Forward = True
.Wrap = wdFindAsk
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Bước 3: Nhấp chạy để áp dụng mã VBA (hoặc nhấn F5);

LƯU Ý

1. Mã này chỉ phù hợp với gạch dưới đơn không có màu. Bạn có thể thay đổi “WdUnderlineSingle” trong mã để phù hợp với các kiểu gạch dưới khác như “WdUnderlineDouble” or “WdUnderlineThick”.

2. Đoạn mã này chỉ làm cho văn bản có gạch chân nghiêng, không thể bỏ gạch chân.

---