Nếu bạn đang viết macro, bạn có thể làm rất nhiều việc với các biến chuỗi. Một hoạt động phổ biến liên quan đến biến chuỗi là cần phải thay thế một lần xuất hiện của các ký tự trong chuỗi bằng một lần xuất hiện khác. Ví dụ, hãy xem xét chuỗi sau:

"This is my string of characters."

Bạn có thể muốn thay thế “of” bằng một từ khác, chẳng hạn như “that has”.

Hàm mục đích chung sau đây có thể làm được điều đó và nhiều hơn thế nữa:

Function RepText(sIn As String, sFind As String, sRep As String) As String     Dim x As Integer

x = InStr(sIn, sFind)

While x > 0         sIn = Left(sIn, x - 1) & sRep & Mid(sIn, x + Len(sFind))

x = InStr(sIn, sFind)

Wend     RepText = sIn End Function

Để làm ví dụ về cách sử dụng hàm, bạn có thể làm như sau:

sTemp = "This is my string of characters."

sTemp = RepText(sTemp, "of", "that has")

Khi mã này được thực thi, sTemp sẽ chứa chuỗi “Đây là chuỗi của tôi có các ký tự.”

Trong các thói quen của mình, tôi thường sử dụng một hàm giống như RepText để loại bỏ các khoảng trắng thừa (thay thế một chuỗi hai dấu cách bằng một chuỗi một dấu cách)

hoặc thay thế nhiều khoảng trắng bằng một ký tự tab. Tất nhiên, bạn sử dụng nó như thế nào là hoàn toàn phụ thuộc vào bạn.

Những người chỉ sử dụng phiên bản mới nhất của VBA có thể tò mò tại sao tôi lại sử dụng một chức năng như RepText hơn là chức năng Thay thế tích hợp sẵn. Mặc dù chức năng Replace về cơ bản hoạt động giống như RepText, nhưng việc bổ sung nó vào kho vũ khí VBA là một sự xuất hiện tương đối mới. Nếu macro của bạn thậm chí có khả năng được sử dụng trong các phiên bản Word cũ hơn, thì việc sử dụng Thay thế có nguy cơ làm hỏng macro của bạn — macro sẽ không khả dụng trong các phiên bả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 (811) áp dụng cho Microsoft Word 97, 2000, 2002 và 2003.