Word 문서에서 테이블 캡션을 위에서 아래로 또는 그 반대로 이동하려면 어떻게 해야 하나요？

Word 문서에 각 표 아래에 캡션 삽입이 있는 여러 개의 표가 있을 수 있습니다。 그러나 때때로 이러한 캡션을 표 아래에서 위로 이동하고 싶을 수 있습니다。 이 작업을 가능한 한 빠르게 일괄 처리하려면 어떻게 해야 할까요？

VBA 코드를 사용하여 Word 에서 테이블 캡션을 아래에서 위로 또는 그 반대로 이동하기

---

VBA 코드를 사용하여 Word 에서 테이블 캡션을 아래에서 위로 또는 그 반대로 이동하기

모든 테이블 캡션을 표 아래에서 위로 이동하려면 다음 VBA 코드가 도움이 됩니다。 아래와 같이 진행하세요：

1.ALT + F11키를 누른 상태로Microsoft Visual Basic for Applications창을 엽니다。

2.삽입>모듈을 클릭한 후 다음 매크로를 모듈 창에 붙여넣습니다。

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。 그런 다음F5키를 눌러 이 코드를 실행하면 모든 테이블 캡션이 표 아래에서 위로 이동됩니다。 스크린샷 참조：

참고： 각 표 위에서 아래로 테이블 캡션을 이동하려면 다음 VBA 코드를 적용하세요：

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

---

Word 문서에 여러 개의 표， 그림 또는 수식 캡션을 한 번에 삽입합니다 일반적으로 Word 파일에서 표， 그림 또는 수식 캡션를 하나씩 삽입해야 합니다。 하지만Kutools for Word의다중 캡션기능을 사용하면 모든 표， 이미지 또는 수식에 대한 표， 이미지 또는 수식 캡션을 가능한 한 빠르게 삽입할 수 있습니다。 Word 에서 유사한 작업을 더 빠르게 처리하고 싶으신가요? Kutools for Word 을(를) 사용해 보시고 일상 업무를 간소화하세요。 다운로드자세히 알아보기