vba - 在将所有表格转换为文本之前排除第一个表格

Question

我正在使用此代码将所有表格转换为文本，但我想排除第一个表格（其中包含文件的标题）并将其余表格转换为文本。

如何更改代码并将计数器放在桌子上。

Dim tbl As Table
For Each tbl In ActiveDocument.Tables
    tbl.ConvertToText Separator:=wdSeparateByTabs
Next tbl
Set tbl = Nothing

score 0 · Accepted Answer

您可以将此代码与不同类型的循环一起使用：

Dim i As Integer
For i = ActiveDocument.Tables.Count To 2 Step -1
    ActiveDocument.Tables(i).ConvertToText Separator:=wdSeparateByTabs
Next i

1 回答 1