Note: The other languages of the website are Google-translated. Back to English

Bagaimana cara memilih semua tabel di dokumen Word?

Mudah untuk memilih tabel di Word dengan mengklik titik-pilih-tabel-simbol tombol di sudut kiri atas tabel seperti gambar di bawah ini. Anda juga dapat memilih tabel dengan fitur Pilih Tabel. Namun, adakah cara untuk memilih semua tabel sekaligus dalam dokumen Word dengan cepat? Metode dalam artikel ini akan membantu Anda melewatinya. 


Pilih semua tabel di Word dengan kode VBA

Pilih semua tabel dengan mudah di Word dengan Kutools for Word


Pilih semua tabel di Word dengan kode VBA

1. tekan lain + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. Dalam pembukaan Microsoft Visual Basic untuk Aplikasi window, klik Menyisipkan > Modul, Lalu salin dan tempel kode VBA berikut ke jendela Modul;

Kode VBA: Pilih semua tabel di dokumen saat ini:

Sub selecttables()
Dim mytable As Table

For Each mytable In ActiveDocument.Tables
mytable.Range.Editors.Add wdEditorEveryone
Next
ActiveDocument.SelectAllEditableRanges (wdEditorEveryone)
ActiveDocument.DeleteAllEditableRanges (wdEditorEveryone)
End Sub

3. tekan F5 kunci untuk menjalankan kode

Kemudian semua tabel dipilih dalam dokumen saat ini dengan segera.


Pilih semua tabel dengan mudah di Word dengan Kutools for Word

Membandingkan dengan menggunakan kode VBA untuk memilih semua tabel dalam dokumen, Kutools for Word's Pilih Tabel utilitas cukup berguna. Anda dapat menggunakan fitur ini untuk memilih tabel dalam pilihan atau seluruh dokumen. Harap lakukan sebagai berikut:

Kutools for Word : Dengan lebih dari 100 add-in Word yang praktis, bebas untuk mencoba tanpa batasan dalam 60 hari-hari.

Klik Kutools > Meja > Pilih Tabel. Lihat tangkapan layar:

Note: Untuk memilih tabel dalam pemilihan, Anda perlu memilih kisaran terlebih dahulu dan kemudian menerapkan fitur tersebut.

Kemudian Anda bisa melihat hasilnya sebagai berikut.

Pilih tabel yang dipilih:

Pilih tabel di seluruh dokumen:

Jika Anda ingin mencoba utilitas ini secara gratis, buka unduh perangkat lunak gratis pertama, lalu lanjutkan untuk menerapkan operasi sesuai langkah di atas.


Demo: Mudah memilih semua tabel di Word dengan Kutools for Word



Alat Produktivitas Kata yang Direkomendasikan

 

Kutools For Word - Lebih dari 100 Fitur Canggih Untuk Word, Hemat 50% Waktu Anda

  • Pengoperasian yang rumit dan berulang dapat dilakukan satu kali pemrosesan dalam hitungan detik.
  • Sisipkan beberapa gambar di seluruh folder ke dalam dokumen Word sekaligus.
  • Gabungkan dan gabungkan beberapa file Word di seluruh folder menjadi satu dengan urutan yang Anda inginkan.
  • Pisahkan dokumen saat ini menjadi dokumen terpisah sesuai dengan judul, hentian bagian, atau kriteria lainnya.
  • Konversikan file antara Doc dan Docx, Docx dan PDF, kumpulan alat untuk konversi dan pemilihan umum, dan seterusnya ...
Urutkan komentar berdasarkan
komentar (10)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
terima kasih banyak dia adalah program yang bagus tetapi setelah beberapa hari berhenti dan memerlukan kata sandi dan nama pengguna
Komentar ini diminimalkan oleh moderator di situs
makro yang sangat baik dan sangat mudah
Komentar ini diminimalkan oleh moderator di situs
Kode bagus pada awalnya tapi itu pasti merusak banyak tabel di Word 2010. Mengacaukan file saya cukup bagus dan harus kembali ke versi sebelumnya. Waspada!
Komentar ini diminimalkan oleh moderator di situs
Luar biasa saya mendapat solusinya dengan menggunakan kode VBA. Terima kasih banyak
Komentar ini diminimalkan oleh moderator di situs
Kode yang dimodifikasi berikut memilih semua tabel, kecuali tabel yang hanya memiliki satu baris: Sub SelAllTbls() ActiveDocument.DeleteAllEditableRanges (-1) Dim Tbl Sebagai Tabel Untuk Setiap Tbl Di ActiveDocument.Tables If Tbl.Rows.Count > 1 Kemudian Tbl.Range. Editors.Add (-1) End If Next ActiveDocument.SelectAllEditableRanges (-1) ActiveDocument.DeleteAllEditableRanges (-1) End Sub Kode berikut hanya memilih baris header: Sub selallHeaders() On Error Resume Next ActiveDocument.DeleteAllEditableRanges (-1) Redupkan Tbl Sebagai Tabel Untuk Setiap Tbl Dalam ActiveDocument.Tables Tbl.Rows(1).Range.Editors.Add (-1) Next ActiveDocument.SelectAllEditableRanges (-1) ActiveDocument.DeleteAllEditableRanges (-1) End Sub Saya memiliki lebih banyak kode seperti itu yang pilih baris terakhir, semua peluru, paras kecil / panjang, dll. Tonton video saya berikut ini: https://www.youtube.com/watch?v=p_ZhufliFw8
Komentar ini diminimalkan oleh moderator di situs
Ada beberapa tabel dalam dokumen (sekitar 200). Saya ingin memilih semua tabel ini saja dan menempelkannya di dokumen baru dalam format tabel. Ketika saya memilih tabel sesuai prosedur di atas maka selama operasi tempel itu menempelkannya sebagai teks dan bukan sebagai tabel. Bisakah kamu menolongku?
Komentar ini diminimalkan oleh moderator di situs
Tampaknya makro ini tidak berfungsi di Word 2016
Komentar ini diminimalkan oleh moderator di situs
Ini berfungsi di Word 2016. Kesalahan apa yang Anda dapatkan?
Komentar ini diminimalkan oleh moderator di situs
Saya sudah mengerti. Untuk pekerjaan yang benar, kursor makro harus tidak ada di tabel saat Anda memanggil makro. Terima kasih.
Komentar ini diminimalkan oleh moderator di situs
Metode yang sangat bagus. Terima kasih
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan

Ikuti kami

Hak Cipta © 2009 - www.extendoffice.com. | Seluruh hak cipta. Dipersembahkan oleh ExtendOffice. | Peta Situs
Microsoft dan logo Office adalah merek dagang atau merek dagang terdaftar dari Microsoft Corporation di Amerika Serikat dan / atau negara lain.
Dilindungi oleh Sectigo SSL