3 полезни метода за групово изчистване на всички стилове на таблици във вашия документ на Word

В тази статия ще се съсредоточим върху демонстрацията на 3 полезни метода за групово изчистване на всички стилове на таблици във вашия документ на Word.

От време на време, ако таблица на Word се прилага с нежелан стил или намалява визуалния ефект на целия документ, трябва да изчистите стила му. Сега нека ви покажем как да постигнете такава задача.

Метод 1: Изчистете стила на таблицата с една дума

1. Първо и най-важно, преместете курсора върху целевата таблица, докато видите знака за кръст в горния ляв ъгъл на таблицата.
2. След това щракнете върху кръста, за да изберете цялата таблица.
3. Сега задействате „Инструменти за таблици“. Щракнете върху раздела „Дизайн“.
4. След това кликнете върху бутона „Още“ в групата „Стилове на таблицата“, за да се покаже падащото меню.
5. Изберете опцията „Изчистване“.
6. Сега стилът на таблицата е премахнат. Както всички граници на таблицата. За да добавите граници към таблицата, уверете се, че таблицата е избрана. И кликнете върху падащия бутон до командата „Граници“.
7. И изберете „Всички граници“.

Ето резултата:

Метод 2: Групово изчистване на всички стилове на таблици в един документ

След като направим единичната таблица, темата за груповата обработка не може да бъде пропусната. Първо, нека видим как да изчистим всички стилове на таблици в документ чрез VBA.

1. За начало натиснете „Alt+F11“, за да се покаже VBA редакторът в Word.
2. След това кликнете върху проекта „Нормално“ в лявата колона.
3. След това щракнете върху „Вмъкване“ в лентата с менюта.
4. И изберете „Модул“ от падащото меню.
5. Отворете пространството за кодиране на модула, като щракнете двукратно върху него.
6. Сега поставете следния макрос там:

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. Накрая щракнете върху „Run“.

Този макрос изчиства всички стилове на таблици в документ, прилага към тях стил „Таблица нормално“ и добавя също граници на таблици.

Метод 3: Партидно изчистване на всички стилове на таблици в множество документи

Сега, в случай че имате няколко документа, с които да се справите, ето макросът за изчистване на всички стилове на таблици в множество документи.

1. Първо, подредете всички документи в една папка.
2. Повторните стъпки в метод 2 за инсталиране и стартиране на макрос.
3. Само този път, не забравяйте да замените с този макрос:

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. Когато стартирате макроса, ще се появи прозорецът „Преглед“. Изберете папката, в която съхранявате документ в стъпка 1 и щракнете върху „OK“.

Оставете останалата работа на макроса тогава.

Начини за възстановяване на изгубени документи

Под загубени документи имаме предвид документите, които са компрометирани поради Слово корупция или човешки грешки. Докато се занимавате с такива документи, винаги трябва да имате предвид, че те могат да бъдат извлечени с помощта на някои усъвършенствани инструменти за поправка.

Въведение на автора:

Вера Чен е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително ремонт xls и pdf ремонт на софтуерни продукти. За повече информация посетете WWW.datanumen.com