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関連

    Office製品の開発者用リファレンス(ダウンロード版)

    Docs.comでまとめていたリンクなんですが、来月15日にすべて廃止…

  2. Office関連

    Instagram APIをVBAから呼び出してみる。

    最近画像共有系のSNS、Instagram(インスタグラム)を使い始め…

  3. Office関連

    「NetOffice」で簡単に.NETからOfficeを操作

    ネットで「NetOffice」なるツールがあることを知ったので、早速試…

  4. Office関連

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

    前々回の記事でOffice 365とAzure ADの紐づけを、前回の…

  5. Office関連

    SkyDriveの同期フォルダーのパスを取得するマクロ

    前回の記事ではSkyDriveの同期フォルダーのパスを取得するWord…

  6. Office関連

    CDOを使ってGmail送信を行うVBAマクロ

    「VBA Gmail 送信」といったキーワード検索で、「Gmail A…

コメント

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

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

Time limit is exhausted. Please reload CAPTCHA.

Translate

Chinese (Simplified)Chinese (Traditional)EnglishFrenchGermanJapaneseKoreanRussianSpanish

最近の記事

アーカイブ

PAGE TOP