Trong dòng công việc của mình, tôi cần tạo tài liệu chứa nhiều bảng.

Các bảng này phải tuân theo một cấu trúc cứng nhắc, bao gồm yêu cầu không được để trống ô nào. (Nếu ngược lại, một ô trống, thì ô đó phải chứa các ký tự “N / A”.)

Để hỗ trợ làm việc với yêu cầu này cho các bảng, tôi đã tạo một macro kiểm tra bảng cho tôi và thêm các ký tự N / A, nếu thích hợp. Tất cả những gì tôi cần làm là đặt điểm chèn trong bảng đích, rồi chạy macro này:

Sub AddTableNA()

Dim NumRows As Integer     Dim NumCols As Integer     Dim J As Integer     Dim K As Integer     Dim ChkTxt As String

If Not Selection.Information(wdWithInTable) Then         Exit Sub     End If

NumRows = Selection.Tables(1).Rows.Count     NumCols = Selection.Tables(1).Columns.Count

'Loop to select each row in the current table     For J = 1 To NumRows         'Loop to select each cell in the current row         For K = 1 To NumCols             'Select the cell to check             Selection.Tables(1).Rows(J).Cells(K).Select             'Copy any text in the cell             ChkTxt = Selection.Text             'Strip off the last 2 characters (removes end of cell marker)

ChkTxt = Left(ChkTxt, Len(ChkTxt) - 2)

'If empty, add "n/a" text             If (ChkTxt = "") Then Selection.TypeText ("N/A")

Next K     Next J End Sub

Trước tiên, macro sẽ kiểm tra xem điểm chèn có nằm trong bảng hay không.

Nếu không, thì macro bị thoát sớm. Nếu vậy, các biến NumRows và NumCols được đặt thành số hàng và số cột trong bảng, tương ứng.

Sau đó, macro sẽ bước qua từng ô của mỗi hàng, xác định xem ô đó có chứa gì không. Do cách Word tạo bảng, một ô sẽ luôn chứa một thứ gì đó — điểm đánh dấu cuối ô — ngay cả khi không có gì khác trong đó. Giải pháp là trừ hai ký tự ở cuối văn bản trong ô, và sau đó xem có còn lại gì không. Nếu không, thì các ký tự “N / A” được nhập vào ô.

_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 (3875) áp dụng cho Microsoft Word 97, 2000, 2002 và 2003. Bạn có thể tìm thấy phiên bản của mẹo này cho giao diện ribbon của Word (Word 2007 và sau này) tại đây: