3 полезных метода для пакетной очистки всех стилей таблиц в документе Word

В этой статье мы сосредоточимся на демонстрации 3 полезных методов пакетной очистки всех стилей таблиц в документе Word.

Время от времени, если таблица Word применяется с нежелательным стилем или уменьшает визуальный эффект всего документа, вам необходимо очистить его стиль. Теперь давайте покажем вам, как выполнить такую ​​задачу.

Метод 1: очистить стиль таблицы из одного слова

1. Первый и первыйost, наведите курсор на tarполучить стол, пока не увидите знак креста в верхнем левом углу стола.
2. Затем нажмите на крестик, чтобы выбрать всю таблицу.
3. Теперь вы запустили «Инструменты таблицы». Перейдите на вкладку «Дизайн».
4. Затем нажмите кнопку «Дополнительно» в группе «Стили таблиц», чтобы отобразить раскрывающееся меню.
5. Выберите опцию «Очистить».
6. Теперь стиль таблицы удален. Как и все границы таблицы. Чтобы добавить границы к таблице, убедитесь, что таблица выделена. И нажмите кнопку раскрывающегося списка рядом с командой «Границы».
7. И выберите «Все границы».

Вот результат:

Способ 2: пакетная очистка всех стилей таблиц в одном документе

После того, как мы сделали единую таблицу, нельзя не упомянуть тему пакетной обработки. Во-первых, давайте посмотрим, как очистить все стили таблиц в документе с помощью VBA.

1. К start с, нажмите «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, и нажмите «ОК».

Тогда оставьте остальную работу макросу.

Способы вернуть Lost Документы

Автор lost документы, мы имеем в виду, что документы скомпрометированы из-за Коррупция слова или человеческие ошибки. Имея дело с такими документами, вы всегда должны помнить, что их можно восстановить с помощью какого-либо продвинутого инструмента восстановления.

Об авторе:

Вера Чен — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая ремонт xls и pdf ремонт программных продуктов. Для получения дополнительной информации посетите www.datanumen.com