3 Kaedah Berguna untuk Menghapus Semua Gaya Jadual dalam Dokumen Word Anda

Dalam artikel ini, kami akan memfokuskan pada menunjukkan kepada anda 3 kaedah berguna untuk membersihkan semua gaya jadual dalam dokumen Word anda.

Sesekali, jika jadual Word diterapkan dengan gaya yang tidak diingini atau mengurangkan kesan visual keseluruhan dokumen, anda perlu membersihkan gayanya. Sekarang mari kita tunjukkan cara menyelesaikan tugas seperti itu.

Kaedah 1: Kosongkan Gaya Jadual Satu Kata

1. Pertama sekali, gerakkan kursor ke atas jadual sasaran sehingga anda melihat tanda pangkah di sudut kiri atas jadual.
2. Klik seterusnya pada tanda silang untuk memilih keseluruhan jadual.
3. Sekarang anda telah mencetuskan "Alat Meja". Klik tab "Reka Bentuk".
4. Kemudian klik pada butang "Lagi" dalam kumpulan "Gaya Meja" untuk menunjukkan menu lungsur.
5. Pilih pilihan "Hapus".
6. Sekarang gaya jadual dikeluarkan. Begitu juga semua sempadan jadual. Untuk menambahkan sempadan ke jadual, pastikan jadual dipilih. Dan klik pada butang drop-down di sebelah perintah "Borders".
7. Dan pilih "Semua Sempadan".

Inilah hasilnya:

Kaedah 2: Hapus Kumpulan Semua Jadual dalam Satu Dokumen

Sebaik sahaja kita membuat satu jadual, topik pemprosesan kumpulan tidak akan terlepas. Pertama, mari kita lihat cara membersihkan semua gaya jadual dalam dokumen melalui VBA.

1. Untuk bermula, tekan "Alt+ F11" untuk memaparkan editor VBA dalam Word.
2. Klik seterusnya pada projek "Normal" di lajur kiri.
3. Kemudian klik "Masukkan" pada bar menu.
4. Dan pilih "Module" pada menu drop-down.
5. Buka ruang pengekodan modul dengan mengklik dua kali padanya.
6. Sekarang tampal 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. Akhirnya klik "Run".

Makro ini membersihkan semua gaya jadual dalam dokumen, menerapkan gaya "Jadual Normal" padanya, dan menambah sempadan meja juga.

Kaedah 3: Hapus Kumpulan Semua Jadual dalam Pelbagai Dokumen

Sekiranya anda mempunyai beberapa dokumen untuk ditangani, berikut adalah makro untuk membersihkan semua gaya jadual dalam beberapa dokumen.

1. Pertama, susun semua dokumen dalam satu folder.
2. Langkah ulangan dalam kaedah 2 untuk memasang dan menjalankan makro.
3. Hanya kali ini, jangan lupa ganti 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 tetingkap "Browse". Pilih folder yang anda simpan dokumen pada langkah 1 dan klik "OK".

Tinggalkan kerja selebihnya kepada makro.

Cara-cara untuk Mendapatkan Semula Dokumen yang Hilang

Dengan dokumen yang hilang, kami maksudkan dokumen-dokumen tersebut terjejas disebabkan oleh Rasuah perkataan atau kesilapan manusia. Semasa berurusan dengan dokumen tersebut, anda harus selalu ingat bahawa dokumen tersebut dapat diambil dengan bantuan beberapa alat pembaikan yang maju.

Pengenalan Pengarang:

Vera Chen adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk baiki xls dan pdf membaiki produk perisian. Untuk maklumat lebih lanjut, lawati www.datanumen.com