Trong bài viết này, chúng tôi sẽ tập trung giải thích cách tự động cập nhật tất cả các trường trong tài liệu trước khi bạn đóng tài liệu.
Chúng ta sử dụng các trường để lưu trữ dữ liệu có thể thay đổi sau này. Vì vậy, khi chúng ta thực hiện bất kỳ thay đổi nào đối với chúng, chúng ta cần cập nhật các trường tương ứng. Và không may là, hầu hết thời gian, chúng ta sẽ phải cập nhật chúng thủ công.
Bên cạnh đó, vấn đề lớn nhất nằm ở chỗ chúng ta dễ quên cập nhật các trường. Để giải quyết vấn đề này, chúng tôi cung cấp cho bạn một macro để tự động cập nhật các trường trước khi đóng tài liệu.
Cập nhật tất cả các trường trước khi in
Bạn có thể thay đổi các tùy chọn Word để đặt các trường cập nhật trước khi in theo các bước sau:
- Đầu tiên, nhấp vào tab “Tệp”, sau đó nhấp vào “Tùy chọn”.
- Tiếp theo trong hộp “Word Options” mở ra, nhấp vào “Display” ở cột bên trái.
- Ở phần bên phải, vào phần “Tùy chọn in” để đánh dấu vào ô “Cập nhật trường trước khi in”.
- Cuối cùng, nhấp vào “OK”.
Tự động cập nhật tất cả các trường trước khi đóng tài liệu
- Để bắt đầu, hãy kích hoạt trình chỉnh sửa VBA trong Word bằng cách nhấn “Alt + F11”.
- Tiếp theo nhấp vào dự án "Bình thường".
- Sau đó, trên thanh menu, nhấp vào “Chèn”.
- Và chọn “Mô-đun Lớp”.
- Tiếp theo, nhấp vào lệnh “Properties Window” trên thanh menu hoặc nhấn “F4” để kích hoạt nó.
- Trong cửa sổ mở ở góc dưới bên trái, hãy đặt tên cho mô-đun lớp mới tạo là “objWordClass”.
- Trên khu vực mã hóa, nhập các mã sau:
Option Explicit
Public WithEvents objWord As Word.Application
Private Sub objWord_DocumentBeforeClose(ByVal objDoc As Document, varCancel As Boolean)
Dim strButtonValue As String
Application.ScreenUpdating = False
Set objDoc = ActiveDocument
objDoc.Save
strButtonValue = MsgBox("Do you want to update all fields in this document before closing?", _
vbYesNo + vbQuestion)
If strButtonValue = vbYes Then
varCancel = True
If objDoc.Fields.Count > 0 Then
With objDoc
.Fields.Update
.Save
.Close
End With
Else
MsgBox ("There is no field in this document.")
End If
Else
varCancel = False
End If
Application.ScreenUpdating = True
End Sub
- Và nhớ bấm vào nút “Save”.
- Bây giờ vẫn ở dưới dự án “Bình thường”, nhấp vào “Chèn” một lần nữa và chọn “Mô-đun” lần này.
- Tiếp theo mở mô-đun và dán các mã này:
Option Explicit Dim objWordClass As New objWordClass Public Sub AutoOpen() Set objWordClass.objWord = Word.Application End Sub
- Tương tự, lưu mã.
- Lần tới khi bạn hoàn tất chỉnh sửa tài liệu, hãy lưu tài liệu đó. Và khi bạn nhấp vào lệnh “Đóng”, bạn sẽ nhận được hộp hỏi. Nhấp vào “Có” để cập nhật tất cả các trường và tài liệu sẽ được đóng lại khi hoàn thành tác vụ.
Mang tài liệu chết trở lại cuộc sống
Chắc chắn thỉnh thoảng bạn sẽ gặp phải một số vấn đề trong khi sử dụng Word. Vì vậy, nên chuẩn bị sẵn sàng cho mọi khả năng có thể xảy ra. tài liệu bị hỏng. Tất nhiên, cách tốt nhất là mua trước một công cụ sửa chữa chuyên dụng.
Giới thiệu tác giả:
Vera Chen là một chuyên gia phục hồi dữ liệu trong DataNumen, Inc., công ty hàng đầu thế giới về công nghệ khôi phục dữ liệu, bao gồm sửa excel và pdf sửa chữa các sản phẩm phần mềm. Để biết thêm thông tin, hãy truy cập www.datanumennăm