Red de conocimiento informático - Material del sitio web - Cómo cambiar a programación

Cómo cambiar a programación

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 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.