Delete rows from a table
in [Word VBA]
|
Prev: Word Developer Help content lost (links to 2010?) - 2007 user
Next: Different fonts in footer when using "Footers(wdHeaderFooterFirstPage).Range" - XP SP3, Word 2003 SP2
From: SoNew2This on 1 May 2010 16:16 What I'd like to do is delete rows from a table if a specific cell does not equal a certain value. I'm don't even know where to start, so several helpful hints would be appriciated.
From: Greg Maxey on 1 May 2010 16:46 Sub ScratchMaco() Dim oTbl As Word.Table Dim oRow As Word.Row Dim oCell As Word.Cell Dim oRng As Word.Range Set oTbl = Selection.Tables(1) 'The table the IP is located in For Each oRow In oTbl.Rows Set oCell = oRow.Cells(2) 'The specific cell (e.g., second cell in row) Set oRng = oCell.Range oRng.End = oRng.End - 1 'Strip end of cell marker If oRng.Text <> "Test" Then 'The test text oRow.Delete End If Next oRow End Sub SoNew2This wrote: > What I'd like to do is delete rows from a table if a specific cell > does not equal a certain value. I'm don't even know where to start, > so several helpful hints would be appriciated.
From: Fumei2 via OfficeKB.com on 3 May 2010 14:28 How specific a cell???? Sub IfNotX() Dim oTbl As Table Dim oCell As Cell Set oTbl = ActiveDocument.Tables(1) ' or Greg's Set oTbl = Selection.Tables(1) 'The table the IP is located in For Each oCell In oTbl.Range.Cells If CellText(oCell) = 50 Then oTbl.Rows(oCell.RowIndex).Delete End If Next End Sub will delete ANY row, if ANY cell in that row = 50. Note the use of the CellText function (passing in the cell as an object). Also note that it uses Range.Cells - plural; rather than Table.Cell - (singular) (row, column) Gerry Greg Maxey wrote: >Sub ScratchMaco() >Dim oTbl As Word.Table >Dim oRow As Word.Row >Dim oCell As Word.Cell >Dim oRng As Word.Range >Set oTbl = Selection.Tables(1) 'The table the IP is located in >For Each oRow In oTbl.Rows > Set oCell = oRow.Cells(2) 'The specific cell (e.g., second cell in row) > Set oRng = oCell.Range > oRng.End = oRng.End - 1 'Strip end of cell marker > If oRng.Text <> "Test" Then 'The test text > oRow.Delete > End If >Next oRow >End Sub > >> What I'd like to do is delete rows from a table if a specific cell >> does not equal a certain value. I'm don't even know where to start, >> so several helpful hints would be appriciated. -- Gerry Message posted via OfficeKB.com http://www.officekb.com/Uwe/Forums.aspx/word-programming/201005/1
From: SoNew2This on 8 May 2010 14:38 This worked as I was hoping, but for some reason I need to place the cursor within the first cell of the table. Shouldn't the 'Set oTbl = Selection.Tables(1)' do this? If not how can I get the cursor into the first cell so this code will work? "Greg Maxey" wrote: > Sub ScratchMaco() > Dim oTbl As Word.Table > Dim oRow As Word.Row > Dim oCell As Word.Cell > Dim oRng As Word.Range > Set oTbl = Selection.Tables(1) 'The table the IP is located in > For Each oRow In oTbl.Rows > Set oCell = oRow.Cells(2) 'The specific cell (e.g., second cell in row) > Set oRng = oCell.Range > oRng.End = oRng.End - 1 'Strip end of cell marker > If oRng.Text <> "Test" Then 'The test text > oRow.Delete > End If > Next oRow > End Sub > > > > SoNew2This wrote: > > What I'd like to do is delete rows from a table if a specific cell > > does not equal a certain value. I'm don't even know where to start, > > so several helpful hints would be appriciated. > > > . >
From: Jay Freedman on 8 May 2010 15:43
The expression 'Selection.Tables(1)' means 'the first (usually the only) table within the selected text'. That's different from ActiveDocument.Tables(1), which means 'the first table in the document'. Since the document might have more than one table, Greg's macro depends on you putting the cursor in the table you want the macro to work on. If you know there is only one table in the document, or if you always want to work on only the first table, then you can change the line in the macro to say Set oTbl = ActiveDocument.Tables(1). Otherwise, you'll have to figure out some other way for the macro to 'know' which table is the right one. -- Regards, Jay Freedman Microsoft Word MVP FAQ: http://word.mvps.org Email cannot be acknowledged; please post all follow-ups to the newsgroup so all may benefit. On Sat, 8 May 2010 11:38:01 -0700, SoNew2This <SoNew2This(a)discussions.microsoft.com> wrote: >This worked as I was hoping, but for some reason I need to place the cursor >within the first cell of the table. Shouldn't the 'Set oTbl = >Selection.Tables(1)' do this? If not how can I get the cursor into the first >cell so this code will work? > >"Greg Maxey" wrote: > >> Sub ScratchMaco() >> Dim oTbl As Word.Table >> Dim oRow As Word.Row >> Dim oCell As Word.Cell >> Dim oRng As Word.Range >> Set oTbl = Selection.Tables(1) 'The table the IP is located in >> For Each oRow In oTbl.Rows >> Set oCell = oRow.Cells(2) 'The specific cell (e.g., second cell in row) >> Set oRng = oCell.Range >> oRng.End = oRng.End - 1 'Strip end of cell marker >> If oRng.Text <> "Test" Then 'The test text >> oRow.Delete >> End If >> Next oRow >> End Sub >> >> >> >> SoNew2This wrote: >> > What I'd like to do is delete rows from a table if a specific cell >> > does not equal a certain value. I'm don't even know where to start, >> > so several helpful hints would be appriciated. >> >> >> . >> |