如何访问MS Word表格属性，批量修改表格首选宽度及度量单位

可以通过Word VBA宏实现批量处理，以下是具体步骤和代码：

1. 编写VBA宏代码 #

打开Word的VBA编辑器，插入模块后粘贴以下代码：

Sub BatchModifyTableWidth()
    Dim fd As FileDialog
    Dim docPath As Variant
    Dim targetDoc As Document
    Dim tbl As Table
    ' 自定义参数：设置目标宽度和度量单位
    Dim targetWidth As Single
    Dim measureUnit As WdPreferredWidthType
    
    ' 示例：设置为100%宽度，度量单位选百分比
    targetWidth = 100
    measureUnit = wdPreferredWidthPercent
    
    ' 弹出文件选择框，多选要处理的Word文档
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    With fd
        .Title = "选择需要处理的Word文档"
        .Filters.Add "Word文档", "*.doc;*.docx"
        .AllowMultiSelect = True
        If .Show = -1 Then
            For Each docPath In .SelectedItems
                Set targetDoc = Documents.Open(docPath)
                ' 遍历当前文档所有表格
                For Each tbl In targetDoc.Tables
                    ' 设置度量单位和Preferred Width
                    tbl.PreferredWidthType = measureUnit
                    tbl.PreferredWidth = targetWidth
                Next tbl
                ' 保存修改并关闭文档
                targetDoc.Save
                targetDoc.Close
            Next docPath
            MsgBox "批量处理完成！"
        End If
    End With
    ' 释放对象
    Set fd = Nothing
    Set targetDoc = Nothing
End Sub

2. 调整参数 #

根据需求修改代码中的参数：

• 若要设置固定磅值：将measureUnit改为wdPreferredWidthPoints，targetWidth设为具体磅数（例如500）
• 若要设置百分比宽度：保持measureUnit = wdPreferredWidthPercent，targetWidth设为百分比数值（例如100）

3. 运行宏 #

• 打开Word，点击「开发工具」选项卡（未显示的话，在「文件-选项-自定义功能区」勾选「开发工具」）
• 点击「Visual Basic」（或按Alt+F11）打开编辑器
• 右键左侧「Normal」项目，选择「插入-模块」，粘贴代码
• 按F5运行宏，在弹出的窗口中选择要处理的所有doc/docx文档，等待处理完成

注意：运行前请备份所有目标文档，避免因异常导致数据丢失；若文档有保护密码，需先解除保护再处理。

内容的提问来源于stack exchange，提问作者Olgierd