Mã trường có thể khá hữu ích trong một tài liệu. Tại một số điểm, bạn có thể muốn chia sẻ mã trường với ai đó. Có lẽ bạn đang chuẩn bị một tài liệu đào tạo cần hiển thị các mã dưới dạng văn bản hoặc bạn muốn gửi mã trường qua e-mail cho người khác.

Vấn đề là, nếu bạn chỉ cần sao chép và dán mã trường, thì đó không phải là mã thực được dán; nó là kết quả của mã trường đó. Tất nhiên, bạn có thể hiển thị mã trường (Shift + F9), định vị điểm chèn trong dấu ngoặc nhọn, chọn cẩn thận tất cả các ký tự ngoại trừ dấu ngoặc nhọn đóng, rồi sao chép vào Clipboard.

Tuy nhiên, cách tiếp cận này có thể trở nên tẻ nhạt khi vội vàng. Cách tiếp cận tốt hơn là sử dụng macro để hiển thị mã trường và nhồi thông tin mong muốn vào Clipboard. Macro sau thực hiện điều đó:

Sub StuffFieldCode()

Dim sField As String     Dim sTextCode As String     Dim bSFC As Boolean     Dim MyData As DataObject     Dim sTemp As String     Dim J As Integer

Application.ScreenUpdating = False

If Selection.Fields.Count = 1 Then         bSFC = Selection.Fields.Item(1).ShowCodes         Selection.Fields.Item(1).ShowCodes = True         sField = Selection.Text         sTextCode = ""

For J = 1 To Len(sField)

sTemp = Mid(sField, J, 1)

Select Case sTemp                 Case Chr(19)

sTemp = "{"

Case Chr(21)

sTemp = "}"

Case vbCr                     sTemp = ""

End Select             sTextCode = sTextCode & sTemp         Next J

Set MyData = New DataObject         MyData.SetText sTextCode         MyData.PutInClipboard                  Selection.Fields.Item(1).ShowCodes = bSFC     End If

Application.ScreenUpdating = True End Sub

Macro bắt đầu bằng cách tắt cập nhật màn hình, sau đó nó kiểm tra để đảm bảo rằng lựa chọn chỉ bao gồm một trường. (Bạn nên chọn trường bạn muốn trước khi chạy macro.) Nếu nó chứa một trường duy nhất, thì mã trường cho trường đó được hiển thị, được gán cho một biến (sField), rồi chọn từng ký tự. Nếu ký tự đang được kiểm tra là dấu ngoặc nhọn trường mở — Chr (19) —thì nó được thay thế bằng dấu ngoặc nhọn mở thông thường. Nếu nó là một dấu ngoặc nhọn trường đóng — Chr (21) —thì nó được thay thế bằng một dấu ngoặc nhọn đóng bình thường. Cuối cùng, nếu ký tự là điểm đánh dấu cuối đoạn văn (vbCr), thì ký tự đó sẽ bị bỏ qua.

Cuối cùng, phương thức PutInClipboard được sử dụng để nhồi phiên bản văn bản của mã trường vào Clipboard. Sau đó, bạn có thể sử dụng lệnh dán thông thường (Ctrl + V) để dán mã trường vào tài liệu, e-mail hoặc chương trình khác.

_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 (13300) áp dụng cho Microsoft Word 2007, 2010, 2013, 2016, 2019 và Word trong Office 365. Bạn có thể tìm thấy phiên bản của mẹo này cho giao diện menu cũ hơn của Word tại đây: