2 greiti būdai, kaip ištraukti MS Office failus, įterptus į jūsų „Word“ dokumentą

Šiandienos straipsnyje pateiksime jums 2 greitus būdus, kaip išgauti visus MS Office failus, įterptus į jūsų Word dokumentą.

Kaskart galime paveldėti „Word“ dokumentą, kuriame yra keli įterptieji failai, pvz., toliau:

Paprastai norėdami juos eksportuoti, turėsime atidaryti failą ir jį išsaugoti. Tačiau šis būdas yra priimtinas, kai failų yra nedaug. Kai bus įtraukta daug objektų, ieškosime daugiau greitų ir energiją taupančių nuorodų. Dėl šios priežasties mes jums paruošėme šiuos 2 metodus.

1 būdas: pakeiskite failo plėtinį

1. Pirmiausia, prieš ką nors kita, rekomenduojame pasidaryti šio dokumento kopiją targauti failą, jei dėl kokių nors incidentų jis gali būti sugadintas.
2. Antra, dešiniuoju pelės mygtuku spustelėkite dokumento piktogramą ir meniu pasirinkite „Pervardyti“.
3. Trečia, pakeiskite plėtinį „.docx“ į „.zip".
4. Pamatysite įspėjimo pranešimą ir tiesiog spustelėkite „Taip“.
5. Po dokumento konvertavimo į a zip failą, dukart spustelėkite, kad jį atidarytumėte.
6. Dabar dukart spustelėkite, kad atidarytumėte aplanką „word“.
7. Tada dukart spustelėkite, kad atidarytumėte aplanką „įterpimai“. Ten galite rasti visus failus, bet neidentifikuojamus. Netvarka ta, kad turite juos pervardyti.

2 būdas: paleiskite Word makrokomandą

1. Pirmas ir pirmasost, spustelėkite skirtuką „Kūrėjas“, tada „Visual Basic“. Arba tiesiog paspauskite „Alt + F11“, jei skirtuko „Kūrėjas“ nėra.
2. Tada spustelėkite „Įprastas projektas“.
3. Tada spustelėkite skirtuką „Įterpti“.
4. Išskleidžiamajame meniu pasirinkite „Modulis“.
5. Dabar dukart spustelėkite naują modulį, kad gautumėte kodavimo erdvę.
6. Ir ten įklijuokite šiuos kodus:

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. Galiausiai spustelėkite mygtuką „Vykdyti“ arba paspauskite „F5“.

Visi įterptieji failai bus saugomi konkrečiame kataloge su jų pradiniais pavadinimais.

pastabos:

Kodo eilutėje “objEmbeddedDoc.SaveAs "C:\Users\Public\Documents\New folder\" & strEmbeddedDocName“,„C:\Vartotojai\Vieša\Dokumentai\Naujas aplankas\“ yra failų saugojimo vieta. Nepamirškite jo pakeisti tikru.

Rūpinkitės Word failais

Kadangi kai kurie iš jūsų labai dažnai dirbate su Word, susiduriate su a sugadintas Word gali būti įprastas dalykas. Todėl mes daug dėmesio skiriame gerai tvarkyti failus. Juk sugadinus failą reikia laiko ir pinigų, kad jį atgautų.

Autoriaus įvadas:

Vera Chen yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų, įskaitant taisymą, lyderė sugadintas Excel bei pdf programinės įrangos gaminių taisymas. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com