¿Quiere utilizar Excel VBA para convertir automáticamente algunos archivos de imagen TIFF en una carpeta a Word, combinar páginas dobles en un solo archivo doc y conservar el nombre del archivo antes del guión bajo?
Hola, según tu descripción, deseas utilizar la programación Excel VBA para convertir automáticamente los archivos de imágenes tiff de una carpeta en un documento de Word y combinar las imágenes de doble página en un documento de Word conservando el imágenes La parte antes del guión bajo en el nombre del archivo se utiliza como nombre del documento de Word.
Esto se puede lograr mediante los siguientes pasos:
1. Abra Excel, habilitando la opción de desarrollo VBA de Excel.
2. Cree un módulo VBA llamado CombineTiff. Ingrese el siguiente código:
vba
Sub CombineTiff()
Dim wdApp As Word.Application 'Definir objeto de aplicación de Word
Dim wdDoc As Word.Document 'Definir objeto de documento de Word
Establecer wdApp = CreateObject("Word.Application") 'Crear objeto de aplicación de Word
wdApp.Visible = True 'Establecer Word como estado visible
Atenuar ruta de carpeta como cadena: ruta de carpeta = "C:\Test\" 'Definir ruta de carpeta de imagen tiff
Atenuar todos los archivos() como cadena: todos los archivos = Dir(ruta de carpeta & "*.tiff") 'Obtiene todos los archivos tiff en la carpeta
Dim n As Long: n = 1 'Recuento de imágenes
Para cada nombre de archivo en todos los archivos
Si n Mod 2 = 1 Entonces 'Imagen de doble página, agregue documento de Word
Establezca wdDoc = wdApp.Documents.Add
wdDoc.Name = Left(fileName, InStr(fileName , "_") - 1) 'Establezca el nombre de Word y elimine la parte después del guión bajo
End If
wdDoc.InlineShapes.AddPicture fileName:=folderPath & fileName
n = n + 1 'Recuento de imágenes + 1
Si n Mod 2 = 0 Entonces wdDoc.Save 'Guardar palabra después de páginas dobles
Siguiente
wdApp.Quit 'Salir de Word
End Sub
3. Ejecute la macro CombineTiff.
4. En la carpeta especificada, puede ver que la imagen tiff se convierte automáticamente en un documento de Word. La imagen de doble página se fusiona en el mismo documento de Word y el nombre del documento conserva la parte anterior. el subrayado del nombre de la imagen.
La clave de este código VBA es utilizar el método InlineShapes.AddPicture de Word para insertar la imagen tiff en el documento de Word y lograr el efecto de fusionar las imágenes de doble página en un solo documento de Word. juzgar el recuento de imágenes n.
Tenga en cuenta que lo anterior es solo un ejemplo de código simple y es posible que sea necesario considerar más factores en aplicaciones reales. Pero las ideas y pasos generales de implementación deben ser claros.