Note: The other languages of the website are Google-translated. Back to English
Masuk  \/ 
x
or
x
Daftar  \/ 
x

or

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 untuk Word : Dengan lebih dari 100 add-in Word yang praktis, gratis untuk mencoba tanpa batasan dalam 60 hari.

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

Catatan: 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 ...

Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Alex · 4 years ago
    It seeems that this macros does not work in Word 2016
    • To post as a guest, your comment is unpublished.
      Suril · 4 years ago
      It works in Word 2016. What error are you getting?
      • To post as a guest, your comment is unpublished.
        Alex · 4 years ago
        I understand already.
        For correct work macros cursor must to be not in table when you call macros.
        Thank you.
  • To post as a guest, your comment is unpublished.
    Iqbal · 4 years ago
    There are multiple tables in a document (about 200). I want to select all these tables only and paste them in a new document in the table format. When I select the tables as per above procedure then during paste operation it pastes them as text and not as table. Can you please help me?
  • To post as a guest, your comment is unpublished.
    Suril · 4 years ago
    The following modified code selects all tables, except tables having only one row:
    Sub SelAllTbls()
    ActiveDocument.DeleteAllEditableRanges (-1)
    Dim Tbl As Table
    For Each Tbl In ActiveDocument.Tables
    If Tbl.Rows.Count > 1 Then
    Tbl.Range.Editors.Add (-1)
    End If
    Next
    ActiveDocument.SelectAllEditableRanges (-1)
    ActiveDocument.DeleteAllEditableRanges (-1)
    End Sub

    The following code select only the header rows:
    Sub selallHeaders()
    On Error Resume Next
    ActiveDocument.DeleteAllEditableRanges (-1)
    Dim Tbl As Table
    For Each Tbl In ActiveDocument.Tables
    Tbl.Rows(1).Range.Editors.Add (-1)
    Next
    ActiveDocument.SelectAllEditableRanges (-1)
    ActiveDocument.DeleteAllEditableRanges (-1)
    End Sub

    I have many more such codes that select last rows, all bullets, small / long paras, etc. Watch my following video:
    https://www.youtube.com/watch?v=p_ZhufliFw8
  • To post as a guest, your comment is unpublished.
    Vinoth Murali · 4 years ago
    Wonderful I got the solution by using the VBA code. Thank you so much
  • To post as a guest, your comment is unpublished.
    JPF · 5 years ago
    Nifty code at first but it definitely corrupted a bunch of tables in Word 2010. Screwed up my file pretty good and had to revert back to an earlier version. Be wary!
  • To post as a guest, your comment is unpublished.
    rodrigo · 6 years ago
    excellent macro and very easy
  • To post as a guest, your comment is unpublished.
    refaat · 7 years ago
    thank you so much
    he is good program but after few days stopped and require password and user name