在將所有表格轉換爲文本之前排除第一個表格

Question

我正在使用此代碼將所有表格轉換爲文本，但我想排除第一個表格（其中包含文件的標題）並將剩餘的表格轉換爲文本。

如何更改代碼並將計數器放在表上。

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

Answer 1

您可以使用此代碼與不同類型的循環：

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