View Single Post
 
Old 04-20-2016, 03:30 PM
gmaxey gmaxey is offline Windows 7 32bit Office 2010 (Version 14.0)
Expert
 
Join Date: May 2010
Location: Brasstown, NC
Posts: 1,598
gmaxey is just really nicegmaxey is just really nicegmaxey is just really nicegmaxey is just really nicegmaxey is just really nice
Default

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oTbl As Table
Dim lngRow As Long
Dim oCC As ContentControl
Set oTbl = ActiveDocument.Tables(1)
lngRow = CLng(InputBox("What row?"))
For Each oCC In oTbl.Rows(lngRow).Range.ContentControls
oCC.LockContentControl = False
oCC.LockContents = False
Next
oTbl.Rows(lngRow).Delete
oTbl.Range.Fields.Update 'I assume you have numbered the rows with a Seq Field.
lbl_Exit:
Exit Sub
End Sub
__________________
Greg Maxey
Please visit my web site at http://www.gregmaxey.com/
Reply With Quote