Word (VBA)

Word VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(指定なし : 指定なし)
Re:「入れ子状態の表での列番号」のストロベリーさんへ
投稿日時: 21/06/28 15:52:47
投稿者: んなっと

こうですよ。
 
【表内の「けこ」という文字列を検索する例】
 
Sub test()
  Dim r As Range
  Dim t As Table
  Set r = ActiveDocument.Range(0, 0)
  With r.Find
    .Text = "けこ"
    If .Execute Then
      If r.Information(wdWithInTable) Then
        Set t = r.Tables(1)
        Do Until t.NestingLevel = 1
          Set r = t.Range
          r.Collapse wdCollapseEnd
          Set t = r.Tables(1)
        Loop
        MsgBox r.Information(wdEndOfRangeColumnNumber) & "列目"
      End If
    End If
  End With
End Sub

投稿日時: 21/06/28 15:53:06
投稿者: んなっと

豚汁。