4

シナリオは、調整が必要な Word 2010 で毎週受信される表です。マクロへの他の追加の中で、「WebSite」という名前の列を削除する必要があります。ただし、「WebSite」という列は常に同じ位置にあるとは限りません。

位置が変わる可能性がある特定のテーブル列を検索、選択、および削除するための VBA コードを知る必要がありますが、常に同じ列タイトルを保持します。

Wordでテーブルを開くたびにテーブル内の位置が変わる可能性がある場合でも、正しい列が削除されるようにするvbaコードに検索語を挿入する方法はありますか?

4

1 に答える 1

3

試す：

Dim tbl As Table
Dim cl As Cell

''All tables
For Each tbl In ActiveDocument.Tables
    ''Look in row 1 only ...
    For Each cl In tbl.Rows(1).Cells
        ''For a cell containing website and end of cell
        If cl.Range.Text = "website" & Chr(13) & Chr(7) Then
            ''Select ...
            cl.Column.Select
            ''Allow the user to choose delete
            If MsgBox("Del selected?", vbYesNo) = vbYes Then
                cl.Column.Delete
            End If
        End If
    Next
Next
于 2013-01-05T20:56:03.560 に答える