Word文書中にある表の数を数えて、カーソルを移動させます。
▼このマクロでできること
Word文書中の表の数を表示して、OKボタンを押す度に、カーソルを次の表に移動させます。
ただし、開いている文書中で最後の表になっても、次の表を探そうとしますので、注意が必要です。
![みんなのワードマクロ](https://stat.ameba.jp/user_images/20111201/16/gidgeerock/a9/0c/p/t02200167_0308023411645359702.png?caw=800)
▼マクロの解説
メッセージボックスの表示は、「メッセージボックスの目次 」でご紹介した記事の通りです。
ボタンやアイコンを設定できますね。
青文字部分で、次の表までカーソルを移動させます。
Word文書中の表を探す方法 でご紹介したジャンプ機能ですね。
▼マクロ
Sub Tables()
Dim myMessage As String 'メッセージの内容
Dim myTitle As String 'タイトル
Dim myStyle As String 'ボタン
Dim myAnswer As String
myMessage = "表の数:" & ActiveDocument.Tables.Count & vbCr & _
"次の表を探しますか?"
myTitle = "表探しマクロ"
myStyle = vbQuestion Or vbOKCancel
Do
myAnswer = MsgBox(myMessage, myStyle, myTitle)
Select Case myAnswer
Case vbOK
With Application.Browser
.Target = wdBrowseTable
.Next
End With
Case vbCancel
Exit Do
End Select
Loop
End Sub
▼関連記事
Word文書中の表を探す方法
メッセージボックスの目次
マクロコードの登録方法
ツールバーのボタン登録