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. Нарешті натисніть «Виконати».

Цей макрос очищає всі стилі таблиць у документі, застосовує до них стиль “Звичайний для таблиці”, а також додає межі таблиць.

Спосіб 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