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 このコードを実行するためのキー。すべてのテーブルキャプションがテーブルの下から上に移動されました。スクリーンショットを参照してください。
Note:テーブルのキャプションを各テーブルの上から下に移動するには、次の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 複数のキャプション この機能を使用すると、すべての表、画像、または数式の表、画像、または数式のキャプションをできるだけ早く挿入できます。 Kutools for Word:100以上の便利なWordアドインがあり、60日以内に制限なしで無料で試すことができます。 今すぐダウンロードして無料トライアルをクリックしてください! |
最高のオフィス生産性向上ツール
Kutools for Word - Over で単語体験を向上させましょう 100 注目すべき機能!
🤖 Kutools AI アシスタント: AI であなたの文章を変革します - コンテンツを生成する / テキストを書き換える / 文書を要約する / 情報のお問い合わせ 文書に基づいて、すべて Word 内で
📘 ドキュメントマスタリー: 分割ページ / ドキュメントをマージする / 選択内容をさまざまな形式でエクスポート (PDF/TXT/DOC/HTML...) / PDFへの一括変換 / ページを画像としてエクスポート / 複数のファイルを一度に印刷する...
✏ コンテンツ編集: バッチ検索と置換 複数のファイルにわたる / すべての画像のサイズを変更する / テーブルの行と列を転置する / 表をテキストに変換...
🧹 楽にお掃除:振り払って 余分なスペース / セクションブレーク / すべてのヘッダー / テキストボックス / ハイパーリンク / その他の取り外しツールについては、当社の Web サイトをご覧ください。 グループを削除...
➕ クリエイティブインサート:挿入 千の区切り文字 / チェックボックス / ラジオボタン / QRコード / バーコード / 斜線テーブル / 方程式のキャプション / 画像キャプション / テーブルキャプション / 複数の写真 / 詳細については、 グループを挿入...
🔍 正確な選択: ピンポイント 特定のページ / テーブル / シェイプ / 見出し段落 / ナビゲーションを強化する 他には? 機能の選択...
⭐ スターの強化: あらゆる場所に素早く移動 / 繰り返しのテキストを自動挿入 / ドキュメントウィンドウをシームレスに切り替える / 11 変換ツール...