Bruce đang viết macro và cần thực hiện lựa chọn trong tài liệu. Anh ấy biết cách định vị điểm chèn, nhưng sau khi định vị, anh ấy cần chọn mọi thứ từ đó đến dấu câu tiếp theo, bao gồm bất kỳ dấu ngoặc kép hoặc dấu nháy đơn tiềm năng nào sau dấu câu. Bruce tự hỏi liệu có một lệnh thực sự để thực hiện việc này hay cần phải có một số loại mã liên quan để thực hiện việc lựa chọn.

Điều đầu tiên cần thử là sử dụng khả năng tích hợp sẵn của VBA để di chuyển theo một câu tại một thời điểm. Khi bạn định vị điểm chèn, hãy sử dụng lệnh sau:

Selection.MoveRight Unit:=wdSentence, Count:=1, Extend:=wdExtend

Lệnh mở rộng vùng chọn sang bên phải bởi bất kỳ Word nào xem như một câu, vì vậy nó sẽ đáp ứng nhu cầu của bạn. Nếu không (có lẽ nó bỏ sót một số ký tự mà bạn cần đưa vào lựa chọn của mình), thì bạn có thể thử tạo mã lựa chọn của riêng mình. Đây là một ví dụ về một cách để phát triển mã như vậy:

With Selection     .Extend     .Find.Text = "[,.'" & Chr(146) & Chr(148) & Chr(34) & "]"

.Find.MatchWildcards = True     .Find.Execute     .Find.Text = "[!,.'" & Chr(146) & Chr(148) + Chr(34) & "]"

.Find.Execute End With

Thuộc tính Extend khiến Word chọn mọi thứ bắt đầu từ vị trí của điểm chèn và tìm kiếm theo ký tự đại diện sẽ tìm thấy tất cả các ký tự dấu câu. Văn bản đang được tìm kiếm về cơ bản là tất cả các ký tự dấu câu, bao gồm dấu nháy đơn và dấu ngoặc kép.

(Những điều này có thể được sửa đổi để phù hợp với nhu cầu của bạn, như mong muốn.) Thao tác tìm thứ hai (thao tác bắt đầu bằng dấu chấm than) tìm ký tự không phải dấu chấm câu đầu tiên sau khi thực hiện tìm kiếm ban đầu. Theo cách đó, nó sẽ xử lý nhiều dấu câu liên tiếp.

_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 (12341) á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: