Office関連

選択中の表の行数を取得するWordマクロ

Word VBA 表 行数」といったキーワード検索でのアクセスがありました。

Wordマクロで表の行数を取得する方法を調べている方からのアクセスだと思いますが、実は表の行数はRows オブジェクトCount プロパティを使って簡単に取得することができます。

Public Sub CountSelTableRows()
  With Selection.Tables
    If .Count > 0 Then
      MsgBox "カーソル位置の表の行数は「" & .Item(1).Rows.Count & "」です。", vbSystemModal
    End If
  End With
End Sub

たとえば上記コードを実行すると、カーソル位置にある表の行数をMsgBoxで表示します。

CountSelTableRows_01

逆に列数を調べたいときは「Columns.Count」のように、Columns オブジェクトを利用します。

下記のようにすれば、選択中の文書にある表の行数を順番に取得することもできるので、マクロで表の行数を取得したい場合には是非お試しください。

Public Sub CountTableRows()
  Dim i As Long
  
  With ActiveDocument.Tables
    For i = 1 To .Count
      MsgBox i & "番目の表の行数は「" & .Item(i).Rows.Count & "」です。", vbSystemModal
    Next
  End With
End Sub

関連記事

  1. Office関連

    「ちゃうちゃう!」で2つの文書を比較するWordマクロ

    2014/08/10 追記:ちゃうちゃう!がバージョンアップされま…

  2. Office関連

    [VBA]CommandBars(“○○”).Controls.Addでメニ…

    Officeのユーザインタフェースがリボンに変わってから、下記のように…

  3. Office関連

    ZIP形式で圧縮・解凍を行うVBAマクロ

    この記事のように、処理の中でZIP形式のファイルを扱うことはありました…

  4. Office関連

    Outlook REST APIに会議室情報を取得するAPIが追加されました。

    松崎さんのツイートで、Outlook REST APIのベータエンドポ…

  5. Windows 10

    【2017年1月版】Microsoft Edgeを操作するVBAマクロ(DOM編)(2)

    昨日の記事で、Microsoft Edgeを操作するVBAコードを改め…

  6. Office関連

    Evernote Cloud SDKを使ったVBAマクロ

    3年ほど前にEvernote for Windowsを操作するVBAマ…

コメント

  1. この記事へのコメントはありません。

  1. この記事へのトラックバックはありません。

Time limit is exhausted. Please reload CAPTCHA.

最近の記事

アーカイブ

RapidSSL_SEAL-90x50
PAGE TOP