Home » ワードマクロ・Word VBAの使い方 » 表・テーブル » Word VBAで表内に結合セルがあるかどうかを判定する

Word VBAで表内に結合セルがあるかどうかを判定する

動作検証バージョン:Windows 11 Home + 64bit Word バージョン 2510(ビルド19328.20190クイック実行)

「word vba 表 セル結合 判定」
といった検索キーワードでアクセスがありました。

Word文書内の表に結合されているセルがあるかどうかをVBAで判定するには、どのようなコードを書けばいいのかを調べていらしたのでしょうか。

表内に結合セルがあるかどうかを判定するWordマクロ

以下のWordマクロが参考にしてください。

Sub 結合セルがあるかどうかを判定する()

 If Selection.Information(wdWithInTable) Then
  If Selection.Tables(1).Uniform Then
   MsgBox "選択されている表には、結合セルがありません。"
  Else
   MsgBox "選択されている表に、結合セルがあります!"
  End If
 End If

End Sub

Word VBAで表を表すTableオブジェクトにのUniformプロパティは、

表内のすべての行に同じ数の列があるときに、論理値Trueを返します。

表内のすべての行に同じ数の列があるということは、結合されているセルが1つもないということです。

[スポンサードリンク]

Home » ワードマクロ・Word VBAの使い方 » 表・テーブル » Word VBAで表内に結合セルがあるかどうかを判定する

「表・テーブル」の記事一覧

検索


Copyright © インストラクターのネタ帳 All Rights Reserved.

.