4 hitre metode za odstranitev neželenih okvirjev v Wordovem dokumentu

V tej strost, vam bomo pokazali 4 hitre načine za odstranitev nezaželenih okvirjev v dokumentu Word.

Do neke mere morajo biti okvirji enaki besedilnim poljem, ki se uporabljajo za shranjevanje besedil v dokumentu. Toda okvirji imajo nekaj prednosti pred besedilnimi polji. Na primer, lahko vsebuje nekaj polj in lahko start sprotne ali končne opombe znotraj, katera koli deluje v besedilnih poljih.   

Kljub temu ne moremo prezreti potrebe po odstranitvi okvirjev, ki jih enostavno ne želite več. Zato vam ponujamo 4 enostavne, a hitre načine, kot so spodaj:

1. način: Ročno odstranite okvirje

1. Najprej z desno miškino tipko kliknite obrobo okvirja.
2. Nato v kontekstnem meniju izberite »Oblikuj okvir«.
3. Nato v odprtem polju »Okvir« kliknite zavihek »Odstrani okvir«.

2. način: Odstranite vse okvirje v izboru

Kot vidite, je dolgočasno odstranjevati več okvirjev enega za drugim s koraki v 1. metodi. Če želite prihraniti čas, bi bil hitrejši pristop uporaba kod VBA.

1. Najprej izberite vrsto besedil, ki vsebujejo okvirje.
2. Drugič, pritisnite »Alt + F11«, da odprete urejevalnik VBA.
3. Nato kliknite »Normalni« projekt in nato kliknite »Vstavi«.
4. V spustnem meniju izberite »Modul«.
5. Odprite modul z dvoklikom in vanj prilepite naslednje kode:

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. Na koncu kliknite gumb »Zaženi« ali pritisnite »F5«, da izvedete kode.

Prejeli boste polje s sporočilom, v katerem bo prikazan rezultat, na primer spodaj:

3. način: Odstranite vse okvirje v trenutnem dokumentu

Kljub temu bomo potrebovali makro za izvedbo paketne obdelave.

1. Namestite in zaženite makro s koraki v 2. metodi.
2. Nato zamenjajte ta makro s tem:

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

Podobno boste obveščeni s sporočilom, ko bo postopek končan.

4. način: Odstranite vse okvirje v več dokumentih iz mape

Če imate serijo dokumentov, vključno z okvirji, nudimo tudi makro za izvedbo naloge.

1. Prilepite in zaženite te kode v modulu 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. Zdaj boste sprožili okno »Prebrskaj«. Izberite tarpridobite dokumente in kliknite »Odpri«. Nato boste v nekaj sekundah odstranili vse okvirje v izbranih dokumentih.

Premagajte podatkovno katastrofo

Ni treba posebej poudarjati, da podatkovna katastrofa nikakor ni grozljiva. Do neke mere je lahko celo grožnja karieri. Varovanje podatkov in poznavanje pravilnega ukrepanja po izgubi podatkov je torej ključnega pomena. Eden od priporočljivih ukrepov je pridobiti a docx popravek orodje vnaprej.

Uvod avtorja:

Vera Chen je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z xlsx popravek in pdf popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com