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 ファイルでは表や画像、数式のキャプションを1 つずつ手動で挿入する必要があります。しかし、Kutools for Wordの複数のキャプション機能を使えば、すべての表、画像、数式にキャプションを一括で、驚くほど素早く挿入できます。 Word で同じ作業をもっとスピーディーにこなしたいですか？ぜひKutools for Word をお試しください。日々の業務がぐっとラクに。 ダウンロード詳細はこちら