2 formas rápidas de extraer los archivos de MS Office incrustados en su documento de Word

En el artículo de hoy, le proporcionaremos 2 formas rápidas de extraer todos los archivos de MS Office incrustados en su documento de Word.

De vez en cuando, podríamos heredar un documento de Word que contiene varios archivos incrustados, como a continuación:

Normalmente, para exportarlos tendremos que abrir el archivo y luego guardarlo. Sin embargo, esta forma es aceptable cuando hay pocos archivos. Una vez que haya una gran cantidad de objetos involucrados, buscaremos algunos atajos más rápidos y que ahorren energía. Por esta razón, tenemos los siguientes 2 métodos listos para usted.

Método 1: cambiar la extensión del archivo

1. En primer lugar, y antes que nada, le recomendamos que haga una copia del archivo de destino, por si algún incidente pudiera dañarlo.
2. En segundo lugar, haga clic derecho en el icono del documento y seleccione "Cambiar nombre" en el menú.
3. En tercer lugar, cambie la extensión “.docx” a “.zip.
4. Se encontrará con el mensaje de advertencia y simplemente haga clic en "Sí".
5. Después de convertir el documento en un zip archivo, haga doble clic para abrirlo.
6. Ahora haga doble clic para abrir la carpeta "palabra".
7. Luego haga doble clic para abrir la carpeta "incrustaciones". Puede encontrar todos los archivos allí pero no identificables. El lío es que tienes que cambiarles el nombre.

Método 2: ejecutar macro de Word

1. En primer lugar, haz clic en la pestaña "Desarrollador" y luego en "Visual Basic". Si la pestaña "Desarrollador" no está disponible, simplemente pulsa "Alt + F11".
2. A continuación, haga clic en el proyecto "Normal".
3. Luego haga clic en la pestaña "Insertar".
4. Elija "Módulo" en el menú desplegable.
5. Ahora haga doble clic en el nuevo módulo para tener el espacio de codificación.
6. Y pegue los códigos a continuación allí:

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. Finalmente, haga clic en el botón "Ejecutar" o presione "F5".

Todos los archivos incrustados se almacenarán en un directorio específico con sus nombres originales.

Nota: :

En la línea de código "objEmbeddedDoc.SaveAs "C: \ Users \ Public \ Documents \ New folder \" & strEmbeddedDocName", el "C: \ Usuarios \ Públicos \ Documentos \ Nueva carpeta \”Es la ubicación para almacenar archivos. Recuerde reemplazarlo por uno real.

Cuida los archivos de Word

Dado que algunos de ustedes trabajan con Word con mucha frecuencia, entonces se enfrentan a una palabra corrupta puede ser un lugar común. Por lo tanto, es por eso que ponemos mucho énfasis en el buen manejo de archivos. Después de todo, una vez que un archivo se daña, se necesita tiempo y dinero para devolverlo a la vida.

Introducción del autor:

Vera Chen es experta en recuperación de datos en DataNumen, Inc., que es el líder mundial en tecnologías de recuperación de datos, incluida la reparación Excel dañado y pdf reparar productos de software. Para más información visite www.datanumen.com