Cindy hỏi liệu có cách nào để “gõ qua” các từ bằng một ký tự khác không. Đặc biệt, cô muốn “x” ra một số nhân vật. Cô ấy không muốn viết gạch ngang mà thực sự sử dụng ký tự “x” để nhập các ký tự đã có trong tài liệu.

Cách tốt nhất để thực hiện việc này trong Word là sử dụng trường EQ với công tắc \ o (overtype). Làm theo các bước sau:

  1. Định vị con trỏ chèn ở nơi bạn muốn văn bản x-ed out xuất hiện.

  2. Nhấn Ctrl + F9. Word sẽ chèn một tập hợp các dấu ngoặc nhọn trường, với điểm chèn ở giữa chúng.

  3. Nhập dòng sau trong dấu ngoặc nhọn trường:

eq \o(my text,xxxxxxx)

  1. Thay thế “văn bản của tôi” bằng văn bản bạn muốn x-ed ra và đảm bảo có đủ x ký tự để bao phủ văn bản đó.

  2. Nhấn Shift + F9 để thu gọn trường và hiển thị kết quả.

Cách tiếp cận trường này hoạt động tốt cho các lựa chọn văn bản ngắn và bạn luôn có thể chuyển đổi nó thành macro nếu bạn có nhiều văn bản mà bạn muốn ảnh hưởng theo cách này. Macro sau đây còn mang khái niệm này hơn nữa — nó hiển thị các ký tự x ghi đè lên màu đỏ và không ghi đè khoảng trắng:

Sub OverstrikeWithX2()

Dim i As Integer     MyString = Selection.Text

' Insertion point only/single character/multiple character range handler     If Selection.Characters.Count = 1 Then         Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend         If Selection.Characters.Count = 2 Then             Selection.MoveLeft Unit:=wdCharacter, Count:=2, Extend:=wdExtend         Else             Selection.MoveLeft Unit:=wdCharacter, Count:=1         End If     Else         Selection.MoveLeft Unit:=wdCharacter, Count:=1     End If     ' end range handler

For i = 1 To Len(MyString)

Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend         ' paragraph marker and space handler         If Selection.Text = Chr(13) Or Selection.Text = " " Then             While Selection.Text = Chr(13) Or Selection.Text = " "

If i = Len(MyString) Then                     Selection.MoveRight Unit:=wdCharacter, Count:=1                     Exit Sub                 Else                     i = i + 1                     Selection.MoveRight Unit:=wdCharacter, Count:=1                     Selection.MoveRight Unit:=wdCharacter, Count:=1, _                       Extend:=wdExtend                 End If             Wend         End If         ' end paragraph marker & space handler

With Selection             .Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _               PreserveFormatting:=False             .TypeText Text:="eq \o("

.MoveRight Unit:=wdCharacter, Count:=1             .TypeText Text:=",x)"

.Delete Unit:=wdCharacter, Count:=1

' The next three lines turns the overstike "x" red             .MoveLeft Unit:=wdCharacter, Count:=1             .MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend             .Font.Color = wdColorRed             .Fields.ToggleShowCodes             .MoveRight Unit:=wdCharacter, Count:=1         End With     Next i End Sub

Macro thêm một trường duy nhất cho mỗi ký tự được nhập quá và do đó thích hợp cho văn bản có độ dài gần như bất kỳ.

Cũng có một cách tiếp cận hoàn toàn khác mà bạn có thể muốn thử, lần này là sử dụng hộp văn bản. Tạo một hộp văn bản và bên trong nó nhập bao nhiêu ký tự x tùy thích với phông chữ và kích thước mong muốn. Đảm bảo rằng hộp văn bản được định dạng để nó không có phần tô (làm cho nó trong suốt), không có đường viền và nổi trên văn bản mà không có dòng bao văn. Kéo hộp văn bản trên văn bản để được x-ed ra và kích thước nếu cần.

_Lưu ý: _

Nếu bạn muốn biết cách sử dụng các macro được mô tả trên trang này (hoặc trên bất kỳ trang nào khác trên các trang WordTips), tôi đã chuẩn bị một trang đặc biệt bao gồm thông tin hữu ích.

WordTips là nguồn của bạn để đào tạo Microsoft Word hiệu quả về chi phí.

(Microsoft Word là phần mềm xử lý văn bản phổ biến nhất trên thế giới.) Mẹo này (2532) áp dụng cho Microsoft Word 2007, 2010 và 2013.