Thread: [Solved] Word Macro to search all tables
View Single Post
 
Old 04-02-2011, 05:51 PM
macropod's Avatar
macropod macropod is offline Windows 7 32bit Office 2000
Administrator
  
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 22,467
macropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond repute
Default
Hi silverspr,

Try:
Code:
Sub Demo()
Dim oTbl As Table, i As Integer, j As Integer
For Each oTbl In ActiveDocument.Tables
  With oTbl
    j = .Columns.Count
    For i = 1 To .Rows.Count - 1
      .Cell(i, j).Range.Text = "0"
    Next
  End With
Next
End Sub
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
Reply With Quote