Could you help me create a control button/check box to enable user to delete a row?

[baes10]

I have here a skin form i use to track wounds. I have now a macro to create a new row when needed. I need help creating a check box or a button next two each row to enable deletion of the entire row. Could you help? Thanks!

[gmayor]

As your form already contains code to add a row, then delete all the rows except the first to begin with and only add the rows as you require them, however to address your question the following will delete the row the cursor is in.

Sub DeleteTableRow()
Dim oCC As ContentControl
    If Selection.Information(wdWithInTable) = True Then
        For Each oCC In Selection.Rows(1).Range.ContentControls
            oCC.LockContentControl = False
            oCC.Delete
        Next oCC
        Selection.Rows(1).Delete
    Else
        MsgBox "Selection is not in a table!"
    End If
End Sub

[baes10]

Originally Posted by gmayor

As your form already contains code to add a row, then delete all the rows except the first to begin with and only add the rows as you require them, however to address your question the following will delete the row the cursor is in.

Sub DeleteTableRow()
Dim oCC As ContentControl
    If Selection.Information(wdWithInTable) = True Then
        For Each oCC In Selection.Rows(1).Range.ContentControls
            oCC.LockContentControl = False
            oCC.Delete
        Next oCC
        Selection.Rows(1).Delete
    Else
        MsgBox "Selection is not in a table!"
    End If
End Sub

This is fantastic! May I ask one more question? I'd like to create a userform command button, to enable users to click and delete the rows as they wish in a protected form. None of the users will have a developer tool option. Basically, I need to make it as easy for the nurses to use as possible. Having the cursor in the row and being able to click the comman button to delete would be great. Hope this makes sense. Thank you!