2 kiiret viisi Wordi dokumenti manustatud MS Office'i failide ekstraktimiseks

Tänases artiklis pakume teile 2 kiiret viisi kõigi Wordi dokumenti manustatud MS Office'i failide ekstraktimiseks.

Aeg-ajalt võime pärida mitut manustatud faili sisaldava Wordi dokumendi, näiteks allpool:

Tavaliselt peame nende eksportimiseks faili avama ja seejärel salvestama. See viis on aga vastuvõetav, kui faile on vähe. Kui kaasatud on suur hulk objekte, otsime veel mõned kiired ja energiasäästlikud otseteed. Sel põhjusel on meil teie jaoks valmis kaks järgmist meetodit.

1. meetod: muutke faililaiendit

1. Kõigepealt soovitame teil enne midagi muud teha koopia tarhankige fail juhuks, kui vahejuhtumid võivad seda kahjustada.
2. Teiseks paremklõpsake dokumendi ikoonil ja valige menüüst "Nimeta ümber".
3. Kolmandaks muutke laiendiks ".docx" laiendiks ".zip".
4. Näete hoiatusteadet ja klõpsake lihtsalt "Jah".
5. Pärast dokumendi teisendamist a zip faili, topeltklõpsake selle avamiseks.
6. Nüüd topeltklõpsake kausta "word" avamiseks.
7. Seejärel topeltklõpsake kausta Manustamise avamiseks. Siit leiate kõik failid, kuid neid ei saa tuvastada. Jama on selles, et peate need ümber nimetama.

2. meetod: käivitage Wordi makro

1. Esiteks ja eeskättost, klõpsake vahekaarti "Arendaja" ja seejärel "Visual Basic". Kui vahekaart "Arendaja" pole saadaval, vajutage lihtsalt klahvikombinatsiooni Alt+ F11.
2. Järgmisena klõpsake nuppu "Tavaline" projekt.
3. Seejärel klõpsake vahekaarti "Sisesta".
4. Valige rippmenüüst "Moodul".
5. Nüüd topeltklõpsake uuel moodulil, et saada kodeerimisruum.
6. Ja kleepige sinna allolevad koodid:

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. Lõpuks klõpsake nuppu "Käivita" või vajutage "F5".

Kõik manustatud failid salvestatakse nende algsete nimedega kindlasse kataloogi.

märkused:

Koodireal "objEmbeddedDoc.SaveAs “C:\Users\Public\Documents\New folder\” & strEmbeddedDocName”,C:\Kasutajad\Avalik\Dokumendid\Uus kaust\” on failide salvestamise koht. Ärge unustage asendada see tegelikuga.

Hoolitse Wordi failide eest

Kuna mõned teist töötavad Wordiga väga sageli, tuleb silmitsi seista a rikutud Word võib olla tavaline. Seetõttu paneme me suurt rõhku failide heale käsitlemisele. Lõppude lõpuks, kui fail saab kahjustatud, kulub selle taaselustamiseks nii aega kui ka raha.

Autori sissejuhatus:

Vera Chen on andmete taastamise ekspert DataNumen, Inc., mis on andmete taastamise tehnoloogiate, sealhulgas parandamise valdkonnas maailmas juhtiv kahjustatud Excel ja pdf tarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom