Cara Mengubah Lebar Kolom untuk Semua Tabel Kata Sekaligus

4

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?

countermode
sumber

Jawaban:

6

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