2 raske måter å pakke ut MS Office-filene som er innebygd i Word-dokumentet ditt

I dagens artikkel vil vi gi deg 2 raske måter å trekke ut alle MS office-filene som er innebygd i Word-dokumentet.

Noen ganger kan vi arve et Word-dokument som inneholder flere innebygde filer, for eksempel nedenfor:

Normalt, for å eksportere dem, må vi åpne filen og deretter lagre den. Denne måten er imidlertid akseptabel når det er få filer. Når et stort antall objekter er involvert, skal vi se etter noen flere raske og energibesparende snarveier. Av denne grunn har vi følgende 2 metoder klare for deg.

Metode 1: Endre filtypen

1. Først av alt, før noe annet, anbefaler vi deg å lage en kopi av tarhent filen, i tilfelle hendelser kan forårsake skade på den.
2. For det andre, høyreklikk på dokumentikonet og velg "Gi nytt navn" på menyen.
3. For det tredje, endre utvidelsen ".docx" til ".zip".
4. Du vil møte advarselsmeldingen, og bare klikk på "Ja".
5. Etter at dokumentet er konvertert til en zip fil, dobbeltklikk for å åpne den.
6. Dobbeltklikk nå for å åpne "word"-mappen.
7. Dobbeltklikk deretter for å åpne "embeddings"-mappen. Du kan finne alle filene der, men uten identifiserbare. Rotet er at du må endre navn på dem.

Metode 2: Kjør Word Macro

1. Først og fremstost, klikk på «Utvikler»-fanen og deretter «Visual Basic». Eller bare trykk "Alt+ F11" i stedet hvis "Utvikler"-fanen ikke er tilgjengelig.
2. Klikk deretter på "Normal" prosjekt.
3. Klikk deretter på "Sett inn"-fanen.
4. Velg "Modul" på rullegardinmenyen.
5. Dobbeltklikk nå på den nye modulen for å få kodeplassen.
6. Og lim inn kodene nedenfor der:

Sub ExtractAndSaveEmbeddedFiles()
  Dim objEmbeddedShape As InlineShape
  Dim strShapeType As String, strEmbeddedDocName As String
  Dim objEmbeddedDoc As Object
 
  With ActiveDocument
  For Each objEmbeddedShape In .InlineShapes
 
  '  Find and open the embedded doc.
  strShapeType = objEmbeddedShape.OLEFormat.ClassType
  objEmbeddedShape.OLEFormat.Open
 
  '  Initialization
  Set objEmbeddedDoc = objEmbeddedShape.OLEFormat.Object
 
  '  Save embedded files with names as same as those of icon label. 
  strEmbeddedDocName = objEmbeddedShape.OLEFormat.IconLabel
  objEmbeddedDoc.SaveAs "C:\Users\Public\Documents\New folder\" & strEmbeddedDocName
  objEmbeddedDoc.Close
 
  Set objEmbeddedDoc = Nothing
 
  Next objEmbeddedShape
  End With
End Sub

7. Til slutt klikker du på "Kjør"-knappen eller trykker på "F5".

Alle innebygde filer vil bli lagret i en spesifikk katalog med sine originale navn.

Merknader:

I kodelinje "objEmbeddedDoc.SaveAs “C:\Users\Public\Documents\New folder\” & strEmbeddedDocName”,“C:\Users\Public\Documents\Ny mappe\” er stedet for lagring av filer. Husk å erstatte den med en faktisk.

Ta vare på Word-filer

Siden noen av dere jobber med Word veldig ofte, så konfronterer dere en ødelagt Word kan være vanlig. Derfor er det derfor vi legger stor vekt på god håndtering av filer. Når alt kommer til alt, når en fil først er skadet, tar det både tid og penger å bringe den til live igjen.

Forfatterintroduksjon:

Vera Chen er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert fiksing skadet Excel og pdf reparere programvareprodukter. For mer informasjon besøk www.datanumen. Med