Cara Mengubah Lebar Kolom untuk Semua Tabel Kata Sekaligus

Saya memiliki banyak (> 200) tabel di Word yang memiliki tata letak yang sama (dua kolom, enam baris).

Saya perlu menyesuaikan lebar kolom untuk semuanya. Apakah ada cara untuk mengotomatisasi ini?

microsoft-word microsoft-word-2013

— countermode
sumber

Anda bisa menggunakan makro VBA untuk mengubah ukuran setiap tabel.

Tekan ALT+ F11di Word dan masukkan makro di bawah Project »ThisDocument .
Jalankan kode denganF5

Sub resizeTables()    
  For Each Table In ActiveDocument.Tables
    On Error Resume Next
    Table.Columns(1).Width = 200
    Table.Columns(2).Width = 300
    On Error GoTo 0
  Next    
End Sub

Columns(2) mewakili kolom 2 di setiap tabel
Nilainya Width = 300adalah lebar yang Anda inginkan dalam piksel. Ubah sesuai kebutuhan Anda
Jika tabel Anda memiliki lebih sedikit kolom dari makro VBA Anda, Anda akan mendapatkan pengecualian. Untuk ini, saya menambahkan On Error Resume Nextuntuk mengabaikan kesalahan dan On Error GoTo 0menghentikan penanganan kesalahan ini

— nixda
sumber