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の「複数のキャプション」機能を使用すれば、すべての表、画像、または数式に対して可能な限り迅速にキャプションを挿入できます。 Kutools for Word は、作業を効率化し、文書処理スキルを向上させる究極の Word アドインです。今すぐ入手してください! |
最高のオフィス生産性ツール
Kutools for Word - Wordの体験を100以上の素晴らしい機能で向上させましょう!
🤖 Kutools AI機能: AIアシスタント / リアルタイムアシスタント / スーパー ポリッシュ (形式を保持) / スーパー トランスレート (形式を保持) / AI編集 / AI校正...
📘 文書のマスタリー: ページの分割 / 文書の結合 / 様々な形式で選択をエクスポート (PDF/TXT/DOC/HTML...) / 一括PDF変換...
✏ 内容の編集: 複数ファイルにわたる一括検索と置換 /すべての画像をリサイズ / 表の転置 / 表をテキストに変換...
🧹 簡単なクリーンアップ:余分なスペース / セクション区切り / テキストボックス / ハイパーリンクを一掃 / その他の削除ツールは削除グループへ...
➕ 創造的な挿入: 千の区切りを挿入 / チェックボックス / ラジオボタン / QRコード / バーコード / 複数の画像 / 挿入グループでさらに発見...
🔍 精密な選択: 特定のページ / 表 / 図形 / 見出し段落を特定 / より多くの 選択 機能でナビゲーションを強化...
⭐ スター強化: 任意の場所に移動 / 繰り返しテキストを自動挿入 / 文書ウィンドウ間を切り替え /11 の変換ツール...

最高のオフィス生産性ツール
Kutools for Word - 100+ Word用ツール
- 🤖 Kutools AI機能: AIアシスタント / リアルタイムアシスタント / スーパー ポリッシュ / スーパー トランスレート / AI編集 / AI校正
- 📘 文書のマスタリー: ページの分割 / 文書の結合 / 一括PDF変換
- ✏ 内容の編集: 一括検索と置換 /すべての画像をリサイズ
- 🧹 簡単なクリーンアップ:余分なスペースを削除 / セクション区切りを削除
- ➕ 創造的な挿入: 千の区切りを挿入 / チェックボックスを挿入 / QRコードを作成