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!