0

このコードを使用してすべてのテーブルをテキストに変換していますが、最初のテーブル (ファイルの見出しを含む) を除外し、残りをテキストに変換したいと考えています。

コードを変更してテーブルにカウンターを配置するにはどうすればよいですか。

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

1 に答える 1

0

このコードをさまざまなタイプのループで使用できます。

Dim i As Integer
For i = ActiveDocument.Tables.Count To 2 Step -1
    ActiveDocument.Tables(i).ConvertToText Separator:=wdSeparateByTabs
Next i
于 2013-07-29T09:38:15.630 に答える