自定义命名表格创建宏及锁定文档行编辑宏开发需求问询

一、带自定义名称的表格创建宏 #

这个宏会自动处理文档锁定状态，先解锁文档，弹出输入框让你指定表格名称，创建表格后绑定自定义名称，最后重新锁定文档。

Sub 创建自定义命名表格()
    Dim doc As Document
    Dim tbl As Table
    Dim tblName As String
    
    Set doc = ActiveDocument
    
    ' 解锁文档（如果处于保护状态）
    If doc.ProtectionType <> wdNoProtection Then
        doc.Unprotect Password:="" ' 有密码则替换为空字符串为实际密码
    End If
    
    ' 获取用户输入的表格名称
    tblName = InputBox("请输入表格的自定义名称：", "表格命名")
    If tblName = "" Then Exit Sub ' 用户取消输入则终止流程
    
    ' 创建表格（示例为3行5列，可按需修改行数、列数）
    Set tbl = doc.Tables.Add(Range:=Selection.Range, NumRows:=3, NumColumns:=5)
    
    ' 设置表格自定义名称
    tbl.Name = tblName
    
    ' 重新锁定文档（保持原保护类型，示例为仅允许填写表单）
    doc.Protect Type:=wdAllowOnlyFormFields, NoReset:=True, Password:=""
End Sub

二、指定表格编辑宏 #

通过自定义名称快速定位目标表格，解锁文档后允许你增删行编辑，完成操作后自动重新锁定文档。

Sub 编辑指定名称表格()
    Dim doc As Document
    Dim tbl As Table
    Dim targetName As String
    
    Set doc = ActiveDocument
    
    ' 获取要编辑的表格名称
    targetName = InputBox("请输入要编辑的表格名称：", "选择目标表格")
    If targetName = "" Then Exit Sub
    
    ' 根据名称查找目标表格
    On Error Resume Next
    Set tbl = doc.Tables(targetName)
    On Error GoTo 0
    
    If tbl Is Nothing Then
        MsgBox "未找到名称为'" & targetName & "'的表格！", vbExclamation
        Exit Sub
    End If
    
    ' 解锁文档
    If doc.ProtectionType <> wdNoProtection Then
        doc.Unprotect Password:=""
    End If
    
    ' 定位到目标表格，方便用户操作
    tbl.Range.Select
    MsgBox "现在可编辑表格（增删行等），完成后点击确定重新锁定文档。", vbInformation
    
    ' 重新锁定文档
    doc.Protect Type:=wdAllowOnlyFormFields, NoReset:=True, Password:=""
End Sub

注意事项 #

• 若文档保护设置了密码，需将代码中Password:=""替换为实际密码字符串
• 创建表格的行数、列数可通过修改NumRows和NumColumns参数调整
• 表格名称不能包含特殊字符，且不可与现有表格重名，否则会触发报错

内容的提问来源于stack exchange，提问作者Ryan Data Guy