Kode VBA Word 2010 untuk mencari, memilih dan menghapus kolom tabel dengan judul kolom tertentu

Skenarionya adalah tabel yang diterima setiap minggu di Word 2010 yang memerlukan penyesuaian. Di antara penambahan makro lainnya, kolom bernama "Situs Web" perlu dihapus. Kolom bernama "Situs Web" mungkin tidak selalu berada pada posisi yang sama.

Saya perlu mengetahui kode VBA untuk menemukan, memilih, dan menghapus kolom tabel tertentu yang berpotensi mengubah posisi, tetapi judul kolom akan selalu sama.

Apakah ada cara untuk memasukkan kata pencarian ke dalam kode vba yang akan memastikan kolom kanan terhapus meskipun posisinya dalam tabel dapat berubah setiap kali tabel dibuka di Word?


vba ms-word
person user1951654    schedule 05.01.2013    source sumber
comment
Sub Test() ' ' Test Macro ' ' Selection.SelectColumn Selection.Columns.Delete End Sub Inilah yang terlihat ketika saya melakukan ini menggunakan fitur Temukan di Word 2010 untuk menemukan kata kunci saat perekam makro diputar.   -  person user1951654    schedule 06.01.2013

Jawaban (1)


arrow_upward
3
arrow_downward

Mencoba:

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
person Fionnuala    schedule 05.01.2013
comment
Bagus sekali, bisakah Anda memberikan penjelasan tentang karakter khusus yang disisipkan Word ke sel tabel? Saya bertanya-tanya bagaimana cara menemukan dan mengganti kata-kata khusus di sel... - person deed02392; 21.08.2015