Wordテーブルのセルに収まるようにコンテンツを調整する2つの方法

この記事では、Wordテーブルのセルに収まるようにコンテンツを調整する2つの簡単な方法を共有したいと思います。

Word文書でテーブルを処理する場合、すべてのテーブルセルが固定サイズのままであることを保証するのは困難です。 通常、セルに入力する単語が増えると、テキストが自動的に折り返されます。 以下に例を示します。

これは確かに人目を引くものではありません。 テーブルのサイズを修正し、内容をそれに合わせる方法を見つけるのはどうですか？

利用可能な2つの方法は次のとおりです。

方法1：テーブルをXNUMX回設定する

1. まず、表の左上隅にあるプラス記号をクリックして選択します。
2. 次に、選択したテーブルを右クリックします。
3. 次に、「テーブルのプロパティ」を選択します。
4. 次に、[テーブルのプロパティ]ダイアログボックスで、最初に[セル]タブをクリックします。
5. 次に、ボックスの右下隅にある[オプション]をクリックします。
6. 次に、「セルオプション」ダイアログボックスを開きます。 「オプション」の部分に移動し、「テキストを折り返す」ボックスをクリアします。
7. 代わりに、[テキストに合わせる]チェックボックスをオンにします。
8. 次に「OK」をクリックします。
9. また、[テーブルのプロパティ]ダイアログボックスでも[OK]をクリックすることを忘れないでください。

これで、コンテンツのレイアウトがそれに応じて変更されます。 これがあなたが得るものです：

方法2：VBAコードを利用する

WordのVBAエディターを使用すると、コードを入力して独自のWord機能をカスタマイズし、すばやくきちんと仕事をこなすことができます。 したがって、コードを快適に使用して奇跡を起こすことができます。

1. まず最初に、「開発者」タブをクリックしてください。まだ表示されていない場合は、こちらの記事を参照してください。 Word文書にBGMを挿入する方法
2. 次に、「VisualBasic」をクリックしてVBAエディターを開きます。
3. VBAエディターで、その後にドキュメント名が付いているプロジェクトを見つけて、[ThisDocument]をクリックします。
4. 次に、ツールバーの「挿入」をクリックします。
5. そして、メニューから「モジュール」を選択します。
6. ここで編集領域を開き、そこにコードを貼り付けるだけです。

Sub AutoFitTextForAllTableCells()
  ' Check if there are any tables in the document
  If ActiveDocument.Tables.Count > 0 Then
    Dim objTable As Table
    Dim objCell As Cell

    ' Process each cell in each table and set the options accordingly
    For Each objTable In ActiveDocument.Tables
      For Each objCell In objTable.Range.Cells
        objCell.WordWrap = False
        objCell.FitText = True
      Next
    Next
  Else
    MsgBox("There is no table in this document!")
  End If
End Sub

差し迫った障害に備える

インシデントは常にあなたを不意を突かせるでしょう。 ですから、最善の方法は時間をかけて準備をすることです。 予防策には、ファイルをバックアップしたり、お金を払ってお金を稼いだりすることが含まれます。 破損したWordドキュメント回復ツール。 データの損失はどこでも誰にでも起こり得るので、何かをする時が来ました。

著者紹介：

Vera Chenは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。 Excelデータエラー修正ツール (NAIST) と pdf ソフトウェア製品を修理します。 詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com