Word文書の不要なフレームを削除する4つの高速な方法

このpでost、Word文書の不要なフレームを削除するための4つの高速な方法を紹介します。

ある程度、フレームはテキストボックスと同じである必要があり、どちらもドキュメント内のテキストを保持するために使用されます。 ただし、フレームにはテキストボックスに比べていくつかの利点があります。 たとえば、いくつかのフィールドを含めることができ、tar脚注または文末脚注。どちらもテキストボックスで機能します。   

それにもかかわらず、不要になったフレームを削除する必要性を無視することはできません。 したがって、以下の4つの簡単で迅速な方法を提供します。

方法1：フレームを手動で削除する

1. まず、フレームの境界線を右クリックします。
2. 次に、コンテキストメニューで[フレームのフォーマット]を選択します。
3. 次に開いた「フレーム」ボックスで、「フレームの削除」タブをクリックします。

方法2：選択範囲内のすべてのフレームを削除する

ご覧のとおり、方法1の手順で複数のフレームをXNUMXつずつ削除するのは面倒です。時間を節約するには、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ドキュメントを取得し、「開く」をクリックします。 その後、数秒で、選択したドキュメントのすべてのフレームが削除されます。

データ災害を克服する

言うまでもなく、データ災害は決して恐ろしいものではありません。 それはある程度のキャリアの脅威になることさえあります。 したがって、データを保護し、データ損失が発生した後に実行する正しいアクションを知ることは非常に重要です。 推奨される対策のXNUMXつは、 docx修正 事前にツール。

著者紹介：

Vera Chenは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。 xlsx修正 and pdf ソフトウェア製品を修理します。 詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com