パディングが一様でない1つまたはすべてのテーブルのためのワードセルパディングのリセット

tableを他の場所からの単語にインポートするときには、セルパディングがtable内で可変であるときにかなりの努力に行く必要がある場合には、tableをかなりの努力に行くときに発見されました.

レイアウト>セルマージンはtableのデフォルトを設定しますが、「table全体」のデフォルトではないセルのいずれかを変更しません.私は問題を引き起こしているセルに行く必要があり、tableのプロパティ>セルオプションに移動してチェックする必要があります.
「table全体と同じ」.これは非常に面倒なことがあります.

私は少し運でトリックをするかもしれないいくつかのVBAコードのためにインターネットをScanしました."ActiveDocument.tables(1).toppadding= CencimeterStopoints(0.15)"または "selection.tables(1).topPadding= CentimeterStopoints(0.15)"などはすべてtableでうまく機能します.
セルパディングは均一で、すべて同じデフォルト値「table全体と同じ」に設定されています.

水平統合されたセルでさえ、私が働いた唯一のVBAコードは次のとおりです(ただし、これが機能しないことがわかりました):

サブSetCellPAddingHmerged()

'

'table内のすべてのセルをDefaut Paddingに設定します(0cmのトップ&ボトム&ボトム&0.19cm左右).

'選択された通常のまたは水平に併合されたtableで動作します.

'

Dim Nrow、NColumn、TBLROWS、TBLColumns
整数

selection.tables(1).選択

tblrows= selection.rows.count

Nrow= 1の場合
TBLROWS

tblColumns= selection.rows(NROW).cells.count

ncolumn= 1の場合
tblColumns

selection.cells(ncolumn)

.topPadding= CentimeterStopoints(0)

.bottompadding= CentimeterStopoints(0)

.leftpadding= CencimeterStopoints(0.19)

・reghtpadding= CentimeterStopoints(0.19)

次のncolumn

次のNrow

終わり
サブ

細胞が異種の「デフォルトの」パディングにすべてのtableセルを設定する迅速で簡単な方法があり、各セルを一度に1つずつ設定するためのコードは必要ありませんか?