☰

Word：选择多个表格并按列排序

tag-icon • tag-icon microsoft-word vba macros
Word：选择多个表格并按列排序

我想知道是否可以从 Word 文件中选择多个表格并按列排序。通常我会选择一个表格并使用按列排序选项进行排序，但我的 Word 文件中有多个表格，我想使用 VBA。

我正在使用宏来选择所有表，但选项排序被禁用：

Sub selecttables()
Dim mytable As Table

For Each mytable In ActiveDocument.Tables
mytable.Range.Editors.Add wdEditorEveryone
Next
ActiveDocument.SelectAllEditableRanges (wdEditorEveryone)
ActiveDocument.DeleteAllEditableRanges (wdEditorEveryone)
End Sub

请发表任何评论，我将不胜感激

编辑

我希望这样可以避免出现总行

表格示例

答案1

使用For Each选择每个表是正确的开始。然后逐个对每个表进行排序，如下例所示：

    Dim mytable As Table
    For Each mytable In ActiveDocument.Tables
        mytable.Sort ExcludeHeader:=True, FieldNumber:="Column 1", _
            SortFieldType:=wdSortFieldAlphanumeric, SortOrder:=wdSortOrderAscending
    Next

相关内容