Word 문서에서 표 캡션을 위에서 아래로 또는 그 반대로 이동하는 방법은 무엇입니까?

Word 문서에서 각 표 아래에 캡션이 삽입 된 표가 여러 개있는 경우 그러나 때로는 이러한 캡션을 표의 아래에서 위로 이동할 수 있습니다. 이 작업을 최대한 빨리 처리하려면 어떻게해야합니까?

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

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

모든 테이블 캡션을 테이블 아래에서 위로 이동하려면 다음 VBA 코드를 사용하십시오.

1. 누르고 ALT + F11 키를 눌러 응용 프로그램 용 Microsoft Visual Basic 창.

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 키를 눌러이 코드를 실행하고 모든 테이블 캡션이 테이블 아래에서 위로 이동되었습니다. 스크린 샷을 참조하십시오.

문서 이동 테이블 캡션 1

주의 사항: 테이블 캡션을 각 테이블의 위에서 아래로 이동하려면 다음 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 파일에 하나씩 삽입해야합니다. 그러나 만약 당신이 Word 용 Kutols's 여러 캡션 기능을 사용하면 모든 표, 이미지 또는 방정식에 대해 가능한 한 빨리 표, 이미지 또는 방정식 캡션을 삽입 할 수 있습니다.

문서 이동 테이블 캡션 2