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

GJMNZ66

选中区域表格按窗口和内容调整

[Visual Basic] 纯文本查看 复制代码

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

选中区域删除表格

[Visual Basic] 纯文本查看 复制代码

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

宁致远

这是VBA代码吗？？？？？

yingzichuanshuo

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

应该是ms office的WORD VBA代码