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

Word文書で表のキャプションを上から下に、またはその逆に移動するにはどうすればよいですか?

Word文書で、各テーブルの下にキャプションが挿入されているテーブルが複数ある場合。 ただし、これらのキャプションをテーブルの下から上に移動したい場合があります。 このジョブをできるだけ早くバッチ処理するにはどうすればよいですか?

VBAコードを使用したWordで、テーブルのキャプションを下から上に、またはその逆に移動します


VBAコードを使用したWordで、テーブルのキャプションを下から上に、またはその逆に移動します

すべてのテーブルキャプションをテーブルの下から上に移動するには、次のVBAコードを使用してください。次のようにしてください。

1。 を押し続けます Alt + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

2に設定します。 OK をクリックします。 インセット > モジュール、モジュールウィンドウに次のマクロを貼り付けます。

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ファイルには、表、画像、または数式の表、画像、または数式のキャプションをXNUMXつずつ挿入する必要があります。 しかし、あなたが持っているなら WordのKutols's 複数のキャプション この機能を使用すると、すべての表、画像、または数式の表、画像、または数式のキャプションをできるだけ早く挿入できます。

ドキュメント移動テーブルのキャプション2

Kutools for Word:100以上の便利なWordアドインがあり、60日以内に制限なしで無料で試すことができます。 今すぐダウンロードして無料トライアルをクリックしてください!


推奨される単語生産性ツール

 

Kutools For Word-100を超えるWordの高度な機能で50%の時間を節約

  • 複雑で繰り返される操作は、数秒でXNUMX回の処理で実行できます。
  • 複数の画像をフォルダ間でWord文書に一度に挿入します。
  • フォルダ間で複数のWordファイルをマージして、希望の順序でXNUMXつに結合します。
  • 見出し、セクション区切り、またはその他の基準に従って、現在のドキュメントを個別のドキュメントに分割します。
  • DocとDocx、DocxとPDFの間でファイルを変換し、一般的な変換と選択のためのツールのコレクションなど...