Cómo cambiar a programación
Esto se puede lograr mediante los siguientes pasos:
1. Abra Excel y habilite la opción de desarrollo VBA de Excel.
2. Cree un módulo VBA llamado CombineTiff. Ingrese el siguiente código en él:
vba
Función de subcombinación ()
Dimwdapapp es Word. "Aplicación" define el término objeto de aplicación.
Cambie wdDoc a Word. "Documento" define un objeto de documento de Word.
Establezca wdapp = createobject ("Word. application")' para crear el objeto de aplicación de Word.
WdApp. Visible = Verdadero 'Establece la palabra para que sea visible.
dim folderpath as string:folderpath = " c:\ test \ " 'Define la ruta de la carpeta de imágenes tiff.
atenuar todos los archivos()Como cadena:todos los archivos = Dir(folderPath & "*.'Obtener 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 'Dos páginas de imágenes, más un documento de Word'
Establezca wdDoc = wdApp.Document.Add
WDDoc. Name = left (filename, instr (filename, "_"-1)'Establezca el nombre de la palabra y elimine la parte después del control deslizante.
Finalizará si...
wdDoc.agregar imagen nombre de archivo:= ruta de carpeta y nombre de archivo
N = n+1 'recuento de imágenes + 1
Si n Mod 2 = 0, luego wdDoc.
Luego
WdApp 'Salir'
Fin del conector
3.
4. En la carpeta especificada, puede ver que la imagen tiff se convierte automáticamente en un documento de Word y las dos páginas de imágenes se fusionan en el mismo documento de Word, el nombre del documento conserva el. parte frontal del nombre de la imagen.
La clave de este código VBA es utilizar el método AddPicture de Word para insertar la imagen tiff en el documento de Word y lograr esto determinando el recuento de imágenes n. efecto de fusionar dos páginas de imágenes en un documento de Word
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 la aplicación real, pero las ideas y pasos de implementación generales. debe quedar claro.