Microsoft Office Forums - View Single Post - How do I on MS Word VBA add and remove rows in the tables using command button macros?

gmayor · 06-28-2021, 08:38 PM

Ideally a form with content controls should be protected as readonly with editors added to the content controls, but you can protect it for forms. The code for both is included

Code:

Option Explicit
Const sPassword As String = "password"
Private oCC As ContentControl
Private oTable As Table
Private oRng As Range

Private Sub CommandButton1_Click()

    If Not ActiveDocument.ProtectionType = wdNoProtection Then
        ActiveDocument.Unprotect sPassword
    End If
    Set oTable = ActiveDocument.Tables(3)
    For Each oCC In oTable.Range.ContentControls
        oCC.LockContentControl = False
    Next oCC
    oTable.Rows.Last.Range.Copy
    Set oRng = oTable.Range
    oRng.Collapse 0
    oRng.Paste
    oRng.ContentControls(1).DropdownListEntries.Item(1).Select
    For Each oCC In ActiveDocument.Range.ContentControls
        oCC.LockContentControl = True
    '    oCC.Range.Editors.Add (wdEditorEveryone)
    Next oCC
    'ActiveDocument.Protect wdAllowOnlyReading, , sPassword
    ActiveDocument.Protect wdAllowOnlyFormFields, , sPassword
    Set oCC = Nothing
    Set oTable = Nothing
    Set oRng = Nothing
End Sub

Private Sub CommandButton2_Click()
    If Not ActiveDocument.ProtectionType = wdNoProtection Then
        ActiveDocument.Unprotect sPassword
    End If
    Set oTable = ActiveDocument.Tables(3)
    For Each oCC In oTable.Range.ContentControls
        oCC.LockContentControl = False
    Next oCC
    oTable.Rows.Last.Delete
    For Each oCC In ActiveDocument.Range.ContentControls
        oCC.LockContentControl = True
        'oCC.Range.Editors.Add (wdEditorEveryone)
    Next oCC
    ActiveDocument.Protect wdAllowOnlyFormFields, , sPassword
    'ActiveDocument.Protect wdAllowOnlyReading, , sPassword
    Set oCC = Nothing
    Set oTable = Nothing
End Sub