Làm cách nào để di chuyển chú thích bảng từ trên xuống dưới hoặc ngược lại trong tài liệu Word?
Trong tài liệu Word, nếu có nhiều bảng đã chèn chú thích bên dưới mỗi bảng. Tuy nhiên, đôi khi, bạn có thể muốn di chuyển các chú thích này từ bên dưới lên bên trên của bảng. Làm thế nào bạn có thể giải quyết hàng loạt công việc này nhanh nhất có thể?
Di chuyển chú thích bảng từ dưới lên trên hoặc ngược lại trong Word bằng mã VBA
Di chuyển chú thích bảng từ dưới lên trên hoặc ngược lại trong Word bằng mã VBA
Để di chuyển tất cả chú thích bảng từ bên dưới lên bên trên của bảng, bạn thích mã VBA sau, vui lòng thực hiện như sau:
1. Giữ ALT + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.
2. Nhấp chuột Chèn > Mô-đunvà dán macro sau vào Cửa sổ mô-đun.
Di chuyển chú thích bảng từ bên dưới lên bên trên trong tài liệu Word
Sub ReLabelDownToUpTables()
Dim I As Long
Dim xRngPre As Range
Dim xRngNext As Range
Application.ScreenUpdating = False
With ActiveDocument
For I = .Tables.Count To 1 Step -1
With .Tables(I).Range
Set xRngPre = .Characters.First.Previous.Characters.Last
xRngPre.Select
Set xRngNext = .Characters.Last.Next.Paragraphs.First.Range
xRngNext.Select
With xRngPre
.InsertBefore vbCr
.Style = xRngNext.Style
.Start = .End - 1
.End = .Start
End With
If Len(xRngNext.Text) > 1 Then
xRngNext.End = xRngNext.End - 1
xRngNext.Cut
xRngNext.Delete
xRngPre.Paste
Else
xRngNext.Delete
End If
End With
Next
End With
Application.ScreenUpdating = True
End Sub
3. Sau đó nhấn F5 để chạy mã này và tất cả các chú thích của bảng đã được chuyển từ bên dưới lên bên trên của các bảng, hãy xem ảnh chụp màn hình:
Chú thích: Để di chuyển chú thích bảng từ trên xuống dưới của mỗi bảng, vui lòng áp dụng mã VBA sau:
Di chuyển chú thích bảng từ trên xuống dưới trong tài liệu Word
Sub ReLabelUpToDownTables()
Dim I As Long
Dim xRngPre As Range
Dim xRngNext As Range
Application.ScreenUpdating = False
With ActiveDocument
For I = .Tables.Count To 1 Step -1
With .Tables(I).Range
Set xRngNext = .Characters.First.Previous.Paragraphs.First.Range
xRngNext.Select
Set xRngPre = .Characters.Last.Next
xRngPre.End = xRngPre.End - 1
xRngPre.Select
With xRngPre
.InsertBefore vbCr
.Style = xRngNext.Style
.Start = .End - 1
.End = .Start
End With
If Len(xRngNext.Text) > 1 Then
xRngNext.End = xRngNext.End - 1
xRngNext.Cut
xRngNext.Delete
xRngPre.Paste
Else
xRngNext.Delete
End If
End With
Next
End With
Application.ScreenUpdating = True
End Sub
Chèn nhiều chú thích bảng, ảnh hoặc phương trình vào tài liệu Word cùng một lúc:
Thông thường, bạn nên chèn chú thích bảng, hình ảnh hoặc phương trình cho từng bảng, hình ảnh hoặc phương trình trong tệp Word. Nhưng, nếu bạn có Kutols cho Word's Nhiều phụ đề , bạn có thể chèn chú thích bảng, hình ảnh hoặc phương trình cho tất cả các bảng, hình ảnh hoặc phương trình nhanh nhất có thể. Kutools cho Word: với hơn 100 phần bổ trợ Word tiện dụng, dùng thử miễn phí không giới hạn trong 60 ngày. Nhấp để Tải xuống và dùng thử miễn phí ngay! |
Công cụ năng suất văn phòng tốt nhất
Kutools cho Word - Nâng cao trải nghiệm sử dụng từ của bạn với Over 100 Các tính năng đáng chú ý!
🤖 Trợ lý AI của Kutools: Biến đổi bài viết của bạn bằng AI - Tạo nội dung / Viết lại văn bản / Tóm tắt tài liệu / Hỏi thông tin dựa trên tài liệu, tất cả đều có trong Word
📘 Làm chủ tài liệu: Chia trang / Hợp nhất tài liệu / Lựa chọn xuất khẩu ở nhiều định dạng khác nhau (PDF/TXT/DOC/HTML...) / Chuyển đổi hàng loạt sang PDF / Xuất trang dưới dạng hình ảnh / In nhiều tập tin cùng một lúchữu ích. Cảm ơn !
✏ Chỉnh sửa nội dung: Tìm và thay thế hàng loạt trên nhiều tệp / Thay đổi kích thước tất cả hình ảnh / Hoán đổi hàng và cột của bảng / Chuyển bảng thành văn bảnhữu ích. Cảm ơn !
🧹 Dễ dàng làm sạch: Quét đi Không gian bổ sung / Phần ngắt / Tất cả các tiêu đề / Hộp văn bản / Các siêu liên kết / Để biết thêm các công cụ xóa, hãy truy cập Xóa nhómhữu ích. Cảm ơn !
➕ Phụ trang quảng cáo: Chèn Ngàn dấu phân cách / Hộp kiểm tra / Nút radio / Mã QR / Mã vạch / Bảng đường chéo / Chú thích phương trình / Hình ảnh Caption / Bảng chú thích / Nhiều Hình Ảnh / Khám phá thêm trong Chèn nhómhữu ích. Cảm ơn !
???? Lựa chọn chính xác: Xác định trang cụ thể / bảng / hình dạng / đoạn văn tiêu đề / Tăng cường điều hướng với chi tiết Chọn tính nănghữu ích. Cảm ơn !
⭐ Cải tiến sao: Điều hướng nhanh chóng đến bất kỳ vị trí nào / tự động chèn văn bản lặp đi lặp lại / chuyển đổi liền mạch giữa các cửa sổ tài liệu / 11 công cụ chuyển đổihữu ích. Cảm ơn !