2 Cara Pantas untuk Mengekstrak Fail MS Office yang Tertanam dalam Dokumen Word Anda

Dalam artikel hari ini, kami akan memberi anda 2 cara cepat untuk mengekstrak semua fail pejabat MS yang disertakan dalam dokumen Word anda.

Selalunya, kita dapat mewarisi dokumen Word yang mengandungi banyak fail yang disematkan, seperti di bawah:

Biasanya, untuk mengeksportnya, kita perlu membuka fail dan kemudian menyimpannya. Bagaimanapun, cara ini dapat diterima apabila terdapat beberapa fail. Setelah sebilangan besar objek terlibat, kami akan mencari jalan pintas yang lebih cepat dan menjimatkan tenaga. Atas sebab ini, kami menyediakan 2 kaedah berikut untuk anda.

Kaedah 1: Tukar Sambungan Fail

1. Pertama sekali, sebelum apa-apa lagi, kami mengesyorkan anda membuat salinan fail sasaran, sekiranya berlaku sebarang insiden yang boleh menyebabkan kerosakan padanya.
2. Kedua, klik kanan pada ikon dokumen dan pilih "Ganti nama" pada menu.
3. Ketiga, tukar sambungan “.docx” kepada “.zip".
4. Anda akan bertemu dengan mesej amaran, dan cukup klik "Ya".
5. Selepas dokumen menukar ke a zip fail, klik dua kali untuk membukanya.
6. Sekarang klik dua kali untuk membuka folder "word".
7. Kemudian klik dua kali untuk membuka folder "embeddings". Anda boleh menemui semua fail di sana tetapi tidak dapat dikenal pasti. Masalahnya ialah anda harus menamakan semula mereka.

Kaedah 2: Jalankan Makro Word

1. Pertama sekali, klik pada tab “Pembangun” dan kemudian “Visual Basic”. Atau tekan sahaja “Alt+ F11” jika tab “Pembangun” tidak tersedia.
2. Klik seterusnya projek "Normal".
3. Kemudian klik tab "Masukkan".
4. Pilih "Modul" pada menu lungsur.
5. Sekarang klik dua kali pada modul baru untuk mempunyai ruang pengekodan.
6. Dan tampalkan kod berikut:

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. Akhirnya, klik butang "Jalankan" atau tekan "F5".

Semua fail yang disematkan akan disimpan di bawah direktori tertentu dengan nama asalnya.

Nota:

Dalam baris kod "objEmbeddedDoc.SaveAs "C: \ Users \ Public \ Documents \ New folder \" & strEmbeddedDocName","C: \ Users \ Public \ Documents \ Folder baru \"Adalah lokasi untuk menyimpan fail. Ingatlah untuk menggantinya dengan yang sebenarnya.

Rawat Fail Word

Oleh kerana sebahagian daripada anda bekerja dengan Word sangat kerap, maka berhadapan dengan a Perkataan rosak boleh menjadi perkara biasa. Oleh itu, itulah sebabnya kami memberi penekanan pada pengendalian fail dengan baik. Bagaimanapun, setelah fail rosak, ia memerlukan masa dan wang untuk menghidupkannya semula.

Pengenalan Pengarang:

Vera Chen adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk memperbaiki Excel rosak dan pdf membaiki produk perisian. Untuk maklumat lebih lanjut, lawati www.datanumen.com