3 Metode Berguna untuk Batch Hapus Semua Gaya Tabel di Dokumen Word Anda

Pada artikel ini, kami akan fokus untuk mendemonstrasikan Anda 3 metode yang berguna untuk menghapus semua gaya tabel dalam dokumen Word Anda.

Terkadang, jika tabel Word diterapkan dengan gaya yang tidak diinginkan atau mengurangi efek visual seluruh dokumen, Anda perlu menghapus gayanya. Sekarang mari kita tunjukkan bagaimana menyelesaikan tugas seperti itu.

Metode 1: Kosongkan Tabel Gaya Satu Kata

1. Pertama dan terpenting, arahkan kursor ke tabel target hingga Anda melihat tanda silang di sudut kiri atas tabel.
2. Selanjutnya klik tanda silang untuk memilih seluruh tabel.
3. Sekarang Anda telah memicu "Alat Tabel". Klik tab "Desain".
4. Kemudian klik tombol "Lainnya" dalam grup "Gaya Tabel" untuk menampilkan menu drop-down.
5. Pilih opsi "Hapus".
6. Sekarang gaya tabel dihapus. Begitu juga dengan semua batas tabel. Untuk menambahkan batas ke tabel, pastikan tabel dipilih. Dan klik pada tombol drop-down di sebelah perintah "Borders".
7. Dan pilih "All Borders".

Inilah hasilnya:

Metode 2: Hapus Batch Semua Gaya Tabel dalam Satu Dokumen

Setelah kita menyelesaikan tabel tunggal, topik pemrosesan batch tidak dapat dilewatkan. Pertama, mari kita lihat cara menghapus semua gaya tabel dalam dokumen melalui VBA.

1. Sebagai langkah awal, tekan “Alt+ F11” untuk menampilkan editor VBA di Word.
2. Selanjutnya klik pada proyek "Normal" di kolom kiri.
3. Kemudian klik "Sisipkan" di bilah menu.
4. Dan pilih "Modul" pada menu drop-down.
5. Buka ruang pengkodean modul dengan mengklik dua kali di atasnya.
6. Sekarang tempel makro berikut di sana:

Sub ClearTableStylesInADoc()
  Dim objTable As Table
  Dim objDoc As Document
 
  Application.ScreenUpdating = False
  Set objDoc = ActiveDocument
 
  For Each objTable In objDoc.Tables
    objTable.Style = "Table Normal"
    objTable.Borders.Enable = True
  Next objTable
 
  Application.ScreenUpdating = True
 
  Set objDoc = Nothing
End Sub

7. Terakhir, klik "Jalankan".

Makro ini menghapus semua gaya tabel dalam dokumen, menerapkan gaya "Tabel Normal" untuk mereka, dan menambahkan batas tabel juga.

Metode 3: Batch Hapus Semua Gaya Tabel dalam Banyak Dokumen

Sekarang jika Anda memiliki beberapa dokumen untuk ditangani, berikut adalah makro untuk menghapus semua gaya tabel di beberapa dokumen.

1. Pertama, atur semua dokumen dalam satu folder.
2. Ulangi langkah-langkah dalam metode 2 untuk menginstal dan menjalankan makro.
3. Hanya saja kali ini, ingatlah untuk mengganti dengan makro ini:

Sub ClearTableStylesInMultiDoc()
  Dim objTable As Table
  Dim objDoc As Document
  Dim StrFolder As String
  Dim strFile As String
  Dim dlgFile As FileDialog
 
  Set dlgFile = Application.FileDialog(msoFileDialogFolderPicker)
 
  With dlgFile
    If .Show = -1 Then
      StrFolder = .SelectedItems(1) & "\"
    Else
      MsgBox "Select a folder first."
      Exit Sub
    End If
  End With
 
  strFile = Dir(StrFolder & "*.docx", vbNormal)
 
  While strFile <> ""
    Set objDoc = Documents.Open(FileName:=StrFolder & strFile)
    Set objDoc = ActiveDocument
 
    For Each objTable In objDoc.Tables
      objTable.Style = "Table Normal"
      objTable.Borders.Enable = True
    Next objTable
 
    objDoc.Save
    objDoc.Close
    strFile = Dir()
  Wend
End Sub

4. Menjalankan makro, akan ada jendela "Jelajahi". Pilih folder Anda menyimpan dokumen pada langkah 1 dan klik "OK".

Biarkan sisa pekerjaan ke makro.

Cara Mendapatkan Kembali Dokumen yang Hilang

Yang dimaksud dengan dokumen hilang adalah dokumen yang rusak karena Kerusakan kata atau kesalahan manusia. Saat menangani dokumen semacam itu, Anda harus selalu ingat bahwa mereka dapat diambil dengan bantuan beberapa alat perbaikan lanjutan.

Pengantar Penulis:

Vera Chen adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk memperbaiki xls ke pdf memperbaiki produk perangkat lunak. Untuk informasi lebih lanjut kunjungi www.datanumen.com