Programación de documentos

Hola, según tu descripción, deseas convertir automáticamente un archivo de imagen tiff de la carpeta en un documento de Word mediante la programación Excel VBA y fusionar las dos páginas de imágenes en un documento de Word, manteniendo la línea de diapositiva en el nombre del archivo de imagen. . parte como el nombre del documento de Word.

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 carpetaruta como cadena: carpetaruta = "c:\test\" 'Define la ruta de la carpeta de la imagen tiff.

atenuar todos los archivos()Como cadena: todos los archivos = Dir(folderPath amp; "*.' 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 '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.

Terminará si...

wdDoc.agregar imagen nombre de archivo:= carpetaPath nombre de archivo

N = n 1 'Recuento de imágenes 1

Si n Mod; 2 = 0, luego wdDoc.

Luego

'Salir' para salir de Word >

3. Ejecute la macro CombineTiff

4. 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 es Mantenga la parte frontal del nombre de la imagen. p>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 combinar las dos páginas de imágenes juzgando 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 la aplicación real, pero las ideas y los pasos generales de implementación deben ser claros.