Trong bài viết này, chúng tôi sẽ tập trung giới thiệu cho bạn 3 phương pháp hữu ích để xóa hàng loạt tất cả các kiểu bảng trong tài liệu Word của bạn.
Thỉnh thoảng, nếu một bảng Word được áp dụng kiểu không mong muốn hoặc nó làm giảm hiệu ứng hình ảnh của toàn bộ tài liệu, bạn cần xóa kiểu của nó. Bây giờ hãy chỉ cho bạn cách thực hiện một nhiệm vụ như vậy.
Phương pháp 1: Xóa kiểu của bảng một từ
- Trước hết, hãy di chuyển con trỏ chuột đến bảng cần tìm cho đến khi bạn thấy dấu chữ thập ở góc trên bên trái của bảng.
- Tiếp theo bấm vào dấu chéo để chọn toàn bộ bảng.
- Bây giờ bạn đã kích hoạt “Công cụ bảng”. Nhấp vào tab "Thiết kế".
- Sau đó bấm vào nút “More” trong nhóm “Table Styles” để hiển thị trình đơn thả xuống.
- Chọn tùy chọn “Xóa”.
- Bây giờ kiểu bảng đã bị xóa. Tất cả các đường viền của bảng cũng vậy. Để thêm đường viền vào bảng, hãy đảm bảo rằng bảng đã được chọn. Và nhấp vào nút thả xuống bên cạnh lệnh “Biên giới”.
- Và chọn “All Borders”.
Đây là kết quả:
Phương pháp 2: Xóa hàng loạt tất cả các kiểu bảng trong một tài liệu
Khi chúng tôi đã hoàn thành bảng đơn, chủ đề xử lý hàng loạt không thể bỏ qua. Trước tiên, hãy xem cách xóa tất cả các kiểu bảng trong tài liệu qua VBA.
- Trước tiên, hãy nhấn tổ hợp phím “Alt + F11” để mở trình soạn thảo VBA trong Word.
- Tiếp theo, nhấp vào dự án “Bình thường” ở cột bên trái.
- Sau đó nhấp vào “Chèn” trên thanh menu.
- Và chọn “Mô-đun” trên menu thả xuống.
- Mở không gian mã hóa của mô-đun bằng cách nhấp đúp vào nó.
- Bây giờ dán macro sau vào đó:
Sub ClearTableStylesInADoc()
Dim objTable As Table
Dim objDoc As Document
Application.ScreenUpdating = False
Set objDoc = ActiveDocument
For Each objTable In objDoc.Tables
objTable.Style = "Table Normal"
objTable.Borders.Enable = True
Next objTable
Application.ScreenUpdating = True
Set objDoc = Nothing
End Sub
- Cuối cùng nhấp vào "Chạy".
Macro này xóa tất cả các kiểu bảng trong tài liệu, áp dụng kiểu "Bảng thông thường" cho chúng và cũng thêm đường viền bảng.
Phương pháp 3: Xóa hàng loạt tất cả các kiểu bảng trong nhiều tài liệu
Bây giờ, trong trường hợp bạn có một vài tài liệu cần xử lý, đây là macro để xóa tất cả các kiểu bảng trong nhiều tài liệu.
- Thứ nhất, sắp xếp tất cả các tài liệu trong một thư mục.
- Các bước lặp lại trong phương pháp 2 để cài đặt và chạy macro.
- Chỉ lần này, hãy nhớ thay thế bằng macro này:
Sub ClearTableStylesInMultiDoc()
Dim objTable As Table
Dim objDoc As Document
Dim StrFolder As String
Dim strFile As String
Dim dlgFile As FileDialog
Set dlgFile = Application.FileDialog(msoFileDialogFolderPicker)
With dlgFile
If .Show = -1 Then
StrFolder = .SelectedItems(1) & "\"
Else
MsgBox "Select a folder first."
Exit Sub
End If
End With
strFile = Dir(StrFolder & "*.docx", vbNormal)
While strFile <> ""
Set objDoc = Documents.Open(FileName:=StrFolder & strFile)
Set objDoc = ActiveDocument
For Each objTable In objDoc.Tables
objTable.Style = "Table Normal"
objTable.Borders.Enable = True
Next objTable
objDoc.Save
objDoc.Close
strFile = Dir()
Wend
End Sub
- Chạy macro, sẽ có cửa sổ "Duyệt". Chọn thư mục bạn lưu trữ tài liệu ở bước 1 và bấm “OK”.
Sau đó, hãy để phần còn lại của công việc cho macro.
Cách lấy lại tài liệu bị mất
Khi nói đến tài liệu bị mất, chúng tôi muốn nói đến việc tài liệu bị hư hỏng do... từ tham nhũng hoặc lỗi của con người. Trong khi xử lý các tài liệu như vậy, bạn phải luôn nhớ rằng chúng có thể được truy xuất với sự trợ giúp của một số công cụ sửa chữa nâng cao.
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 chữa xls 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