GJMNZ66 发表于 2024-11-12 16:06

表格通用代码之选中后调整或删除

选中区域表格按窗口和内容调整Sub 表格根据窗口调整()
Dim 表格 As Table
For Each 表格 In Selection.Tables
    表格.AutoFitBehavior (2)
Next
End Sub
Sub 表格根据内容调整()
Dim 表格 As Table
For Each 表格 In Selection.Tables
    表格.AutoFitBehavior (1)
Next
End Sub

选中区域删除表格
Sub 删除表格()
Dim 表格 As Table
For Each 表格 In Selection.Tables
    表格.Delete
Next
End Sub

宁致远 发表于 2024-11-12 17:12

这是VBA代码吗?????

yingzichuanshuo 发表于 2024-11-12 18:04

宁致远 发表于 2024-11-12 17:12
这是VBA代码吗?????

应该是ms office的WORD VBA代码
页: [1]
查看完整版本: 表格通用代码之选中后调整或删除