Xin chỉ cho Code lựa chọn toàn bộ các bảng (Table) trong Word (1 người xem)

[Phanhanhdai]

Em có file word, có rất nhiều bảng biểu nằm ở các trang khác nhau, em xin phép hỏi có cách nào lựa chọn (bôi đen) riêng toàn bộ các bảng biểu không ah. Xin chỉ dùm em với ah.

 

[batman1]

Nếu định làm gì với các bảng thì làm trong vòng lặp For thôi. Vì rất nhiều thao tác không làm được khi chọn nhiều bảng. Vd. khi chọn nhiều bảng thì menu "Delete Table", Insert, AutoFit v...v không hoạt động.

Sub select_all_tables()
Dim tabl As Table
    With ThisDocument
        For Each tabl In .Tables
            tabl.Range.Editors.Add wdEditorEveryone
        Next
        .SelectAllEditableRanges (wdEditorEveryone)
        .DeleteAllEditableRanges (wdEditorEveryone)
    End With
End Sub

 

[LinDan]

Hoặc bạn có thể sử dụng phần mềm Kutools for Word nhé

Bài đã được tự động gộp: 14/8/18

Nếu định làm gì với các bảng thì làm trong vòng lặp For thôi. Vì rất nhiều thao tác không làm được khi chọn nhiều bảng. Vd. khi chọn nhiều bảng thì menu "Delete Table", Insert, AutoFit v...v không hoạt động.

Sub select_all_tables()
Dim tabl As Table
    With ThisDocument
        For Each tabl In .Tables
            tabl.Range.Editors.Add wdEditorEveryone
        Next
        .SelectAllEditableRanges (wdEditorEveryone)
        .DeleteAllEditableRanges (wdEditorEveryone)
    End With
End Sub

Em đang rất muốn tìm hiểu làm sao để tất cả các bảng thực hiện lệnh AutoFit ah, rất mong các bác chỉ giúp em ah.

 

[batman1]

Em đang rất muốn tìm hiểu làm sao để tất cả các bảng thực hiện lệnh AutoFit ah, rất mong các bác chỉ giúp em ah.

Thì duyệt trong vòng For và làm từng bảng thôi. Không thể chọn các bảng và làm 1 động tác được. Đó không phải là hạn chế của code.
Hãy chọn bằng tay 1 bảng thì thấy menu AutoFit hoạt động nhưng chọn nhiều bảng thì menu không hoạt động.