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

[OneNote]クリップボードから新しいページに貼り付け前のページ

2014年9月の人気記事次のページ

関連記事

  1. Office関連

    PowerShellからNetOfficeを使ってExcelを操作する方法

    先日、Excel MVPの伊藤さんがPowerShellからExcel…

  2. Office関連

    Office 365 APIをVBAから呼び出す(1)

    2015年4月に公開されたOffice Teamのブログ記事「Toda…

  3. Office関連

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

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

  4. Office関連

    [PowerPoint]シェイプの名前を指定して「変形」ができるようになりました。

    PowerPoint 2016で新しい画面切り替え効果「変形」が追加さ…

  5. Office関連

    「2014年12月のWindows Update以降コマンドボタンが使えなくなった」トラブルへのFi…

    当ブログでも「KB2553154の更新プログラムをアンインストールする…

コメント

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

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

Time limit is exhausted. Please reload CAPTCHA.

※本ページはプロモーションが含まれています。

Translate

最近の記事

アーカイブ

PAGE TOP