Word sənədinizdəki bütün cədvəl üslublarını silmək üçün 3 faydalı üsul

Bu yazıda biz sizə Word sənədinizdəki bütün cədvəl üslublarını silmək üçün 3 faydalı üsul nümayiş etdirməyə diqqət edəcəyik.

Hərdən bir Word cədvəli arzuolunmaz üslubla tətbiq edilirsə və ya bütün sənədin vizual effektini azaldırsa, onun üslubunu təmizləməlisiniz. İndi belə bir tapşırığı necə yerinə yetirəcəyinizi sizə göstərək.

Metod 1: Bir söz cədvəlinin üslubunu silin

1. İlk növbədə, masanın yuxarı sol küncündə xaç işarəsi görünənə qədər kursoru hədəf cədvəlinin üzərinə aparın.
2. Sonra bütün cədvəli seçmək üçün çarpaz işarəni vurun.
3. İndi "Cədvəl Alətləri" ni işə saldınız. "Dizayn" sekmesini vurun.
4. Sonra açılan menyunu göstərmək üçün “Cədvəl üslubları” qrupunda “Daha çox” düyməsini sıxın.
5. "Sil" seçimini seçin.
6. İndi masa üslubu silindi. Bütün masa sərhədləri də belədir. Cədvələ sərhədlər əlavə etmək üçün cədvəlin seçildiyinə əmin olun. Və "Sərhədlər" əmrinin yanındakı açılan düyməni basın.
7. Və "Bütün Sərhədlər" seçin.

Nəticə budur:

Metod 2: Bir Sənəddə Bütün Cədvəl Üslublarını Toplu Silin

Vahid cədvəli etdikdən sonra toplu emal mövzusunu qaçırmaq olmaz. Əvvəlcə VBA vasitəsilə sənəddəki bütün cədvəl üslublarının necə təmizlənəcəyini görək.

1. Başlamaq üçün, Word-də VBA redaktorunu göstərmək üçün "Alt + F11" düymələrini basın.
2. Sonra sol sütunda "Normal" layihəsinə klikləyin.
3. Sonra menyu çubuğunda "Daxil et" düyməsini basın.
4. Və açılan menyuda "Modul" seçin.
5. Üzərinə iki dəfə klikləməklə modulun kodlama yerini açın.
6. İndi ora aşağıdakı makronu yapışdırın:

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. Nəhayət, "Çalış" düyməsini basın.

Bu makro sənəddəki bütün cədvəl üslublarını təmizləyir, onlara “Normal Cədvəl” üslubunu tətbiq edir və cədvəl haşiyələri də əlavə edir.

Metod 3: Birdən çox Sənəddə Bütün Cədvəl Üslublarını Toplu Silin

İndi məşğul olmaq üçün bir neçə sənədiniz varsa, burada bir çox sənədlərdə bütün cədvəl üslublarını təmizləmək üçün makro var.

1. Əvvəlcə bütün sənədləri bir qovluğa yerləşdirin.
2. Makronu quraşdırmaq və işə salmaq üçün 2-ci üsuldakı addımları təkrarlayın.
3. Yalnız bu dəfə bu makro ilə əvəz etməyi unutmayın:

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. Makronu işə saldıqda "Gözdən keçir" pəncərəsi görünəcək. 1-ci addımda sənəd saxladığınız qovluğu seçin və "OK" düyməsini basın.

Sonra işin qalan hissəsini makroya buraxın.

İtirilmiş sənədləri bərpa etməyin yolları

İtirilmiş sənədlər dedikdə, sənədlərin aşağıdakı səbəblərdən pozulduğunu nəzərdə tuturuq: Söz korrupsiyası ya da insan səhvləri. Bu cür sənədlərlə işləyərkən həmişə yadda saxlamalısınız ki, onlar bəzi qabaqcıl təmir alətlərinin köməyi ilə əldə edilə bilər.

Müəllif Giriş:

Vera Çen məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc təmir xls və pdf proqram məhsullarının təmiri. Ətraflı məlumat üçün ziyarət edin www.datanumen.com