空のテーブルセルにテキストを配置する(Microsoft Word)
Lilianaがドキュメントにテーブルを持っている場合、会社の要件では、テーブルの各セルに何かが含まれている必要があると規定されています。つまり、セルが空の場合は、ダッシュまたは「N / A」の文字が含まれている必要があります。リリアナは、テーブルの空のセルにダッシュまたは「N / A」のいずれかを自動的に配置できる方法があるかどうか疑問に思います。
これを行う唯一の方法は、マクロを使用することです。テーブル内の各セルをステップスルーし、そのセルに何が含まれているかを確認するセルを作成できます。
セルが空の場合、必要なテキストがセルに配置されます。
ドキュメント内のすべてのテーブルで機能し、各セルをチェックするマクロの例を次に示します。
Sub ProcCells1() Dim tTable As Table Dim cCell As Cell Dim sTemp As String sTemp = "N/A" For Each tTable In ActiveDocument.Range.Tables For Each cCell In tTable.Range.Cells 'An apparently empty cell contains an end of cell marker If Len(cCell.Range.Text) < 3 Then cCell.Range = sTemp End If Next Next Set oCell = Nothing Set tTable = Nothing End Sub
空のセルに「N / A」ではなくダッシュを含めることにした場合は、sTemp変数に配置されているテキストを変更するだけです。ドキュメント内のすべてのテーブルではなく、単一のテーブルで機能するマクロが必要な場合は、次のバリエーションが最適です。
Sub ProcCells2() Dim tTable As Table Dim cCell As Cell Dim sTemp As String sTemp = "N/A" If Selection.Information(wdWithInTable) Then Set tTable = Selection.Tables(1) For Each cCell In tTable.Range.Cells 'An apparently empty cell contains an end of cell marker If Len(cCell.Range.Text) < 3 Then cCell.Range = sTemp End If Next End If Set oCell = Nothing Set tTable = Nothing End Sub
このバリエーションを使用するには、マクロを実行する前に、挿入ポイントが処理するテーブル内にあることを確認してください。
マクロを使用したくない場合は、別のアプローチを検討できます。情報を入力する前に、テーブルに目的のダッシュまたは「N / A」テキストが含まれていることを確認してください。すべてのセルにダッシュまたは「N / A」を含むテーブルテンプレートを作成し、セルに他の情報を配置するときに、デフォルトのテキストを削除するだけです。 (テーブルテンプレートを設定するさまざまな方法は、_WordTips_の他の問題で説明されています。)
注:
このページ(または_WordTips_サイトの他のページ)で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。
link:/ wordribbon-WordTipsMacros [ここをクリックして、新しいブラウザタブでその特別なページを開きます]
。
_WordTips_は、費用効果の高いMicrosoftWordトレーニングのソースです。
(Microsoft Wordは、世界で最も人気のあるワードプロセッシングソフトウェアです。)このヒント(10772)は、Microsoft Word 97、2000、2002、および2003に適用されます。Wordのリボンインターフェイス(Word 2007)用のこのヒントのバージョンを見つけることができます。以降)ここ:
link:/ wordribbon-Placing_Text_in_Empty_Table_Cells [空のテーブルセルにテキストを配置する]
。