Dấu trang từ - Macro VBA để Thêm, Xóa, Chuyển, Sửa đổi

Thêm dấu trang

Macro Word này sẽ thêm một dấu trang:

Sub AddBookmark () ActiveDocument.Bookmarks.Add "easyexcel_net_01" End Sub

Xóa dấu trang

Macro VBA này sẽ xóa một dấu trang:

Sub DeleteBookmark () If ActiveDocument.Bookmarks.Exists ("easyexcel_net_01") Sau đó 'chúng ta cần kiểm tra xem dấu trang có tên "easyexcel_net_01" có tồn tại trong tài liệu đang hoạt động ActiveDocument.Bookmarks (Index: = "easyexcel_net_01") hay không. Xóa End If End Sub

Đi tới Dấu trang

Macro đơn giản này sẽ chuyển đến một dấu trang:

Sub GoToBookmark () If ActiveDocument.Bookmarks.Exists ("easyexcel_net_01") Sau đó 'chúng ta cần kiểm tra xem dấu trang có tên "easyexcel_net_01" có tồn tại trong tài liệu đang hoạt động Selection.GoTo What: = wdGoToBookmark, Name: = "easyexcel_net_01" End If End Sub

Sửa đổi Dấu trang

Macro này sẽ sửa đổi nội dung của dấu trang:

Sub ModifyBookmarkContent () 'thay đổi nội dung dấu trang' phức tạp hơn, vì thay đổi nội dung phạm vi dấu trang sẽ xóa dấu trang Dim oRangeBKM As Range If ActiveDocument.Bookmarks.Exists ("easyexcel_net_01") Sau đó, 'chúng ta cần kiểm tra xem dấu trang có tên "easyexcel_net_01" có tồn tại hoạt động hay không doc 'Xác định phạm vi Dấu trang hiện tại và chèn văn bản Đặt oRangeBKM = ActiveDocument.Bookmarks ("easyexcel_net_01"). Phạm vi oRangeBKM.Text = "easyexcel.net"' Tạo lại dấu trang ActiveDocument.Bookmarks.Add "easyexcel_net_01", oRangeBKM End If End Sub

Đây là một chức năng sửa đổi dấu trang:

Sub UpdateBookmarkContent (strBookMarkName As String, strNewText As String) 'thủ tục "có thể sử dụng" để thêm vào Dim oRangeBKM As Range If ActiveDocument.Bookmarks.Exists (strBookMarkName) Sau đó' chúng ta cần kiểm tra xem dấu trang có tên "easyexcel_net_01" có tồn tại trong hoạt động doc 'Nhận dạng phạm vi Dấu trang hiện tại và chèn văn bản Đặt oRangeBKM = ActiveDocument.Bookmarks (strBookMarkName) .Range oRangeBKM.Text = strNewText 'Tạo lại dấu trang ActiveDocument.Bookmarks. Thêm strBookMarkName, oRangeBKM End If End Sub

Bạn có thể gọi hàm bằng cách thêm tên dấu trang và văn bản mới làm đối số:

Sub CallBookmarkFunction () Cập nhật cuộc gọiBookmarkContent ("easyexcel_net_01", "easyexcel.net") End Sub