4 быстрых метода удаления нежелательных фреймов в документе Word

В этом пost, мы собираемся показать вам 4 быстрых способа удалить нежелательные рамки в документе Word.

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

Несмотря на это, мы не можем игнорировать необходимость удаления кадров, которые вам больше не нужны. Поэтому мы предлагаем вам 4 простых, но быстрых способа, как показано ниже:

Способ 1: удалить кадры вручную

1. Во-первых, щелкните правой кнопкой мыши на границе кадра.
2. Затем выберите «Формат кадра» в контекстном меню.
3. Затем в открывшемся окне «Рамка» нажмите вкладку «Удалить рамку».

Способ 2: удалить все кадры в выделенном фрагменте

Как видите, утомительно удалять несколько кадров один за другим с помощью шагов метода 1. Чтобы сэкономить ваше время, более быстрым подходом будет использование кодов VBA.

1. Прежде всего, сделайте выделение по диапазону текстов, содержащих фреймы.
2. Во-вторых, нажмите «Alt + F11», чтобы открыть редактор VBA.
3. Затем нажмите «Обычный» проект, а затем нажмите «Вставить».
4. В выпадающем меню выберите «Модуль».
5. Откройте модуль двойным кликом и вставьте туда следующие коды:

Sub RemoveAllFramesInSelection()
  Dim objFrame As frame
  Dim nFrame As Long
 
  Application.ScreenUpdating = False
 
  nFrame = Selection.Frames.Count
 
  For Each objFrame In Selection.Frames
    objFrame.Delete
  Next objFrame
  MsgBox ("All " & nFrame & " frames in this selection have been removed!")
 
  Application.ScreenUpdating = True
End Sub

6. Наконец, нажмите кнопку «Выполнить» или нажмите «F5», чтобы выполнить коды.

Вы получите окно сообщения с указанием результата, как показано ниже:

Способ 3: удалить все кадры в текущем документе

Тем не менее, нам понадобится макрос для пакетной обработки.

1. Установите и запустите макрос с шагами в способе 2.
2. Затем замените этот макрос на этот:

Sub RemoveAllFramesInDoc()
  Dim objFrame As frame
  Dim nFrame As Long
 
  Application.ScreenUpdating = False
 
  nFrame = ActiveDocument.Frames.Count
 
  For Each objFrame In ActiveDocument.Frames
    objFrame.Delete
  Next objFrame
  MsgBox ("All " & nFrame & " frames in this document have been removed!")
 
  Application.ScreenUpdating = True
End Sub

Точно так же вы будете уведомлены окном сообщения, когда процесс будет завершен.

Способ 4: удалить все кадры в нескольких документах из папки

Если у вас есть пакет документов, включая кадры, мы также предоставляем макрос для выполнения этой задачи.

1. Вставьте и запустите эти коды в модуле VBA:

Sub RemoveAllFramesInAllDocsInFolder()
  Dim objDoc As Document
  Dim dlgFile As FileDialog
  Dim nFile As Integer
  Dim objFrame As frame
  Dim nFrame As Long
 
  Set dlgFile = Application.FileDialog(msoFileDialogFilePicker)
 
  With dlgFile
    dlgFile.AllowMultiSelect = True
    If .Show = -1 Then
      For nFile = 1 To dlgFile.SelectedItems.Count
        Documents.Open dlgFile.SelectedItems(nFile)
        Set objDoc = ActiveDocument
 
        nFrame = ActiveDocument.Frames.Count
        For Each objFrame In ActiveDocument.Frames
          objFrame.Delete
        Next objFrame
        objDoc.Save
        objDoc.Close
      Next nFile
    Else
      MsgBox "No file is selected! Please select a target file."
      Exit Sub
    End If
  End With
End Sub

2. Теперь вы вызовете окно «Обзор». Выбирать tarполучить документы и нажать «Открыть». Затем через несколько секунд все кадры в выбранных документах будут удалены.

Преодолеть информационную катастрофу

Излишне говорить, что информационная катастрофа ни в коем случае не ужасна. В какой-то степени это может даже угрожать карьере. Поэтому защита данных и знание правильных действий после потери данных имеют жизненно важное значение. Одной из рекомендуемых мер является получение исправление документа инструмент заранее.

Об авторе:

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