Wordに表を挿入すると、表のセルごとに境界線が自動的に作成されます。この境界線は1本の線で、重量は0.5ポイントです。残念ながら、Wordには、テーブルの作成時に使用するデフォルトの線幅を変更する方法がありません。 [境界線と陰影]ダイアログボックスで線幅を選択できるのは事実ですが、新しいテーブルを挿入すると、この太さは0.5ポイントにリセットされます。

4分の3ポイントなど、他の線幅が必要な場合は、問題があります。新しいテーブルを手動で選択し、境界線をフォーマットして、希望の幅になるようにする必要があります。たくさんのテーブルで作業する場合、これはすぐに面倒になる可能性があります。もちろん、テーブルスタイルを作成することもできますが、行幅を変更するだけの場合や、明示的な書式が多数適用されているドキュメントで作業している場合は、テーブルスタイルを適用すると結果が不均一になる可能性があります。テーブル。

おそらく、この問題を回避する最善の方法は、マクロを作成することです。これは最も理想的な解決策ではないかもしれませんが、ドキュメント内のすべてのテーブルを手動で変更するよりも確かに簡単です。

次のマクロFixCellBordersは、ドキュメント内のすべてのテーブルのすべてのセルをステップスルーし、最小線の太さが4分の3ポイントであることを確認します。これは、現在の回線設定を確認し、必要な場合にのみ調整を行うことによって行われます。

Sub FixCellBorders()

On Error Resume Next     ' Work through all tables in document     For Each objTable In ActiveDocument.Tables         ' Work through all cells in each table         For Each objCell In objTable.Range.Cells             ' Work through all borders in each cell             For Each objBorder In objCell.Borders                 ' Check if line weight is less than 0.75 pt                 If objBorder.LineWidth = wdLineWidth025pt _                   Or objBorder.LineWidth = wdLineWidth050pt Then                     ' too thin, change it                     objBorder.LineWidth = wdLineWidth075pt                 End If             Next objBorder         Next objCell     Next objTable End Sub

ご想像のとおり、このマクロは、ドキュメントのすべてのテーブルのすべてのセルの4つの境界線すべてを調べるため、それほど高速ではありません。ただし、利点は、マクロが1/4または1/2ポイントにあるセル境界の重みのみを変更することです。これは、異なる線幅に対して行った手動フォーマットは変更されないことを意味します。

もう少し高速なマクロを探している場合は、次の(FixTableBorders)でうまくいきます。個々のセルを見る代わりに、テーブル全体で機能します。ただし、違いは、1本の線を使用して、すべてのテーブルのすべての境界線を4分の3ポイントにリセットすることです。ただし、これがニーズに合っている場合は、間違いなく簡単(高速)な方法です。

Sub FixTableBorders()

On Error Resume Next     For Each objTable In ActiveDocument.Tables         With objTable             With .Borders(wdBorderLeft)

.LineStyle = wdLineStyleSingle                 .LineWidth = wdLineWidth075pt             End With             With .Borders(wdBorderRight)

.LineStyle = wdLineStyleSingle                 .LineWidth = wdLineWidth075pt             End With             With .Borders(wdBorderTop)

.LineStyle = wdLineStyleSingle                 .LineWidth = wdLineWidth075pt             End With             With .Borders(wdBorderBottom)

.LineStyle = wdLineStyleSingle                 .LineWidth = wdLineWidth075pt             End With             With .Borders(wdBorderHorizontal)

.LineStyle = wdLineStyleSingle                 .LineWidth = wdLineWidth075pt             End With             With .Borders(wdBorderVertical)

.LineStyle = wdLineStyleSingle                 .LineWidth = wdLineWidth075pt             End With         End With     Next objTable End Sub

注:

このページ(または_WordTips_サイトの他のページ)で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

link:/ wordribbon-WordTipsMacros [ここをクリックして、新しいブラウザタブでその特別なページを開きます]

_WordTips_は、費用効果の高いMicrosoftWordトレーニングのソースです。

(Microsoft Wordは、世界で最も人気のあるワードプロセッシングソフトウェアです。)このヒント(13081)は、Microsoft Word 2007、2010、2013、2016、2019、およびOffice 365のWordに適用されます。このヒントのバージョンは、ここにWordの古いメニューインターフェイス:

link:/ word-Setting_a_Default_Table_Border_Width [デフォルトのテーブル境界線幅の設定]