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

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:

doc di chuyển bảng chú thích 1

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ể.

doc di chuyển bảng chú thích 2

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 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 (0)
Chưa có xếp hạng. Hãy là người đầu tiên xếp hạng!
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