Note: The other languages of the website are Google-translated. Back to English

Làm thế nào để chọn tất cả các bảng trong tài liệu Word?

Thật dễ dàng để chọn một bảng trong Word bằng cách nhấp vào dấu chấm-chọn-bảng-biểu tượng ở góc trên bên trái của bảng như ảnh chụp màn hình bên dưới. Bạn cũng có thể chọn một bảng bằng tính năng Chọn bảng. Tuy nhiên, có cách nào để nhanh chóng chọn tất cả các bảng cùng một lúc trong tài liệu Word không? Các phương pháp trong bài viết này sẽ giúp bạn vượt qua nó. 


Chọn tất cả các bảng trong Word với mã VBA

Dễ dàng chọn tất cả các bảng trong Word với Kutools cho Word


Chọn tất cả các bảng trong Word với mã VBA

1. nhấn Khác + F11 phím để mở Microsoft Visual Basic cho ứng dụng cửa sổ.

2. Trong phần mở đầu Microsoft Visual Basic cho các ứng dụng cửa sổ, nhấp Chèn > Mô-đun, Sau đó sao chép và dán mã VBA sau vào cửa sổ Mô-đun;

Mã VBA: Chọn tất cả các bảng trong tài liệu hiện tại:

Sub selecttables()
Dim mytable As Table

For Each mytable In ActiveDocument.Tables
mytable.Range.Editors.Add wdEditorEveryone
Next
ActiveDocument.SelectAllEditableRanges (wdEditorEveryone)
ActiveDocument.DeleteAllEditableRanges (wdEditorEveryone)
End Sub

3. Nhấn nút F5 phím để chạy mã

Sau đó, tất cả các bảng được chọn trong tài liệu hiện tại ngay lập tức.


Dễ dàng chọn tất cả các bảng trong Word với Kutools cho Word

So sánh với việc sử dụng mã VBA để chọn tất cả các bảng trong tài liệu, Kutools cho Word's Chọn bảng công dụng khá tiện dụng. Bạn có thể sử dụng tính năng này để chọn các bảng trong một vùng chọn hoặc toàn bộ tài liệu. Vui lòng làm như sau:

Kutools cho Word : Với hơn 100 phần bổ trợ Word tiện dụng, miễn phí để thử mà không có giới hạn trong 60 ngày.

Nhấp chuột Kutools > Bàn > Chọn bảng. Xem ảnh chụp màn hình:

Chú thích: Để chọn bảng trong lựa chọn, trước tiên bạn cần chọn phạm vi và sau đó áp dụng tính năng.

Sau đó, bạn có thể thấy kết quả như sau.

Chọn bảng trong lựa chọn:

Chọn các bảng trong toàn bộ tài liệu:

Nếu bạn muốn dùng thử miễn phí tiện ích này, vui lòng truy cập tải xuống miễn phí phần mềm đầu tiên, và sau đó đi đến áp dụng hoạt động theo các bước trên.


Demo: Dễ dàng chọn tất cả các bảng trong Word với Kutools cho Word



Công cụ năng suất Word được đề xuất

 

Kutools cho Word - Hơn 100 tính năng nâng cao cho Word, tiết kiệm 50% thời gian của bạn

  • Các hoạt động phức tạp và lặp đi lặp lại có thể được thực hiện xử lý một lần trong vài giây.
  • Chèn nhiều hình ảnh trên các thư mục vào tài liệu Word cùng một lúc.
  • Hợp nhất và kết hợp nhiều tệp Word trên các thư mục thành một với thứ tự mong muốn của bạn.
  • Chia tài liệu hiện tại thành các tài liệu riêng biệt theo tiêu đề, ngắt phần hoặc các tiêu chí khác.
  • Chuyển đổi tệp giữa Doc và Docx, Docx và PDF, bộ sưu tập các công cụ để chuyển đổi và lựa chọn phổ biến, v.v.
Nhận xét (10)
Chưa có xếp hạng. Hãy là người đầu tiên xếp hạng!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Cảm ơn bạn rất nhiều, anh ấy là chương trình tốt nhưng sau vài ngày dừng lại và yêu cầu mật khẩu và tên người dùng
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
macro tuyệt vời và rất dễ dàng
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Lúc đầu, mã tiện lợi nhưng chắc chắn nó đã làm hỏng một loạt bảng trong Word 2010. Đã sửa tệp của tôi khá tốt và phải hoàn nguyên về phiên bản cũ hơn. Hãy cảnh giác!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tuyệt vời, tôi đã có giải pháp bằng cách sử dụng mã VBA. Cảm ơn bạn rất nhiều
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Đoạn mã được sửa đổi sau đây chọn tất cả các bảng, ngoại trừ các bảng chỉ có một hàng: Sub SelAllTbls () ActiveDocument.DeleteAllEditableRanges (-1) Dim Tbl As Table For Each Tbl In ActiveDocument.Tables If Tbl.Rows.Count> 1 Then Tbl.Range. Editors.Add (-1) End If Next ActiveDocument.SelectAllEditableRanges (-1) ActiveDocument.DeleteAllEditableRanges (-1) End Sub Đoạn mã sau chỉ chọn các hàng tiêu đề: Sub selallHeaders () On Error Resume Next ActiveDocument.DeleteAllEditableRanges (-1) Làm mờ Tbl làm bảng cho mỗi Tbl trong ActiveDocument.Tables Tbl.Rows (1) .Range.Editors.Add (-1) Next ActiveDocument.SelectAllEditableRanges (-1) ActiveDocument.DeleteAllEditableRanges (-1) End Sub Tôi có nhiều mã như vậy nữa chọn các hàng cuối cùng, tất cả các dấu đầu dòng, ký tự dài / nhỏ, v.v. Xem video sau của tôi: https://www.youtube.com/watch?v=p_ZhufliFw8
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Có nhiều bảng trong một tài liệu (khoảng 200). Tôi chỉ muốn chọn tất cả các bảng này và dán chúng vào một tài liệu mới ở định dạng bảng. Khi tôi chọn các bảng theo quy trình trên thì trong quá trình dán, nó sẽ dán chúng dưới dạng văn bản chứ không phải dưới dạng bảng. Bạn có thể giúp tôi không?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Có vẻ như macro này không hoạt động trong Word 2016
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Nó hoạt động trong Word 2016. Bạn đang gặp lỗi gì?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi hiểu rồi. Đối với macro công việc chính xác, con trỏ phải không có trong bảng khi bạn gọi macro. Cảm ơn bạn.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Phương pháp rất hay. Cảm ơn bạn
Không có bình luận nào được đăng ở đây
Để lại ý kiến ​​của bạn
Đăng với tư cách khách
×
Đánh giá bài viết này:
0   Nhân vật
Các vị trí được đề xuất

Kết nối với chúng tôi

Bản quyền © 2009 - www.extendoffice.com. | Đã đăng ký Bản quyền. cung cấp bởi ExtendOffice. | BẢN ĐỒ CHI NHÁNH
Microsoft và logo Office là các nhãn hiệu hoặc nhãn hiệu đã đăng ký của Microsoft Corporation tại Hoa Kỳ và / hoặc các quốc gia khác.
Được bảo vệ bởi Sectigo SSL