Là một phần của macro, bạn có thể cần làm việc với thông tin được lưu trữ trong dấu trang. Ví dụ: bạn có thể cần trích xuất văn bản trong một dấu trang, gán nó cho một biến, sau đó thực hiện một số xử lý dựa trên nội dung của biến.

Có hai cách bạn có thể gán nội dung của dấu trang cho một biến trong macro VBA. Đầu tiên là chỉ cần nhảy đến đánh dấu và chọn nó, sau đó tạo biến bằng với nội dung của vùng chọn. Các dòng mã sau sẽ thực hiện hành động này cho một đánh dấu có tên MyBookmark:

Dim sMyString As String Selection.GoTo What:=wdGoToBookmark, Name:="MyBookmark"

sMyString = Selection.Text

Nếu bạn không muốn thay đổi lựa chọn trong tài liệu, bạn cũng có thể đơn giản làm việc với bộ sưu tập Dấu trang do Word duy trì.

Giả sử bạn vẫn cần nội dung của dấu trang MyBookmark, đoạn mã sau sẽ thực hiện thủ thuật:

Dim sMyString As String sMyString = ActiveDocument.Bookmarks("MyBookmark").Range.Text

Lưu ý rằng tên của dấu trang (“MyBookmark”) không nhất thiết phải là một giá trị tĩnh như được hiển thị trong cả hai ví dụ này. Nếu bạn muốn, bạn chỉ cần thay thế giá trị tĩnh bằng một biến, như được hiển thị ở đây:

Dim sMyString As String Dim sBName As String sBName = "Boilerplate"

Selection.GoTo What:=wdGoToBookmark, Name:=sBName sMyString = Selection.Text

Trong ví dụ này, tên dấu trang (tên có nội dung bạn muốn lấy và đặt vào sMyString) được chứa trong biến sBName.

Khi bạn phát triển mã của riêng mình, bạn có thể dễ dàng tạo một cách để người dùng nhập tên dấu trang và chỉ cần gán tên đó cho biến sBName.

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